Riga 1: #ExternalChecksum("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","DF53B6013E6FE08E3C829BA61714A1DE745081E7")
Riga 2: '------------------------------------------------------------------------------
Riga 3: ' <auto-generated>
Riga 4: ' Il codice è stato generato da uno strumento.
Riga 5: ' Versione runtime:4.0.30319.42000
Riga 6: '
Riga 7: ' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
Riga 8: ' il codice viene rigenerato.
Riga 9: ' </auto-generated>
Riga 10: '------------------------------------------------------------------------------
Riga 11:
Riga 12: Option Strict Off
Riga 13: Option Explicit Off
Riga 14:
Riga 15: Imports ASP
Riga 16: Imports Microsoft.VisualBasic
Riga 17: Imports MySql.Data.MySqlClient
Riga 18: Imports System
Riga 19: Imports System.Collections
Riga 20: Imports System.Collections.Generic
Riga 21: Imports System.Collections.Specialized
Riga 22: Imports System.ComponentModel.DataAnnotations
Riga 23: Imports System.Configuration
Riga 24: Imports System.Data
Riga 25: Imports System.IO
Riga 26: Imports System.Linq
Riga 27: Imports System.net
Riga 28: Imports System.Net.Mail
Riga 29: Imports System.Text
Riga 30: Imports System.Text.RegularExpressions
Riga 31: Imports System.Web
Riga 32: Imports System.Web.Caching
Riga 33: Imports System.Web.DynamicData
Riga 34: Imports System.Web.Profile
Riga 35: Imports System.Web.Security
Riga 36: Imports System.Web.SessionState
Riga 37: Imports System.Web.UI
Riga 38: Imports System.Web.UI.HtmlControls
Riga 39: Imports System.Web.UI.WebControls
Riga 40: Imports System.Web.UI.WebControls.Expressions
Riga 41: Imports System.Web.UI.WebControls.WebParts
Riga 42: Imports System.Xml.Linq
Riga 43:
Riga 44: Namespace ASP
Riga 45:
Riga 46: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Riga 47: Public Class nl_offerte_aspx
Riga 48: Inherits Global.System.Web.UI.Page
Riga 49: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Riga 50:
Riga 51:
Riga 52: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",135)
Riga 53: Protected WithEvents header As Global.ASP.nl_header_ascx
Riga 54:
Riga 55: #End ExternalSource
Riga 56:
Riga 57:
Riga 58: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 59: Protected WithEvents dal As Global.System.Web.UI.WebControls.TextBox
Riga 60:
Riga 61: #End ExternalSource
Riga 62:
Riga 63:
Riga 64: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 65: Protected WithEvents reqdal As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 66:
Riga 67: #End ExternalSource
Riga 68:
Riga 69:
Riga 70: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 71: Protected WithEvents al As Global.System.Web.UI.WebControls.TextBox
Riga 72:
Riga 73: #End ExternalSource
Riga 74:
Riga 75:
Riga 76: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 77: Protected WithEvents reqal As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 78:
Riga 79: #End ExternalSource
Riga 80:
Riga 81:
Riga 82: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 83: Protected WithEvents nomex As Global.System.Web.UI.WebControls.TextBox
Riga 84:
Riga 85: #End ExternalSource
Riga 86:
Riga 87:
Riga 88: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 89: Protected WithEvents reqnome As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 90:
Riga 91: #End ExternalSource
Riga 92:
Riga 93:
Riga 94: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 95: Protected WithEvents email As Global.System.Web.UI.WebControls.TextBox
Riga 96:
Riga 97: #End ExternalSource
Riga 98:
Riga 99:
Riga 100: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 101: Protected WithEvents reqemail As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 102:
Riga 103: #End ExternalSource
Riga 104:
Riga 105:
Riga 106: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",237)
Riga 107: Protected WithEvents telefono2 As Global.System.Web.UI.WebControls.TextBox
Riga 108:
Riga 109: #End ExternalSource
Riga 110:
Riga 111:
Riga 112: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",238)
Riga 113: Protected WithEvents fax As Global.System.Web.UI.WebControls.TextBox
Riga 114:
Riga 115: #End ExternalSource
Riga 116:
Riga 117:
Riga 118: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 119: Protected WithEvents reqmessaggio As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 120:
Riga 121: #End ExternalSource
Riga 122:
Riga 123:
Riga 124: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 125: Protected WithEvents messaggio As Global.System.Web.UI.WebControls.TextBox
Riga 126:
Riga 127: #End ExternalSource
Riga 128:
Riga 129:
Riga 130: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",240)
Riga 131: Protected WithEvents privacyx As Global.System.Web.UI.WebControls.CheckBox
Riga 132:
Riga 133: #End ExternalSource
Riga 134:
Riga 135:
Riga 136: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 137: Protected WithEvents mio As Global.System.Web.UI.WebControls.Button
Riga 138:
Riga 139: #End ExternalSource
Riga 140:
Riga 141:
Riga 142: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 143: Protected WithEvents richiesta As Global.System.Web.UI.HtmlControls.HtmlForm
Riga 144:
Riga 145: #End ExternalSource
Riga 146:
Riga 147:
Riga 148: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 149: Protected WithEvents lblAvviso As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Riga 150:
Riga 151: #End ExternalSource
Riga 152:
Riga 153:
Riga 154: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",261)
Riga 155: Protected WithEvents meteoalto As Global.ASP.nl_meteoalto_ascx
Riga 156:
Riga 157: #End ExternalSource
Riga 158:
Riga 159:
Riga 160: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",262)
Riga 161: Protected WithEvents menusx As Global.ASP.nl_menusx_ascx
Riga 162:
Riga 163: #End ExternalSource
Riga 164:
Riga 165:
Riga 166: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",263)
Riga 167: Protected WithEvents banner As Global.ASP.nl_banner_ascx
Riga 168:
Riga 169: #End ExternalSource
Riga 170:
Riga 171:
Riga 172: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",275)
Riga 173: Protected WithEvents footer As Global.ASP.nl_footer_ascx
Riga 174:
Riga 175: #End ExternalSource
Riga 176:
Riga 177: Private Shared __initialized As Boolean
Riga 178:
Riga 179: Private Shared __stringResource As Object
Riga 180:
Riga 181: Private Shared __fileDependencies As Object
Riga 182:
Riga 183:
Riga 184: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",279)
Riga 185:
Riga 186: Sub InviaModulo(o as Object, e as EventArgs)
Riga 187:
Riga 188: portale = System.Configuration.ConfigurationManager.AppSettings("portale").tostring()
Riga 189: portalenome = System.Configuration.ConfigurationManager.AppSettings("portalenome").tostring()
Riga 190: locx = System.Configuration.ConfigurationManager.AppSettings("locx").tostring()
Riga 191: Dim conn As New MySqlConnection(ConfigurationManager.ConnectionStrings("ConnString").ConnectionString)
Riga 192: Dim connco As New MySqlConnection(ConfigurationManager.ConnectionStrings("ConnStringComunicazioni").ConnectionString)
Riga 193: Dim datareader As MySqlDataReader
Riga 194:
Riga 195: id1 = request("id1")
Riga 196: id2 = request("id2")
Riga 197: id3 = request("id3")
Riga 198: id4 = request("id4")
Riga 199: cosa = request("cosa")
Riga 200: titolo = id2.replace("-", " ")
Riga 201:
Riga 202: barra = instr(id1,"/")
Riga 203: lenid1 = len(id1)
Riga 204: if barra <> 0 then
Riga 205: id1 = left(id1,(barra-1))
Riga 206: end if
Riga 207:
Riga 208: SQLCode = "SELECT offerte.id, offerte.titolo, offerte.testo, offerte.dal, offerte.al AS fine, tipologie.olandese as tipologia, strutture.id AS iddo, strutture.telefono, strutture.mail, strutture.shiny, strutture.paragrafo1, strutture.Nome, strutture.Stelle, strutture.foto1, strutture.foto2, strutture.foto3, strutture.foto4, strutture.foto5, strutture.foto6, strutture.attivo, L_comuni.COMUNEIT, strutture_dove.portale FROM (((offerte LEFT JOIN strutture ON offerte.struttura = strutture.id) LEFT JOIN tipologie ON strutture.categoria = tipologie.id) LEFT JOIN strutture_dove ON strutture.id = strutture_dove.struttura) INNER JOIN L_comuni ON strutture_dove.comune = L_comuni.ID WHERE (((offerte.id)=" & id1 & "))"
Riga 209: try
Riga 210: Cmd = New MySqlCommand(SQLCode, conn)
Riga 211: conn.Open()
Riga 212: datareader = Cmd.ExecuteReader
Riga 213: If datareader.HasRows Then
Riga 214: datareader.Read()
Riga 215:
Riga 216:
Riga 217: telefonostr = datareader("telefono")
Riga 218: categoriastr = datareader("tipologia")
Riga 219: nomestr = datareader("nome")
Riga 220: strmail = datareader("mail")
Riga 221: titolo = datareader("titolo")
Riga 222:
Riga 223: else
Riga 224: end if
Riga 225: Cmd.Cancel()
Riga 226: datareader.Dispose()
Riga 227: Cmd.Dispose()
Riga 228: SQLCode = Nothing
Riga 229: strConn = Nothing
Riga 230: conn.Close()
Riga 231: Catch ex As Exception
Riga 232: End try
Riga 233:
Riga 234:
Riga 235:
Riga 236: if fax.text <> "" then
Riga 237: lblAvviso.Attributes.Add("bgcolor", "red")
Riga 238: lblAvviso.InnerHtml = "<p class=testo>Helaas ging er iets mis ... <br> Wilt u rechtstreeks contact opnemen met de toeristische voorziening kunt u het nummer te bellen " & telefonostr & "<br><br><br>The error that occurred is: Have you filled in the phone field to be left blank being an anti-spam system<br>"
Riga 239: exit sub
Riga 240: end if
Riga 241:
Riga 242:
Riga 243: Try
Riga 244: Dim mail As New MailMessage
Riga 245: Dim data As Date
Riga 246: data = today()
Riga 247: portale = "Terradeglietruschi.it"
Riga 248: da = email
Riga 249: titolo = "Richiesta per l'offerta: " & titolo
Riga 250: ora = TimeOfDay()
Riga 251: ip = request.servervariables("remote_addr")
Riga 252: lingua = "nl"
Riga 253: multipla = 0
Riga 254: testo = "<img src='http://www.terradeglietruschi.it/images/logo-basso.png'><br><font face='arial' size='5'>Richiesta informazioni inviata dal portale Terradeglietruschi.it</font><br>"
Riga 255: testo = testo & "<p style='font-family: trebuchet ms; font-size: 10pt'><b>Richiesta effettuata il giorno</b>:" & today()
Riga 256: testo = testo & "<p style='font-family: trebuchet ms; font-size: 10pt'>Il Signor/a: <b>" & nomex.text & "</b>"
Riga 257: testo = testo & "<br><b>Telefono</b>: " & telefono.text
Riga 258: testo = testo & "<br><b>E-mail</b>: <a href='mailto:" & email.text & "'>" & email.text & "</a>"
Riga 259: testo = testo & "<p style='font-family: trebuchet ms; font-size: 10pt'><b>Ti ha richiesto un preventivo con questi dati:</b>"
Riga 260: testo = testo & "<p style='font-family: trebuchet ms; font-size: 10pt'><b>Data di Arrivo</b>: " & dal.text
Riga 261: testo = testo & "<br><b>Data di Partenza</b>: " & al.text
Riga 262: testo = testo & "<p style='font-family: trebuchet ns; font-size: 10pt'><b>Note</b>: " & messaggio.text
Riga 263: testo = testo & "<p style='font-family: trebuchet ns; font-size: 10pt'>Per rispondere a questa richiesta devi solo cliccare su rispondi nel tuo programma di posta"
Riga 264: testo = testo & "<br>Terradeglietruschi.it"
Riga 265:
Riga 266: Dim mMailMessage As New MailMessage()
Riga 267: mMailMessage.From = New MailAddress(email.text)
Riga 268: ' ############################ MODIFICARE ######################
Riga 269: ' ############################ MODIFICARE ######################
Riga 270: ' ############################ MODIFICARE ######################
Riga 271: ' ############################ MODIFICARE ######################
Riga 272: mMailMessage.To.Add(New MailAddress(strmail))
Riga 273: ' ############################ MODIFICARE ######################
Riga 274: ' ############################ MODIFICARE ######################
Riga 275: ' ############################ MODIFICARE ######################
Riga 276: ' ############################ MODIFICARE ######################
Riga 277: mMailMessage.Subject = titolo
Riga 278: mMailMessage.Body = testo
Riga 279: mMailMessage.IsBodyHtml = True
Riga 280: mMailMessage.Priority = MailPriority.Normal
Riga 281: Dim mSmtpClient As New SmtpClient()
Riga 282: mSmtpClient.Send(mMailMessage)
Riga 283:
Riga 284:
Riga 285: ' ###################### INSERIMENTO NEL DATABASE ######################
Riga 286: SQLCode = "insert into comunicazioni (data, portale, da ,a , struttura, titolo, testo,ip, categoria, lingua) VALUES ('" & data & "' , '" & portale & "', '" & email.text & "' , '" & strmail & "' , '" & nomestr.Replace("'","''") & "', '" & titolo.Replace("'","''") & "', '" & testo.Replace("'","''") & "' , '" & ip & "', '" & categoriastr.Replace("'","''") & "', '" & lingua & "')"
Riga 287:
Riga 288: Cmd = New MySqlCommand(SQLCode, connco)
Riga 289: connco.Open()
Riga 290: datareader = Cmd.ExecuteReader
Riga 291: datareader.Read()
Riga 292: datareader.Dispose()
Riga 293: Cmd.Cancel()
Riga 294: datareader.Dispose()
Riga 295: Cmd.Dispose()
Riga 296: SQLCode = Nothing
Riga 297: strConn = Nothing
Riga 298: connco.Close()
Riga 299: ' TUTTO OK
Riga 300: lblAvviso.Attributes.Add("bgcolor", "green")
Riga 301: lblAvviso.InnerHtml = "<p class=testo>Het verzoek om inlichtingen was goed gestuurd. <br> De toeristische faciliteit zal zo spoedig mogelijk reageren. <br> Wilt u rechtstreeks contact met haar, kunt u het nummer te bellen " & telefonostr
Riga 302: Catch exc As Exception
Riga 303: ' TUTTO MALE
Riga 304: lblAvviso.Attributes.Add("bgcolor", "red")
Riga 305: lblAvviso.InnerHtml = "<p class=testo>Helaas ging er iets mis ... <br> Wilt u rechtstreeks contact opnemen met de toeristische voorziening kunt u het nummer te bellen " & telefonostr & "<br><br><br>The error that occurs is as follows:<br>" & exc.ToString & "<br>"
Riga 306: End Try
Riga 307:
Riga 308: end sub
Riga 309:
Riga 310: #End ExternalSource
Riga 311:
Riga 312:
Riga 313: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 314: Public Sub New()
Riga 315: MyBase.New
Riga 316: Dim dependencies() As String
Riga 317: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/nl/offerte.aspx"
Riga 318: If (Global.ASP.nl_offerte_aspx.__initialized = false) Then
Riga 319: Global.ASP.nl_offerte_aspx.__stringResource = Me.ReadStringResource
Riga 320: dependencies = New String(11) {}
Riga 321: dependencies(0) = "~/nl/menusx.ascx"
Riga 322: dependencies(1) = "~/nl/ricerca.ascx"
Riga 323: dependencies(2) = "~/nl/newsletter.ascx"
Riga 324: dependencies(3) = "~/nl/banner.ascx"
Riga 325: dependencies(4) = "~/nl/offerte.aspx"
Riga 326: dependencies(5) = "~/banner.aspx.vb"
Riga 327: dependencies(6) = "~/nl/followus.ascx"
Riga 328: dependencies(7) = "~/nl/facebox.ascx"
Riga 329: dependencies(8) = "~/meteoalto.ascx.cs"
Riga 330: dependencies(9) = "~/nl/footer.ascx"
Riga 331: dependencies(10) = "~/nl/header.ascx"
Riga 332: dependencies(11) = "~/nl/meteoalto.ascx"
Riga 333: Global.ASP.nl_offerte_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Riga 334: Global.ASP.nl_offerte_aspx.__initialized = true
Riga 335: End If
Riga 336: Me.Server.ScriptTimeout = 30000000
Riga 337: End Sub
Riga 338:
Riga 339: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Riga 340: Get
Riga 341: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Riga 342: End Get
Riga 343: End Property
Riga 344:
Riga 345: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Riga 346: Get
Riga 347: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Riga 348: End Get
Riga 349: End Property
Riga 350:
Riga 351: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 352: Private Function __BuildControlheader() As System.Web.UI.Control
Riga 353: Dim __ctrl As Global.ASP.nl_header_ascx
Riga 354:
Riga 355: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",135)
Riga 356: __ctrl = New Global.ASP.nl_header_ascx()
Riga 357:
Riga 358: #End ExternalSource
Riga 359: Me.header = __ctrl
Riga 360:
Riga 361: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",135)
Riga 362: __ctrl.InitializeAsUserControl(Me.Page)
Riga 363:
Riga 364: #End ExternalSource
Riga 365:
Riga 366: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",135)
Riga 367: __ctrl.ID = "header"
Riga 368:
Riga 369: #End ExternalSource
Riga 370: Return __ctrl
Riga 371: End Function
Riga 372:
Riga 373: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 374: Private Function __BuildControldal() As Global.System.Web.UI.WebControls.TextBox
Riga 375: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 376:
Riga 377: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 378: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 379:
Riga 380: #End ExternalSource
Riga 381: Me.dal = __ctrl
Riga 382: __ctrl.ApplyStyleSheetSkin(Me)
Riga 383:
Riga 384: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 385: __ctrl.ID = "dal"
Riga 386:
Riga 387: #End ExternalSource
Riga 388:
Riga 389: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 390: __ctrl.CssClass = "field-input hasDatepicker"
Riga 391:
Riga 392: #End ExternalSource
Riga 393:
Riga 394: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 395: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Aankomstdatum *")
Riga 396:
Riga 397: #End ExternalSource
Riga 398: Return __ctrl
Riga 399: End Function
Riga 400:
Riga 401: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 402: Private Function __BuildControlreqdal() As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 403: Dim __ctrl As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 404:
Riga 405: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 406: __ctrl = New Global.System.Web.UI.WebControls.RequiredFieldValidator()
Riga 407:
Riga 408: #End ExternalSource
Riga 409: Me.reqdal = __ctrl
Riga 410: __ctrl.ApplyStyleSheetSkin(Me)
Riga 411:
Riga 412: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 413: __ctrl.ID = "reqdal"
Riga 414:
Riga 415: #End ExternalSource
Riga 416:
Riga 417: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 418: __ctrl.ControlToValidate = "dal"
Riga 419:
Riga 420: #End ExternalSource
Riga 421:
Riga 422: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 423: __ctrl.ErrorMessage = "Verplicht veld"
Riga 424:
Riga 425: #End ExternalSource
Riga 426:
Riga 427: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",233)
Riga 428: __ctrl.Display = Global.System.Web.UI.WebControls.ValidatorDisplay.Dynamic
Riga 429:
Riga 430: #End ExternalSource
Riga 431: Return __ctrl
Riga 432: End Function
Riga 433:
Riga 434: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 435: Private Function __BuildControlal() As Global.System.Web.UI.WebControls.TextBox
Riga 436: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 437:
Riga 438: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 439: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 440:
Riga 441: #End ExternalSource
Riga 442: Me.al = __ctrl
Riga 443: __ctrl.ApplyStyleSheetSkin(Me)
Riga 444:
Riga 445: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 446: __ctrl.ID = "al"
Riga 447:
Riga 448: #End ExternalSource
Riga 449:
Riga 450: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 451: __ctrl.CssClass = "field-input hasDatepicker"
Riga 452:
Riga 453: #End ExternalSource
Riga 454:
Riga 455: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 456: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Vertrekdatum *")
Riga 457:
Riga 458: #End ExternalSource
Riga 459: Return __ctrl
Riga 460: End Function
Riga 461:
Riga 462: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 463: Private Function __BuildControlreqal() As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 464: Dim __ctrl As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 465:
Riga 466: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 467: __ctrl = New Global.System.Web.UI.WebControls.RequiredFieldValidator()
Riga 468:
Riga 469: #End ExternalSource
Riga 470: Me.reqal = __ctrl
Riga 471: __ctrl.ApplyStyleSheetSkin(Me)
Riga 472:
Riga 473: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 474: __ctrl.ID = "reqal"
Riga 475:
Riga 476: #End ExternalSource
Riga 477:
Riga 478: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 479: __ctrl.ControlToValidate = "al"
Riga 480:
Riga 481: #End ExternalSource
Riga 482:
Riga 483: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 484: __ctrl.ErrorMessage = "Verplicht veld"
Riga 485:
Riga 486: #End ExternalSource
Riga 487:
Riga 488: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",234)
Riga 489: __ctrl.Display = Global.System.Web.UI.WebControls.ValidatorDisplay.Dynamic
Riga 490:
Riga 491: #End ExternalSource
Riga 492: Return __ctrl
Riga 493: End Function
Riga 494:
Riga 495: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 496: Private Function __BuildControlnomex() As Global.System.Web.UI.WebControls.TextBox
Riga 497: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 498:
Riga 499: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 500: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 501:
Riga 502: #End ExternalSource
Riga 503: Me.nomex = __ctrl
Riga 504: __ctrl.ApplyStyleSheetSkin(Me)
Riga 505:
Riga 506: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 507: __ctrl.ID = "nomex"
Riga 508:
Riga 509: #End ExternalSource
Riga 510:
Riga 511: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 512: __ctrl.CssClass = "field-input"
Riga 513:
Riga 514: #End ExternalSource
Riga 515:
Riga 516: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 517: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Voornaam en achternaam *")
Riga 518:
Riga 519: #End ExternalSource
Riga 520: Return __ctrl
Riga 521: End Function
Riga 522:
Riga 523: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 524: Private Function __BuildControlreqnome() As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 525: Dim __ctrl As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 526:
Riga 527: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 528: __ctrl = New Global.System.Web.UI.WebControls.RequiredFieldValidator()
Riga 529:
Riga 530: #End ExternalSource
Riga 531: Me.reqnome = __ctrl
Riga 532: __ctrl.ApplyStyleSheetSkin(Me)
Riga 533:
Riga 534: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 535: __ctrl.ID = "reqnome"
Riga 536:
Riga 537: #End ExternalSource
Riga 538:
Riga 539: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 540: __ctrl.ControlToValidate = "nomex"
Riga 541:
Riga 542: #End ExternalSource
Riga 543:
Riga 544: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 545: __ctrl.ErrorMessage = "Verplicht veld"
Riga 546:
Riga 547: #End ExternalSource
Riga 548:
Riga 549: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",235)
Riga 550: __ctrl.Display = Global.System.Web.UI.WebControls.ValidatorDisplay.Dynamic
Riga 551:
Riga 552: #End ExternalSource
Riga 553: Return __ctrl
Riga 554: End Function
Riga 555:
Riga 556: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 557: Private Function __BuildControlemail() As Global.System.Web.UI.WebControls.TextBox
Riga 558: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 559:
Riga 560: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 561: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 562:
Riga 563: #End ExternalSource
Riga 564: Me.email = __ctrl
Riga 565: __ctrl.ApplyStyleSheetSkin(Me)
Riga 566:
Riga 567: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 568: __ctrl.ID = "email"
Riga 569:
Riga 570: #End ExternalSource
Riga 571:
Riga 572: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 573: __ctrl.CssClass = "field-input"
Riga 574:
Riga 575: #End ExternalSource
Riga 576:
Riga 577: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 578: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "E-mail *")
Riga 579:
Riga 580: #End ExternalSource
Riga 581: Return __ctrl
Riga 582: End Function
Riga 583:
Riga 584: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 585: Private Function __BuildControlreqemail() As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 586: Dim __ctrl As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 587:
Riga 588: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 589: __ctrl = New Global.System.Web.UI.WebControls.RequiredFieldValidator()
Riga 590:
Riga 591: #End ExternalSource
Riga 592: Me.reqemail = __ctrl
Riga 593: __ctrl.ApplyStyleSheetSkin(Me)
Riga 594:
Riga 595: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 596: __ctrl.ID = "reqemail"
Riga 597:
Riga 598: #End ExternalSource
Riga 599:
Riga 600: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 601: __ctrl.ControlToValidate = "email"
Riga 602:
Riga 603: #End ExternalSource
Riga 604:
Riga 605: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 606: __ctrl.ErrorMessage = "Verplicht veld"
Riga 607:
Riga 608: #End ExternalSource
Riga 609:
Riga 610: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",236)
Riga 611: __ctrl.Display = Global.System.Web.UI.WebControls.ValidatorDisplay.Dynamic
Riga 612:
Riga 613: #End ExternalSource
Riga 614: Return __ctrl
Riga 615: End Function
Riga 616:
Riga 617: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 618: Private Function __BuildControltelefono2() As Global.System.Web.UI.WebControls.TextBox
Riga 619: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 620:
Riga 621: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",237)
Riga 622: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 623:
Riga 624: #End ExternalSource
Riga 625: Me.telefono2 = __ctrl
Riga 626: __ctrl.ApplyStyleSheetSkin(Me)
Riga 627:
Riga 628: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",237)
Riga 629: __ctrl.ID = "telefono2"
Riga 630:
Riga 631: #End ExternalSource
Riga 632:
Riga 633: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",237)
Riga 634: __ctrl.CssClass = "field-input"
Riga 635:
Riga 636: #End ExternalSource
Riga 637:
Riga 638: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",237)
Riga 639: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Telefoon")
Riga 640:
Riga 641: #End ExternalSource
Riga 642: Return __ctrl
Riga 643: End Function
Riga 644:
Riga 645: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 646: Private Function __BuildControlfax() As Global.System.Web.UI.WebControls.TextBox
Riga 647: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 648:
Riga 649: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",238)
Riga 650: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 651:
Riga 652: #End ExternalSource
Riga 653: Me.fax = __ctrl
Riga 654: __ctrl.ApplyStyleSheetSkin(Me)
Riga 655:
Riga 656: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",238)
Riga 657: __ctrl.ID = "fax"
Riga 658:
Riga 659: #End ExternalSource
Riga 660:
Riga 661: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",238)
Riga 662: __ctrl.CssClass = "field-input"
Riga 663:
Riga 664: #End ExternalSource
Riga 665:
Riga 666: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",238)
Riga 667: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Leave it blank. *")
Riga 668:
Riga 669: #End ExternalSource
Riga 670: Return __ctrl
Riga 671: End Function
Riga 672:
Riga 673: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 674: Private Function __BuildControlreqmessaggio() As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 675: Dim __ctrl As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 676:
Riga 677: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 678: __ctrl = New Global.System.Web.UI.WebControls.RequiredFieldValidator()
Riga 679:
Riga 680: #End ExternalSource
Riga 681: Me.reqmessaggio = __ctrl
Riga 682: __ctrl.ApplyStyleSheetSkin(Me)
Riga 683:
Riga 684: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 685: __ctrl.ID = "reqmessaggio"
Riga 686:
Riga 687: #End ExternalSource
Riga 688:
Riga 689: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 690: __ctrl.ControlToValidate = "messaggio"
Riga 691:
Riga 692: #End ExternalSource
Riga 693:
Riga 694: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 695: __ctrl.ErrorMessage = "Schrijf een bericht"
Riga 696:
Riga 697: #End ExternalSource
Riga 698:
Riga 699: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 700: __ctrl.Display = Global.System.Web.UI.WebControls.ValidatorDisplay.Dynamic
Riga 701:
Riga 702: #End ExternalSource
Riga 703: Return __ctrl
Riga 704: End Function
Riga 705:
Riga 706: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 707: Private Function __BuildControlmessaggio() As Global.System.Web.UI.WebControls.TextBox
Riga 708: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Riga 709:
Riga 710: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 711: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Riga 712:
Riga 713: #End ExternalSource
Riga 714: Me.messaggio = __ctrl
Riga 715: __ctrl.ApplyStyleSheetSkin(Me)
Riga 716:
Riga 717: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 718: __ctrl.ID = "messaggio"
Riga 719:
Riga 720: #End ExternalSource
Riga 721:
Riga 722: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 723: __ctrl.CssClass = "form-control"
Riga 724:
Riga 725: #End ExternalSource
Riga 726:
Riga 727: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 728: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Uw aanvraag *")
Riga 729:
Riga 730: #End ExternalSource
Riga 731:
Riga 732: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",239)
Riga 733: __ctrl.TextMode = Global.System.Web.UI.WebControls.TextBoxMode.MultiLine
Riga 734:
Riga 735: #End ExternalSource
Riga 736: Return __ctrl
Riga 737: End Function
Riga 738:
Riga 739: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 740: Private Function __BuildControlprivacyx() As Global.System.Web.UI.WebControls.CheckBox
Riga 741: Dim __ctrl As Global.System.Web.UI.WebControls.CheckBox
Riga 742:
Riga 743: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",240)
Riga 744: __ctrl = New Global.System.Web.UI.WebControls.CheckBox()
Riga 745:
Riga 746: #End ExternalSource
Riga 747: Me.privacyx = __ctrl
Riga 748: __ctrl.ApplyStyleSheetSkin(Me)
Riga 749:
Riga 750: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",240)
Riga 751: __ctrl.ID = "privacyx"
Riga 752:
Riga 753: #End ExternalSource
Riga 754: Return __ctrl
Riga 755: End Function
Riga 756:
Riga 757: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 758: Private Function __BuildControlmio() As Global.System.Web.UI.WebControls.Button
Riga 759: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Riga 760:
Riga 761: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 762: __ctrl = New Global.System.Web.UI.WebControls.Button()
Riga 763:
Riga 764: #End ExternalSource
Riga 765: Me.mio = __ctrl
Riga 766: __ctrl.ApplyStyleSheetSkin(Me)
Riga 767:
Riga 768: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 769: __ctrl.ID = "mio"
Riga 770:
Riga 771: #End ExternalSource
Riga 772:
Riga 773: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 774: __ctrl.CssClass = "awe-btn awe-btn-2 arrow-right arrow-white awe-btn-lager"
Riga 775:
Riga 776: #End ExternalSource
Riga 777:
Riga 778: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 779: __ctrl.Text = "Informatie aanvragen"
Riga 780:
Riga 781: #End ExternalSource
Riga 782:
Riga 783: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",241)
Riga 784: AddHandler __ctrl.Click, AddressOf Me.InviaModulo
Riga 785:
Riga 786: #End ExternalSource
Riga 787: Return __ctrl
Riga 788: End Function
Riga 789:
Riga 790: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 791: Private Function __BuildControlrichiesta() As Global.System.Web.UI.HtmlControls.HtmlForm
Riga 792: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Riga 793:
Riga 794: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 795: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Riga 796:
Riga 797: #End ExternalSource
Riga 798: Me.richiesta = __ctrl
Riga 799:
Riga 800: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 801: __ctrl.ID = "richiesta"
Riga 802:
Riga 803: #End ExternalSource
Riga 804: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Riga 805:
Riga 806: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 807: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 808:
Riga 809: #End ExternalSource
Riga 810: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Riga 811:
Riga 812: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 813: __ctrl1 = Me.__BuildControldal
Riga 814:
Riga 815: #End ExternalSource
Riga 816:
Riga 817: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 818: __parser.AddParsedSubObject(__ctrl1)
Riga 819:
Riga 820: #End ExternalSource
Riga 821:
Riga 822: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 823: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Riga 824:
Riga 825: #End ExternalSource
Riga 826: Dim __ctrl2 As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 827:
Riga 828: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 829: __ctrl2 = Me.__BuildControlreqdal
Riga 830:
Riga 831: #End ExternalSource
Riga 832:
Riga 833: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 834: __parser.AddParsedSubObject(__ctrl2)
Riga 835:
Riga 836: #End ExternalSource
Riga 837:
Riga 838: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 839: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 840:
Riga 841: #End ExternalSource
Riga 842: Dim __ctrl3 As Global.System.Web.UI.WebControls.TextBox
Riga 843:
Riga 844: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 845: __ctrl3 = Me.__BuildControlal
Riga 846:
Riga 847: #End ExternalSource
Riga 848:
Riga 849: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 850: __parser.AddParsedSubObject(__ctrl3)
Riga 851:
Riga 852: #End ExternalSource
Riga 853:
Riga 854: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 855: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Riga 856:
Riga 857: #End ExternalSource
Riga 858: Dim __ctrl4 As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 859:
Riga 860: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 861: __ctrl4 = Me.__BuildControlreqal
Riga 862:
Riga 863: #End ExternalSource
Riga 864:
Riga 865: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 866: __parser.AddParsedSubObject(__ctrl4)
Riga 867:
Riga 868: #End ExternalSource
Riga 869:
Riga 870: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 871: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 872:
Riga 873: #End ExternalSource
Riga 874: Dim __ctrl5 As Global.System.Web.UI.WebControls.TextBox
Riga 875:
Riga 876: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 877: __ctrl5 = Me.__BuildControlnomex
Riga 878:
Riga 879: #End ExternalSource
Riga 880:
Riga 881: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 882: __parser.AddParsedSubObject(__ctrl5)
Riga 883:
Riga 884: #End ExternalSource
Riga 885:
Riga 886: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 887: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Riga 888:
Riga 889: #End ExternalSource
Riga 890: Dim __ctrl6 As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 891:
Riga 892: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 893: __ctrl6 = Me.__BuildControlreqnome
Riga 894:
Riga 895: #End ExternalSource
Riga 896:
Riga 897: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 898: __parser.AddParsedSubObject(__ctrl6)
Riga 899:
Riga 900: #End ExternalSource
Riga 901:
Riga 902: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 903: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 904:
Riga 905: #End ExternalSource
Riga 906: Dim __ctrl7 As Global.System.Web.UI.WebControls.TextBox
Riga 907:
Riga 908: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 909: __ctrl7 = Me.__BuildControlemail
Riga 910:
Riga 911: #End ExternalSource
Riga 912:
Riga 913: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 914: __parser.AddParsedSubObject(__ctrl7)
Riga 915:
Riga 916: #End ExternalSource
Riga 917:
Riga 918: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 919: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Riga 920:
Riga 921: #End ExternalSource
Riga 922: Dim __ctrl8 As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 923:
Riga 924: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 925: __ctrl8 = Me.__BuildControlreqemail
Riga 926:
Riga 927: #End ExternalSource
Riga 928:
Riga 929: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 930: __parser.AddParsedSubObject(__ctrl8)
Riga 931:
Riga 932: #End ExternalSource
Riga 933:
Riga 934: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 935: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 936:
Riga 937: #End ExternalSource
Riga 938: Dim __ctrl9 As Global.System.Web.UI.WebControls.TextBox
Riga 939:
Riga 940: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 941: __ctrl9 = Me.__BuildControltelefono2
Riga 942:
Riga 943: #End ExternalSource
Riga 944:
Riga 945: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 946: __parser.AddParsedSubObject(__ctrl9)
Riga 947:
Riga 948: #End ExternalSource
Riga 949:
Riga 950: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 951: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field maremm"">"))
Riga 952:
Riga 953: #End ExternalSource
Riga 954: Dim __ctrl10 As Global.System.Web.UI.WebControls.TextBox
Riga 955:
Riga 956: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 957: __ctrl10 = Me.__BuildControlfax
Riga 958:
Riga 959: #End ExternalSource
Riga 960:
Riga 961: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 962: __parser.AddParsedSubObject(__ctrl10)
Riga 963:
Riga 964: #End ExternalSource
Riga 965:
Riga 966: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 967: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field form-field-area"">"))
Riga 968:
Riga 969: #End ExternalSource
Riga 970: Dim __ctrl11 As Global.System.Web.UI.WebControls.RequiredFieldValidator
Riga 971:
Riga 972: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 973: __ctrl11 = Me.__BuildControlreqmessaggio
Riga 974:
Riga 975: #End ExternalSource
Riga 976:
Riga 977: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 978: __parser.AddParsedSubObject(__ctrl11)
Riga 979:
Riga 980: #End ExternalSource
Riga 981:
Riga 982: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 983: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Riga 984:
Riga 985: #End ExternalSource
Riga 986: Dim __ctrl12 As Global.System.Web.UI.WebControls.TextBox
Riga 987:
Riga 988: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 989: __ctrl12 = Me.__BuildControlmessaggio
Riga 990:
Riga 991: #End ExternalSource
Riga 992:
Riga 993: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 994: __parser.AddParsedSubObject(__ctrl12)
Riga 995:
Riga 996: #End ExternalSource
Riga 997:
Riga 998: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 999: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field"">"))
Riga 1000:
Riga 1001: #End ExternalSource
Riga 1002: Dim __ctrl13 As Global.System.Web.UI.WebControls.CheckBox
Riga 1003:
Riga 1004: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1005: __ctrl13 = Me.__BuildControlprivacyx
Riga 1006:
Riga 1007: #End ExternalSource
Riga 1008:
Riga 1009: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1010: __parser.AddParsedSubObject(__ctrl13)
Riga 1011:
Riga 1012: #End ExternalSource
Riga 1013:
Riga 1014: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1015: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" Ik ga akkoord met de voorwaarden van de <a href=""/privacy.aspx"" target=""_blank"">"& _
Riga 1016: "Privacy</a></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""form-field text-center"">"))
Riga 1017:
Riga 1018: #End ExternalSource
Riga 1019: Dim __ctrl14 As Global.System.Web.UI.WebControls.Button
Riga 1020:
Riga 1021: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1022: __ctrl14 = Me.__BuildControlmio
Riga 1023:
Riga 1024: #End ExternalSource
Riga 1025:
Riga 1026: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1027: __parser.AddParsedSubObject(__ctrl14)
Riga 1028:
Riga 1029: #End ExternalSource
Riga 1030:
Riga 1031: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",231)
Riga 1032: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Riga 1033:
Riga 1034: #End ExternalSource
Riga 1035: Return __ctrl
Riga 1036: End Function
Riga 1037:
Riga 1038: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1039: Private Function __BuildControllblAvviso() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Riga 1040: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Riga 1041:
Riga 1042: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1043: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("div")
Riga 1044:
Riga 1045: #End ExternalSource
Riga 1046: Me.lblAvviso = __ctrl
Riga 1047:
Riga 1048: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1049: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "info-form")
Riga 1050:
Riga 1051: #End ExternalSource
Riga 1052:
Riga 1053: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1054: __ctrl.ID = "lblAvviso"
Riga 1055:
Riga 1056: #End ExternalSource
Riga 1057: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Riga 1058:
Riga 1059: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1060: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Riga 1061:
Riga 1062: #End ExternalSource
Riga 1063: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
Riga 1064:
Riga 1065: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1066: __ctrl1 = Me.__BuildControlrichiesta
Riga 1067:
Riga 1068: #End ExternalSource
Riga 1069:
Riga 1070: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1071: __parser.AddParsedSubObject(__ctrl1)
Riga 1072:
Riga 1073: #End ExternalSource
Riga 1074:
Riga 1075: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",230)
Riga 1076: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Riga 1077:
Riga 1078: #End ExternalSource
Riga 1079: Return __ctrl
Riga 1080: End Function
Riga 1081:
Riga 1082: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1083: Private Function __BuildControlmeteoalto() As System.Web.UI.Control
Riga 1084: Dim __ctrl As Global.ASP.nl_meteoalto_ascx
Riga 1085:
Riga 1086: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",261)
Riga 1087: __ctrl = New Global.ASP.nl_meteoalto_ascx()
Riga 1088:
Riga 1089: #End ExternalSource
Riga 1090: Me.meteoalto = __ctrl
Riga 1091:
Riga 1092: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",261)
Riga 1093: __ctrl.InitializeAsUserControl(Me.Page)
Riga 1094:
Riga 1095: #End ExternalSource
Riga 1096:
Riga 1097: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",261)
Riga 1098: __ctrl.ID = "meteoalto"
Riga 1099:
Riga 1100: #End ExternalSource
Riga 1101: Return __ctrl
Riga 1102: End Function
Riga 1103:
Riga 1104: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1105: Private Function __BuildControlmenusx() As System.Web.UI.Control
Riga 1106: Dim __ctrl As Global.ASP.nl_menusx_ascx
Riga 1107:
Riga 1108: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",262)
Riga 1109: __ctrl = New Global.ASP.nl_menusx_ascx()
Riga 1110:
Riga 1111: #End ExternalSource
Riga 1112: Me.menusx = __ctrl
Riga 1113:
Riga 1114: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",262)
Riga 1115: __ctrl.InitializeAsUserControl(Me.Page)
Riga 1116:
Riga 1117: #End ExternalSource
Riga 1118:
Riga 1119: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",262)
Riga 1120: __ctrl.ID = "menusx"
Riga 1121:
Riga 1122: #End ExternalSource
Riga 1123: Return __ctrl
Riga 1124: End Function
Riga 1125:
Riga 1126: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1127: Private Function __BuildControlbanner() As System.Web.UI.Control
Riga 1128: Dim __ctrl As Global.ASP.nl_banner_ascx
Riga 1129:
Riga 1130: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",263)
Riga 1131: __ctrl = New Global.ASP.nl_banner_ascx()
Riga 1132:
Riga 1133: #End ExternalSource
Riga 1134: Me.banner = __ctrl
Riga 1135:
Riga 1136: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",263)
Riga 1137: __ctrl.InitializeAsUserControl(Me.Page)
Riga 1138:
Riga 1139: #End ExternalSource
Riga 1140:
Riga 1141: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",263)
Riga 1142: __ctrl.ID = "banner"
Riga 1143:
Riga 1144: #End ExternalSource
Riga 1145: Return __ctrl
Riga 1146: End Function
Riga 1147:
Riga 1148: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1149: Private Function __BuildControlfooter() As Global.ASP.nl_footer_ascx
Riga 1150: Dim __ctrl As Global.ASP.nl_footer_ascx
Riga 1151:
Riga 1152: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",275)
Riga 1153: __ctrl = New Global.ASP.nl_footer_ascx()
Riga 1154:
Riga 1155: #End ExternalSource
Riga 1156: Me.footer = __ctrl
Riga 1157:
Riga 1158: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",275)
Riga 1159: __ctrl.InitializeAsUserControl(Me.Page)
Riga 1160:
Riga 1161: #End ExternalSource
Riga 1162:
Riga 1163: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",275)
Riga 1164: __ctrl.ID = "footer"
Riga 1165:
Riga 1166: #End ExternalSource
Riga 1167: Return __ctrl
Riga 1168: End Function
Riga 1169:
Riga 1170: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1171: Private Sub __BuildControlTree(ByVal __ctrl As nl_offerte_aspx)
Riga 1172:
Riga 1173: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1174: __ctrl.EnableViewState = false
Riga 1175:
Riga 1176: #End ExternalSource
Riga 1177:
Riga 1178: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1179: Me.InitializeCulture
Riga 1180:
Riga 1181: #End ExternalSource
Riga 1182: System.Web.UI.StaticPartialCachingControl.BuildCachedControl(__ctrl, "header", "8007143f-3a55-465d-b4bb-d1973bcb1324", 3600, "titolo", Nothing, Nothing, Nothing, AddressOf Me.__BuildControlheader, Nothing)
Riga 1183: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Riga 1184:
Riga 1185: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1186: __ctrl1 = Me.__BuildControllblAvviso
Riga 1187:
Riga 1188: #End ExternalSource
Riga 1189: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Riga 1190:
Riga 1191: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1192: __parser.AddParsedSubObject(__ctrl1)
Riga 1193:
Riga 1194: #End ExternalSource
Riga 1195: System.Web.UI.StaticPartialCachingControl.BuildCachedControl(__ctrl, "meteoalto", "47c234e3-449b-4037-8e5a-7fefae5dc054", 3600, Nothing, Nothing, Nothing, Nothing, AddressOf Me.__BuildControlmeteoalto, Nothing)
Riga 1196: System.Web.UI.StaticPartialCachingControl.BuildCachedControl(__ctrl, "menusx", "f043c376-43a8-4e78-b63c-79a49e3413db", 86400, Nothing, Nothing, Nothing, Nothing, AddressOf Me.__BuildControlmenusx, Nothing)
Riga 1197: System.Web.UI.StaticPartialCachingControl.BuildCachedControl(__ctrl, "banner", "5d2d3e59-1cc5-4b16-9ed7-72953b17cb12", 86400, Nothing, Nothing, Nothing, Nothing, AddressOf Me.__BuildControlbanner, Nothing)
Riga 1198: Dim __ctrl2 As Global.ASP.nl_footer_ascx
Riga 1199:
Riga 1200: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1201: __ctrl2 = Me.__BuildControlfooter
Riga 1202:
Riga 1203: #End ExternalSource
Riga 1204:
Riga 1205: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",1)
Riga 1206: __parser.AddParsedSubObject(__ctrl2)
Riga 1207:
Riga 1208: #End ExternalSource
Riga 1209: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Riga 1210: End Sub
Riga 1211:
Riga 1212: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Riga 1213:
Riga 1214: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",17)
Riga 1215: Session.LCID = 1033
Riga 1216: Response.AppendHeader("X-UA-Compatible", "IE=edge")
Riga 1217: portale = System.Configuration.ConfigurationManager.AppSettings("portale").tostring()
Riga 1218: portalenome = System.Configuration.ConfigurationManager.AppSettings("portalenome").tostring()
Riga 1219: locx = System.Configuration.ConfigurationManager.AppSettings("locx").tostring()
Riga 1220: Dim conn As New MySqlConnection(ConfigurationManager.ConnectionStrings("ConnString").ConnectionString)
Riga 1221: Dim datareader As MySqlDataReader
Riga 1222:
Riga 1223: #End ExternalSource
Riga 1224:
Riga 1225: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",24)
Riga 1226:
Riga 1227: id1 = request("id1")
Riga 1228: id2 = request("id2")
Riga 1229: id3 = request("id3")
Riga 1230: id4 = request("id4")
Riga 1231: cosa = request("cosa")
Riga 1232: titolo = id2.replace("-", " ")
Riga 1233: barra = instr(id1,"/")
Riga 1234: lenid1 = len(id1)
Riga 1235: if barra <> 0 then
Riga 1236: id1 = left(id1,(barra-1))
Riga 1237: end if
Riga 1238: SQLCode = "SELECT strutture.latitudine, strutture.longitudine, offerte.id, offerte.titolo_o as titolo, offerte.prezzo, offerte.testo_o as testo, offerte.dal, offerte.al AS fine, tipologie.olandese as tipologia, strutture.id AS iddo, strutture.indirizzo, strutture.shiny, strutture.paragrafo1, strutture.Nome, strutture.Stelle, strutture.foto1, strutture.foto2, strutture.foto3, strutture.foto4, strutture.foto5, strutture.foto6, strutture.foto7, strutture.foto8, strutture.attivo, L_comuni.COMUNEIT, strutture_dove.portale FROM (((offerte LEFT JOIN strutture ON offerte.struttura = strutture.id) LEFT JOIN tipologie ON strutture.categoria = tipologie.id) LEFT JOIN strutture_dove ON strutture.id = strutture_dove.struttura) INNER JOIN L_comuni ON strutture_dove.comune = L_comuni.ID WHERE (((offerte.id)=" & id1 & "))"
Riga 1239: try
Riga 1240: Cmd = New MySqlCommand(SQLCode, conn)
Riga 1241: conn.Open()
Riga 1242: datareader = Cmd.ExecuteReader
Riga 1243: If datareader.HasRows Then
Riga 1244: datareader.Read()
Riga 1245: session("id") = datareader("iddo")
Riga 1246: giorno = day(datareader("dal"))
Riga 1247: mese = monthname(month(datareader("dal")))
Riga 1248: giorno2 = day(datareader("fine"))
Riga 1249: anno2 = year(datareader("fine"))
Riga 1250: mese2 = monthname(month(datareader("fine")))
Riga 1251: foto1 = datareader("foto1")
Riga 1252: tipologia = datareader("tipologia")
Riga 1253: nome = datareader("nome")
Riga 1254: stelle = datareader("stelle")
Riga 1255: localita = datareader("comuneit")
Riga 1256: testo = datareader("testo")
Riga 1257: titolo = datareader("titolo")
Riga 1258: indirizzo = datareader("indirizzo")
Riga 1259: shiny = datareader("shiny")
Riga 1260: foto1 = datareader("foto1")
Riga 1261: foto2 = datareader("foto2")
Riga 1262: foto3 = datareader("foto3")
Riga 1263: foto4 = datareader("foto4")
Riga 1264: foto5 = datareader("foto5")
Riga 1265: foto6 = datareader("foto6")
Riga 1266: foto7 = datareader("foto7")
Riga 1267: foto8 = datareader("foto8")
Riga 1268: paragrafo1 = datareader("paragrafo1")
Riga 1269: prezzo = datareader("prezzo")
Riga 1270: latitudine = datareader("latitudine")
Riga 1271: longitudine = datareader("longitudine")
Riga 1272: if prezzo = 0 then
Riga 1273: prezzo = "N.D."
Riga 1274: else
Riga 1275: prezzo = formatnumber(prezzo,2) & " €"
Riga 1276: end if
Riga 1277: else
Riga 1278: end if
Riga 1279: Cmd.Cancel()
Riga 1280: datareader.Dispose()
Riga 1281: Cmd.Dispose()
Riga 1282: SQLCode = Nothing
Riga 1283: strConn = Nothing
Riga 1284: conn.Close()
Riga 1285: Catch ex As Exception
Riga 1286: End try
Riga 1287: session("titolo") = titolo
Riga 1288:
Riga 1289:
Riga 1290: #End ExternalSource
Riga 1291: Me.WriteUTF8ResourceString(__w, 0, 281, true)
Riga 1292:
Riga 1293: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",97)
Riga 1294: __w.Write((ucase(titolo)))
Riga 1295:
Riga 1296:
Riga 1297: #End ExternalSource
Riga 1298: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""title"" content=""")
Riga 1299:
Riga 1300: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",98)
Riga 1301: __w.Write((ucase(titolo)))
Riga 1302:
Riga 1303:
Riga 1304: #End ExternalSource
Riga 1305: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META NAME=""Description"" CONTENT=""")
Riga 1306:
Riga 1307: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",99)
Riga 1308: __w.Write((left(testox,160)))
Riga 1309:
Riga 1310:
Riga 1311: #End ExternalSource
Riga 1312: Me.WriteUTF8ResourceString(__w, 281, 328, true)
Riga 1313:
Riga 1314: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",104)
Riga 1315: __w.Write((Request.ServerVariables("url")))
Riga 1316:
Riga 1317:
Riga 1318: #End ExternalSource
Riga 1319: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""author"" content=""Piramedia Srl"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""robots"" con"& _
Riga 1320: "tent=""INDEX,FOLLOW"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""creation_Date"" content=""13/12/2016"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta na"& _
Riga 1321: "me=""revisit-after"" content=""15 days"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta property=""og:title"" content="""& _
Riga 1322: "")
Riga 1323:
Riga 1324: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",111)
Riga 1325: __w.Write((titolo))
Riga 1326:
Riga 1327:
Riga 1328: #End ExternalSource
Riga 1329: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta property=""og:type"" content=""website"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta property=""og:url"" cont"& _
Riga 1330: "ent=""http://www.")
Riga 1331:
Riga 1332: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",113)
Riga 1333: __w.Write((lcase(portalenome.replace(" ","-"))))
Riga 1334:
Riga 1335:
Riga 1336: #End ExternalSource
Riga 1337:
Riga 1338: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",113)
Riga 1339: __w.Write((Request.ServerVariables("URL")))
Riga 1340:
Riga 1341:
Riga 1342: #End ExternalSource
Riga 1343: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta property=""og:image"" content=""http://www.")
Riga 1344:
Riga 1345: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",114)
Riga 1346: __w.Write((lcase(portalenome.replace(" ","-"))))
Riga 1347:
Riga 1348:
Riga 1349: #End ExternalSource
Riga 1350: __w.Write("/images/logo.png"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta property=""og:site_name"" content=""")
Riga 1351:
Riga 1352: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",115)
Riga 1353: __w.Write((locx))
Riga 1354:
Riga 1355:
Riga 1356: #End ExternalSource
Riga 1357: Me.WriteUTF8ResourceString(__w, 609, 604, true)
Riga 1358: parameterContainer.Controls(0).RenderControl(__w)
Riga 1359: Me.WriteUTF8ResourceString(__w, 1213, 552, true)
Riga 1360:
Riga 1361: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",147)
Riga 1362: __w.Write((titolo))
Riga 1363:
Riga 1364:
Riga 1365: #End ExternalSource
Riga 1366: __w.Write("</li></ul></section>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<section class=""about-cn clearfix"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1367:
Riga 1368: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",150)
Riga 1369: ' *******************************************
Riga 1370:
Riga 1371: #End ExternalSource
Riga 1372: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<section class=""head-detail"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""head-dt-cn"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""row"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<di"& _
Riga 1373: "v class=""col-sm-10""><div class=""start-address""><address class=""address""><h1><spa"& _
Riga 1374: "n style=""font-weight:400;"">")
Riga 1375:
Riga 1376: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",154)
Riga 1377: __w.Write((ucase(titolo)))
Riga 1378:
Riga 1379:
Riga 1380: #End ExternalSource
Riga 1381: __w.Write("</span></h1>")
Riga 1382:
Riga 1383: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",154)
Riga 1384: __w.Write((ucase(tipologia & " " & nome)))
Riga 1385:
Riga 1386:
Riga 1387: #End ExternalSource
Riga 1388: Me.WriteUTF8ResourceString(__w, 1765, 329, true)
Riga 1389:
Riga 1390: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",159)
Riga 1391: __w.Write((foto1))
Riga 1392:
Riga 1393:
Riga 1394: #End ExternalSource
Riga 1395: __w.Write(".ashx?mode=crop&width=1200&height=470&scale=both&quality=70&format=jpg"" alt=""")
Riga 1396:
Riga 1397: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",159)
Riga 1398: __w.Write((titolo))
Riga 1399:
Riga 1400:
Riga 1401: #End ExternalSource
Riga 1402: Me.WriteUTF8ResourceString(__w, 2094, 373, true)
Riga 1403:
Riga 1404: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",174)
Riga 1405: __w.Write((testo))
Riga 1406:
Riga 1407:
Riga 1408: #End ExternalSource
Riga 1409: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p style=""color: black;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<i style=""color:#59c45a"" class=""fa fa-user"" aria"& _
Riga 1410: "-hidden=""true""></i> Submitted by: ")
Riga 1411:
Riga 1412: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",176)
Riga 1413: __w.Write((tipologia & " " & nome))
Riga 1414:
Riga 1415:
Riga 1416: #End ExternalSource
Riga 1417: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<i style=""color:#59c45a"" class=""fa fa-calendar"" aria-hidden=""true""></i> Ava"& _
Riga 1418: "ilable since: ")
Riga 1419:
Riga 1420: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",177)
Riga 1421: __w.Write((giorno2))
Riga 1422:
Riga 1423:
Riga 1424: #End ExternalSource
Riga 1425: __w.Write(" ")
Riga 1426:
Riga 1427: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",177)
Riga 1428: __w.Write((mese2))
Riga 1429:
Riga 1430:
Riga 1431: #End ExternalSource
Riga 1432: __w.Write(" ")
Riga 1433:
Riga 1434: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",177)
Riga 1435: __w.Write((anno2))
Riga 1436:
Riga 1437:
Riga 1438: #End ExternalSource
Riga 1439: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<i style=""color:#59c45a"" class=""fa fa-eur"" aria-hidden=""true""></i> Price: ")
Riga 1440:
Riga 1441: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",178)
Riga 1442: __w.Write((prezzo))
Riga 1443:
Riga 1444:
Riga 1445: #End ExternalSource
Riga 1446: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<i style=""color:#59c45a"" class=""fa fa-map-marker"" aria-hidden=""true""></i> ")
Riga 1447:
Riga 1448: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",179)
Riga 1449: __w.Write((localita))
Riga 1450:
Riga 1451:
Riga 1452: #End ExternalSource
Riga 1453: Me.WriteUTF8ResourceString(__w, 2467, 476, true)
Riga 1454:
Riga 1455: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",198)
Riga 1456: __w.Write((foto1))
Riga 1457:
Riga 1458:
Riga 1459: #End ExternalSource
Riga 1460: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1461:
Riga 1462: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",198)
Riga 1463: __w.Write((foto1))
Riga 1464:
Riga 1465:
Riga 1466: #End ExternalSource
Riga 1467: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1468:
Riga 1469: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",198)
Riga 1470: __w.Write((titolo))
Riga 1471:
Riga 1472:
Riga 1473: #End ExternalSource
Riga 1474: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1475:
Riga 1476: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",199)
Riga 1477: __w.Write((foto2))
Riga 1478:
Riga 1479:
Riga 1480: #End ExternalSource
Riga 1481: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1482:
Riga 1483: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",199)
Riga 1484: __w.Write((foto2))
Riga 1485:
Riga 1486:
Riga 1487: #End ExternalSource
Riga 1488: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1489:
Riga 1490: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",199)
Riga 1491: __w.Write((titolo))
Riga 1492:
Riga 1493:
Riga 1494: #End ExternalSource
Riga 1495: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1496:
Riga 1497: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",200)
Riga 1498: __w.Write((foto3))
Riga 1499:
Riga 1500:
Riga 1501: #End ExternalSource
Riga 1502: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1503:
Riga 1504: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",200)
Riga 1505: __w.Write((foto3))
Riga 1506:
Riga 1507:
Riga 1508: #End ExternalSource
Riga 1509: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1510:
Riga 1511: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",200)
Riga 1512: __w.Write((titolo))
Riga 1513:
Riga 1514:
Riga 1515: #End ExternalSource
Riga 1516: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1517:
Riga 1518: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",201)
Riga 1519: __w.Write((foto4))
Riga 1520:
Riga 1521:
Riga 1522: #End ExternalSource
Riga 1523: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1524:
Riga 1525: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",201)
Riga 1526: __w.Write((foto4))
Riga 1527:
Riga 1528:
Riga 1529: #End ExternalSource
Riga 1530: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1531:
Riga 1532: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",201)
Riga 1533: __w.Write((titolo))
Riga 1534:
Riga 1535:
Riga 1536: #End ExternalSource
Riga 1537: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1538:
Riga 1539: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",202)
Riga 1540: __w.Write((foto5))
Riga 1541:
Riga 1542:
Riga 1543: #End ExternalSource
Riga 1544: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1545:
Riga 1546: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",202)
Riga 1547: __w.Write((foto5))
Riga 1548:
Riga 1549:
Riga 1550: #End ExternalSource
Riga 1551: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1552:
Riga 1553: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",202)
Riga 1554: __w.Write((titolo))
Riga 1555:
Riga 1556:
Riga 1557: #End ExternalSource
Riga 1558: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1559:
Riga 1560: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",203)
Riga 1561: __w.Write((foto6))
Riga 1562:
Riga 1563:
Riga 1564: #End ExternalSource
Riga 1565: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1566:
Riga 1567: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",203)
Riga 1568: __w.Write((foto6))
Riga 1569:
Riga 1570:
Riga 1571: #End ExternalSource
Riga 1572: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1573:
Riga 1574: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",203)
Riga 1575: __w.Write((titolo))
Riga 1576:
Riga 1577:
Riga 1578: #End ExternalSource
Riga 1579: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1580:
Riga 1581: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",204)
Riga 1582: __w.Write((foto7))
Riga 1583:
Riga 1584:
Riga 1585: #End ExternalSource
Riga 1586: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1587:
Riga 1588: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",204)
Riga 1589: __w.Write((foto7))
Riga 1590:
Riga 1591:
Riga 1592: #End ExternalSource
Riga 1593: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1594:
Riga 1595: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",204)
Riga 1596: __w.Write((titolo))
Riga 1597:
Riga 1598:
Riga 1599: #End ExternalSource
Riga 1600: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""https://foto.borghitoscani.com/")
Riga 1601:
Riga 1602: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",205)
Riga 1603: __w.Write((foto8))
Riga 1604:
Riga 1605:
Riga 1606: #End ExternalSource
Riga 1607: __w.Write(""" data-lightbox=""galleria""><img src=""https://foto.borghitoscani.com/")
Riga 1608:
Riga 1609: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",205)
Riga 1610: __w.Write((foto8))
Riga 1611:
Riga 1612:
Riga 1613: #End ExternalSource
Riga 1614: __w.Write(".ashx?mode=crop&width=135&height=120&quality=70&format=jpg"" alt=""")
Riga 1615:
Riga 1616: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",205)
Riga 1617: __w.Write((titolo))
Riga 1618:
Riga 1619:
Riga 1620: #End ExternalSource
Riga 1621: __w.Write("""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h3>")
Riga 1622:
Riga 1623: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",207)
Riga 1624: __w.Write((tipologia & " " & nome))
Riga 1625:
Riga 1626:
Riga 1627: #End ExternalSource
Riga 1628: __w.Write("</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<hr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>")
Riga 1629:
Riga 1630: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",209)
Riga 1631: __w.Write((paragrafo1))
Riga 1632:
Riga 1633:
Riga 1634: #End ExternalSource
Riga 1635: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>We are in <span style=""color:#59c45a"">")
Riga 1636:
Riga 1637: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",210)
Riga 1638: __w.Write((localita))
Riga 1639:
Riga 1640:
Riga 1641: #End ExternalSource
Riga 1642: __w.Write("</span>, ")
Riga 1643:
Riga 1644: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",210)
Riga 1645: __w.Write((indirizzo))
Riga 1646:
Riga 1647:
Riga 1648: #End ExternalSource
Riga 1649: Me.WriteUTF8ResourceString(__w, 2943, 435, true)
Riga 1650: parameterContainer.Controls(1).RenderControl(__w)
Riga 1651: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</section>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1652:
Riga 1653: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",249)
Riga 1654: ' *******************************************
Riga 1655:
Riga 1656: #End ExternalSource
Riga 1657: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<section class=""follow-about"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""share""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</section>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</section"& _
Riga 1658: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""col-md-3"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""sidebar-cn"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1659: parameterContainer.Controls(2).RenderControl(__w)
Riga 1660: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1661: parameterContainer.Controls(3).RenderControl(__w)
Riga 1662: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1663: parameterContainer.Controls(4).RenderControl(__w)
Riga 1664: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1665: parameterContainer.Controls(5).RenderControl(__w)
Riga 1666: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Riga 1667: Me.WriteUTF8ResourceString(__w, 3378, 1904, true)
Riga 1668:
Riga 1669: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",423)
Riga 1670: __w.Write((latitudine))
Riga 1671:
Riga 1672:
Riga 1673: #End ExternalSource
Riga 1674: __w.Write(", ")
Riga 1675:
Riga 1676: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",423)
Riga 1677: __w.Write((longitudine))
Riga 1678:
Riga 1679:
Riga 1680: #End ExternalSource
Riga 1681: Me.WriteUTF8ResourceString(__w, 5282, 291, true)
Riga 1682:
Riga 1683: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",428)
Riga 1684: __w.Write((latitudine))
Riga 1685:
Riga 1686:
Riga 1687: #End ExternalSource
Riga 1688: __w.Write(", ")
Riga 1689:
Riga 1690: #ExternalSource("e:\hosts\portali\terradeglietruschi.it\nl\offerte.aspx",428)
Riga 1691: __w.Write((longitudine))
Riga 1692:
Riga 1693:
Riga 1694: #End ExternalSource
Riga 1695: __w.Write("); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"var beachMarker = new google.maps.Marker({position: myLatLng, map: map, icon"& _
Riga 1696: ": image }); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"}"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"google.maps.event.addDomListener(window, 'load', initialize);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Riga 1697: "</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>")
Riga 1698: End Sub
Riga 1699:
Riga 1700: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1701: Protected Overrides Sub FrameworkInitialize()
Riga 1702: MyBase.FrameworkInitialize
Riga 1703: Me.SetStringResourcePointer(Global.ASP.nl_offerte_aspx.__stringResource, 0)
Riga 1704: Me.__BuildControlTree(Me)
Riga 1705: Me.AddWrappedFileDependencies(Global.ASP.nl_offerte_aspx.__fileDependencies)
Riga 1706: End Sub
Riga 1707:
Riga 1708: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1709: Public Overrides Function GetTypeHashCode() As Integer
Riga 1710: Return 1139633606
Riga 1711: End Function
Riga 1712:
Riga 1713: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Riga 1714: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Riga 1715: MyBase.ProcessRequest(context)
Riga 1716: End Sub
Riga 1717: End Class
Riga 1718: End Namespace
Riga 1719:
|