Line 1: #ExternalChecksum("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","98C319AF030B776B92C2E393215E3C59CADD3ADA")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel.DataAnnotations
Line 21: Imports System.Configuration
Line 22: Imports System.Data
Line 23: Imports System.Data.Odbc
Line 24: Imports System.Linq
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.DynamicData
Line 30: Imports System.Web.Profile
Line 31: Imports System.Web.Security
Line 32: Imports System.Web.SessionState
Line 33: Imports System.Web.UI
Line 34: Imports System.Web.UI.HtmlControls
Line 35: Imports System.Web.UI.WebControls
Line 36: Imports System.Web.UI.WebControls.WebParts
Line 37: Imports System.Xml.Linq
Line 38:
Line 39: Namespace ASP
Line 40:
Line 41: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 42: Public Class marketing_servizi_spazi_pubblicitari_posizioni_aspx
Line 43: Inherits Global.System.Web.UI.Page
Line 44: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 45:
Line 46: Private Shared __initialized As Boolean
Line 47:
Line 48: Private Shared __stringResource As Object
Line 49:
Line 50: Private Shared __fileDependencies As Object
Line 51:
Line 52: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 53: Public Sub New()
Line 54: MyBase.New
Line 55: Dim dependencies() As String
Line 56: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/marketing/servizi/spazi_pubblicitari_posizioni.aspx"
Line 57: If (Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__initialized = false) Then
Line 58: Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__stringResource = Me.ReadStringResource
Line 59: dependencies = New String(1) {}
Line 60: dependencies(0) = "~/marketing/servizi/spazi_pubblicitari_posizioni.aspx"
Line 61: dependencies(1) = "~/articoli/service/aac_functions.aspx"
Line 62: Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 63: Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__initialized = true
Line 64: End If
Line 65: Me.Server.ScriptTimeout = 30000000
Line 66: End Sub
Line 67:
Line 68: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 69: Get
Line 70: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 71: End Get
Line 72: End Property
Line 73:
Line 74: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 75: Get
Line 76: Return false
Line 77: End Get
Line 78: End Property
Line 79:
Line 80: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 81: Get
Line 82: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 83: End Get
Line 84: End Property
Line 85:
Line 86: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 87: Private Sub __BuildControlTree(ByVal __ctrl As marketing_servizi_spazi_pubblicitari_posizioni_aspx)
Line 88:
Line 89: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",1)
Line 90: __ctrl.ResponseEncoding = "iso-8859-1"
Line 91:
Line 92: #End ExternalSource
Line 93:
Line 94: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",1)
Line 95: __ctrl.EnableViewState = false
Line 96:
Line 97: #End ExternalSource
Line 98:
Line 99: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",1)
Line 100: Me.InitializeCulture
Line 101:
Line 102: #End ExternalSource
Line 103: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 104: End Sub
Line 105:
Line 106: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 107:
Line 108: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\articoli\service\aac_functions.aspx",1)
Line 109: 'Vuoto
Line 110:
Line 111: #End ExternalSource
Line 112:
Line 113: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",6)
Line 114:
Line 115: Dim oggi As String = DateTime.Now.AddDays(-100).ToString("yyyy-dd-MM")
Line 116: dim giornata as string = oggi
Line 117:
Line 118: If request("g") <> "" Then
Line 119: giornata = request("g")
Line 120: End If
Line 121:
Line 122: dim objConn As System.Data.Odbc.OdbcConnection = adv_org_db()
Line 123: Dim sql As String = "SELECT c.giorno, c.quale, s.id, c.quale, s.nome, s.base, s.altezza, s.voto, s.gruppo, s.categoria " & _
Line 124: "FROM adv_org_count AS c INNER JOIN org_sponsor AS s ON c.quale = s.id WHERE voto > 0 AND s.base < 800 AND c.giorno = """ & oggi & """ ORDER BY voto DESC, giorno DESC, impressioni DESC"
Line 125: 'giorno = """ & giornata & """ AND
Line 126: '---------------- Connessione
Line 127: dim dt as new datatable()
Line 128: dim objCmd as new System.Data.Odbc.OdbcDataAdapter
Line 129:
Line 130: objCmd = new System.Data.Odbc.OdbcDataAdapter(sql, objConn)
Line 131: objCmd.Fill(dt)
Line 132:
Line 133:
Line 134:
Line 135: #End ExternalSource
Line 136: Me.WriteUTF8ResourceString(__w, 0, 1727, true)
Line 137:
Line 138: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",92)
Line 139: '<!--#include file="inc_indice.aspx" -->
Line 140:
Line 141: #End ExternalSource
Line 142: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""r"" align=""center"">BANNER</"& _
Line 143: "td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""r"" align=""center"">VOTO</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 144:
Line 145: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",102)
Line 146:
Line 147: dim impressioni as integer = 0
Line 148: dim ci2 as integer
Line 149:
Line 150: FOR ci2 = 0 to dt.rows.count-1
Line 151:
Line 152:
Line 153: #End ExternalSource
Line 154: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""uno t vo bi"" align=""center"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 155:
Line 156: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",111)
Line 157: If dt.rows(ci2)("id") = request("gp") THEN
Line 158:
Line 159: #End ExternalSource
Line 160: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a target=""_blank"" class=""bbb ns"""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"href=""http://www.arcadiaclub.com/articoli/se"& _
Line 161: "rvice/redirect.aspx?r=http://")
Line 162:
Line 163: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",113)
Line 164: __w.Write(dt.rows(ci2)("nome").tolower().split("|")(0).trim())
Line 165:
Line 166:
Line 167: #End ExternalSource
Line 168: __w.Write(""">")
Line 169:
Line 170: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",113)
Line 171: __w.Write(dt.rows(ci2)("nome"))
Line 172:
Line 173:
Line 174: #End ExternalSource
Line 175: __w.Write("</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 176:
Line 177: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",114)
Line 178: Else
Line 179:
Line 180: #End ExternalSource
Line 181: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Utente privato | ####"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 182:
Line 183: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",116)
Line 184: End If
Line 185:
Line 186: #End ExternalSource
Line 187: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""grc sup gr due str""><span class=""ac uno"">")
Line 188:
Line 189: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",119)
Line 190: For cc As Integer = 0 To dt.Rows(ci2)("voto")
Line 191:
Line 192: #End ExternalSource
Line 193: __w.Write(" ")
Line 194:
Line 195: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",119)
Line 196: Next cc
Line 197:
Line 198: #End ExternalSource
Line 199: __w.Write("</span> ")
Line 200:
Line 201: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",119)
Line 202: __w.Write(dt.Rows(ci2)("voto"))
Line 203:
Line 204:
Line 205: #End ExternalSource
Line 206: __w.Write("%</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 207:
Line 208: #ExternalSource("D:\InetPub\vhosts\arcadiaclub.com\httpdocs\marketing\servizi\spazi_pubblicitari_posizioni.aspx",122)
Line 209: NEXT ci2
Line 210:
Line 211: #End ExternalSource
Line 212: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""sp due"" colspan=""4"" align=""center""> </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"& _
Line 213: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td class=""ra dpx"" colspan=""4""> </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- WORK.htm - VERSIONE 2.1d -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 214: End Sub
Line 215:
Line 216: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 217: Protected Overrides Sub FrameworkInitialize()
Line 218: MyBase.FrameworkInitialize
Line 219: Me.SetStringResourcePointer(Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__stringResource, 0)
Line 220: Me.__BuildControlTree(Me)
Line 221: Me.AddWrappedFileDependencies(Global.ASP.marketing_servizi_spazi_pubblicitari_posizioni_aspx.__fileDependencies)
Line 222: End Sub
Line 223:
Line 224: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 225: Public Overrides Function GetTypeHashCode() As Integer
Line 226: Return 152256275
Line 227: End Function
Line 228:
Line 229: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 230: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 231: MyBase.ProcessRequest(context)
Line 232: End Sub
Line 233: End Class
Line 234: End Namespace
Line 235:
|