Line 1: #ExternalChecksum("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","D07E89B2F328EFEEE68668854997C460CFB9C3C6")
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.Configuration
Line 21: Imports System.Data.SqlClient
Line 22: Imports System.Text
Line 23: Imports System.Text.RegularExpressions
Line 24: Imports System.Web
Line 25: Imports System.Web.Caching
Line 26: Imports System.Web.Profile
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32: Imports System.Web.UI.WebControls.WebParts
Line 33:
Line 34: Namespace ASP
Line 35:
Line 36: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 37: Public Class contact_us_aspx
Line 38: Inherits Global.inc_masterpage
Line 39: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 40:
Line 41: Private Shared __initialized As Boolean
Line 42:
Line 43: Private Shared __stringResource As Object
Line 44:
Line 45: Private Shared __fileDependencies As Object
Line 46:
Line 47: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 48: Public Sub New()
Line 49: MyBase.New
Line 50: Dim dependencies() As String
Line 51: CType(Me,Global.inc_masterpage).AppRelativeVirtualPath = "~/contact-us.aspx"
Line 52: If (Global.ASP.contact_us_aspx.__initialized = false) Then
Line 53: Global.ASP.contact_us_aspx.__stringResource = Me.ReadStringResource
Line 54: dependencies = New String(1) {}
Line 55: dependencies(0) = "~/contact-us.aspx"
Line 56: dependencies(1) = "~/footer.aspx"
Line 57: Global.ASP.contact_us_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 58: Global.ASP.contact_us_aspx.__initialized = true
Line 59: End If
Line 60: Me.Server.ScriptTimeout = 30000000
Line 61: End Sub
Line 62:
Line 63: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 64: Get
Line 65: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 66: End Get
Line 67: End Property
Line 68:
Line 69: Protected ReadOnly Property ApplicationInstance() As ASP._global_asax
Line 70: Get
Line 71: Return CType(Me.Context.ApplicationInstance,ASP._global_asax)
Line 72: End Get
Line 73: End Property
Line 74:
Line 75: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 76: Private Sub __BuildControlTree(ByVal __ctrl As contact_us_aspx)
Line 77:
Line 78: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",1)
Line 79: __ctrl.EnableViewState = false
Line 80:
Line 81: #End ExternalSource
Line 82:
Line 83: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",1)
Line 84: __ctrl.EnableViewStateMac = false
Line 85:
Line 86: #End ExternalSource
Line 87:
Line 88: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",1)
Line 89: Me.InitializeCulture
Line 90:
Line 91: #End ExternalSource
Line 92: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 93: End Sub
Line 94:
Line 95: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 96: __w.Write("<!doctype html>"&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/1999/xhtml"" lang=""en-us"">"&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(10)&"<"& _
Line 97: "title>")
Line 98:
Line 99: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",4)
Line 100: __w.Write(RESI.Global.Functions.GetPageTitle(58897))
Line 101:
Line 102:
Line 103: #End ExternalSource
Line 104: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(10)&"<meta charset=""UTF-8"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""viewport"" content=""width=device-wid"& _
Line 105: "th, initial-scale=1, maximum-scale=1"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""format-detection"" content="""& _
Line 106: "telephone=yes"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<base href=""")
Line 107:
Line 108: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",8)
Line 109: __w.Write(HttpContext.Current.Application.Item("Basehref"))
Line 110:
Line 111:
Line 112: #End ExternalSource
Line 113: __w.Write(""" target=""_self"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""scripts/jquery.mobile.js"" type=""text/javascript"""& _
Line 114: "></script>"&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""css/jquery.mobile-1.0.css"" rel=""stylesheet"" type=""text/cs"& _
Line 115: "s"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""scripts/jquery.retina.js"" type=""text/javascript"" charset=""utf"& _
Line 116: "-8""></script>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 117:
Line 118: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",12)
Line 119: Line 120: Dim SentEmail As Boolean = FalseLine 121: Dim PropertyIdentifier As String = ""Line 122: If Trim("" & HttpContext.Current.Request.Form.Item("Email")) <> "" And Len(HttpContext.Current.Request.Form.Item("Email")) > 5 And InStr(HttpContext.Current.Request.Form.Item("Email"), "@") > 0 ThenLine 123: Dim emailcnt As Long = 0
Line 124: Dim EmailCountSQL As String = "select ISNULL(count(id),0) " + _
Line 125: "from RESI_EmailLog " + _
Line 126: "where datediff(year, cast(senddate as datetime), GETDATE()) = 0 and senderip is not null " + _
Line 127: "and (senderip like '" + CStr(HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")) + "%' Or ToAddress like '%" + HttpContext.Current.Request.Form.Item("Email") + "%') And datediff(day, cast(senddate as datetime), GETDATE()) < 5 "
Line 128: Dim EmailCountReader As SqlDataReader = RESI.Global.dbConn.Read(EmailCountSQL, 1)Line 129: If (EmailCountReader.HasRows()) ThenLine 130: EmailCountReader.Read()Line 131: emailcnt = CLng(EmailCountReader(0))Line 132: End IfLine 133: EmailCountReader.Close()
Line 134: EmailCountSQL = ""Line 135: Line 136: If emailcnt < 4 And RESI.Global.Functions.testRESiSpam(HttpContext.Current.Request.Form("Email"), CStr(HttpContext.Current.Request.ServerVariables("REMOTE_ADDR"))) ThenLine 137: Dim strEmail As String = ""Line 138: Dim strSubject As String = "General Contact form from Mobile App"Line 139: Dim ix As Integer = 0Line 140: Line 141: For ix = 0 To CLng("0" + (HttpContext.Current.Request.Form.Keys.Count - 1))Line 142: Dim FieldName = HttpContext.Current.Request.Form.GetKey(ix)Line 143: Dim FieldValue = Trim(HttpContext.Current.Request.Form(ix))Line 144: If FieldName <> "x" And FieldName <> "y" And FieldName <> "submit" And FieldValue <> "" ThenLine 145: If Replace(FieldName, "_", " ") = "mlslistingid" ThenLine 146: FieldName = "MLS Number"
Line 147: End IfLine 148: If Replace(FieldName, "_", " ") = "firstName" ThenLine 149: FieldName = "First Name"Line 150: End IfLine 151: If Replace(FieldName, "_", " ") = "lastName" ThenLine 152: FieldName = "Last Name"Line 153: End IfLine 154: strEmail += Replace(FieldName, "_", " ") & ": " & FieldValue & "<br />"Line 155: End IfLine 156: NextLine 157: Line 158: Dim strToEmail = Application("agentEmail" & ConfigurationManager.AppSettings("UserId"))Line 159: Dim strFrom = HttpContext.Current.Request.Form.Item("Email")Line 160: Line 161: If Trim("" & HttpContext.Current.Request.Item("advbid")) <> "" ThenLine 162: Dim BuildingArea As String = ""Line 163: Dim BuildingName As String = ""Line 164: Dim Address As String = ""Line 165: Dim strMLSSql As String = "SELECT BuildingArea, BuildingName, Address " + _Line 166: "FROM RESI.dbo.USERS_ADVANCEDBUILDINGS " + _Line 167: "WHERE [BUILDINGID] = '" & Left(HttpContext.Current.Request.Item("advbid"), 15) & "'"Line 168: Dim MLSReader As SqlDataReader = RESI.Global.dbConn.Read(strMLSSql, 1)Line 169: If (MLSReader.HasRows()) ThenLine 170: MLSReader.Read()Line 171: BuildingArea = "" & MLSReader("BuildingArea")Line 172: BuildingName = "" & MLSReader("BuildingName")Line 173: Address = "" & MLSReader("Address")Line 174: End IfLine 175: MLSReader.Close()Line 176: strSubject = "Mobile: Information request about " + BuildingNameLine 177: strEmail = "<div>" + HttpContext.Current.Request.Form.Item("Name") + " (" & HttpContext.Current.Request.Form.Item("Email") + ") has sent you this email about a property they like to see. <a href=""" + Replace(Replace(HttpContext.Current.Application.Item("Basehref"), "m.", "www."), "sunnyislesmiamirealestatemobile", "SunnyIslesMiamiRealEstate_build") + LCase(RESI.Functions.Functions.TrimASC(BuildingArea)) + "-condos/" + LCase(RESI.Functions.Functions.TrimASC(BuildingName)) + ".htm"">Click Link</a><br><br></div>" + strEmailLine 178: End IfLine 179: Line 180: If Trim("" & HttpContext.Current.Request.Item("sid")) <> "" ThenLine 181: Dim Subdivision_Area As String = ""Line 182: Dim Subdivision_Name As String = ""Line 183: Dim strMLSSql As String = "SELECT Subdivision_Area, Subdivision_Name " + _Line 184: "FROM RESI.dbo.USERS_SUBDIVISIONS " + _Line 185: "WHERE [SUBDIVISION_ID] = '" & Left(HttpContext.Current.Request.Item("sid"), 15) & "' "Line 186: Dim MLSReader As SqlDataReader = RESI.Global.dbConn.Read(strMLSSql, 1)Line 187: If (MLSReader.HasRows()) ThenLine 188: MLSReader.Read()Line 189: Subdivision_Area = "" & MLSReader("Subdivision_Area")Line 190: Subdivision_Name = "" & MLSReader("Subdivision_Name")Line 191: End IfLine 192: MLSReader.Close()Line 193: strSubject = "Mobile: Information request about " + Subdivision_NameLine 194: strEmail = "<div>" + HttpContext.Current.Request.Form.Item("Name") + " (" & HttpContext.Current.Request.Form.Item("Email") + ") has sent you this email about a property they like to see. <a href=""" + Replace(Replace(HttpContext.Current.Application.Item("Basehref"), "m.", "www."), "sunnyislesmiamirealestatemobile", "SunnyIslesMiamiRealEstate_build") + LCase(RESI.Functions.Functions.TrimASC(Subdivision_Area)) + "-homes/" + LCase(RESI.Functions.Functions.TrimASC(Subdivision_Name)) + ".htm"">Click Link</a><br><br></div>" + strEmailLine 195: End IfLine 196: Line 197: If Trim("" & HttpContext.Current.Request.Item("aid")) <> "" ThenLine 198: Dim AGENT_FULL_NAME As String = ""Line 199: Dim EMAIL As String = ""Line 200: Dim strMLSSql As String = "SELECT AGENT_FULL_NAME, EMAIL " + _Line 201: "FROM RESI.dbo.USERS_AGENTS " + _Line 202: "WHERE [ID] = '" & Left(HttpContext.Current.Request.Item("aid"), 15) & "' " + _Line 203: " AND USER_NAME = '" + HttpContext.Current.Application.Item("UserId") + "'"Line 204: Dim MLSReader As SqlDataReader = RESI.Global.dbConn.Read(strMLSSql, 1)Line 205: If (MLSReader.HasRows()) ThenLine 206: MLSReader.Read()Line 207: AGENT_FULL_NAME = "" & MLSReader("AGENT_FULL_NAME")Line 208: EMAIL = "" & MLSReader("EMAIL")Line 209: End IfLine 210: MLSReader.Close()Line 211: strToEmail += ";" + EMAILLine 212: strSubject = "Mobile: Information request from " + HttpContext.Current.Request.Form.Item("Name")Line 213: strEmail = "<div>" + HttpContext.Current.Request.Form.Item("Name") + " (" & HttpContext.Current.Request.Form.Item("Email") + ") has sent you this email .</div>" + strEmailLine 214: End IfLine 215: Line 216: If Trim("" & HttpContext.Current.Request.Item("mlslistingid")) <> "" ThenLine 217: Dim City As String = ""Line 218: Dim mlslistingid As String = ""Line 219: Dim thefullAddress As String = ""Line 220: Dim strMLSSql As String = "SELECT ADDRESS, CITY, PROPERTY_STATE_ID, ZIP_CODE, MLS_LISTING_ID " + _Line 221: "FROM RESI.dbo.MLS " + _Line 222: "WHERE [MLS_LISTING_ID] = '" & Left(HttpContext.Current.Request.Item("mlslistingid"), 15) & "'"Line 223: Dim MLSReader As SqlDataReader = RESI.Global.dbConn.Read(strMLSSql, 1)Line 224: If (MLSReader.HasRows()) ThenLine 225: MLSReader.Read()Line 226: mlslistingid = "" & MLSReader("MLS_LISTING_ID")Line 227: City = "" & MLSReader("CITY")Line 228: thefullAddress = " " & MLSReader("ADDRESS").ToString & " " & MLSReader("CITY").ToString & ", " & MLSReader("PROPERTY_STATE_ID").ToString & " " & MLSReader("ZIP_CODE").ToStringLine 229: End IfLine 230: MLSReader.Close()Line 231: strSubject = "Mobile: Information request about MLS Listing " + mlslistingid + thefullAddressLine 232: strEmail = "<div>" & HttpContext.Current.Request.Form.Item("Name") & " (" & HttpContext.Current.Request.Form.Item("Email") & ") has sent you this email about a property they like to see. <a href=""" & Replace(Replace(HttpContext.Current.Application.Item("Basehref"), "m.", "www."), "sunnyislesmiamirealestatemobile", "SunnyIslesMiamiRealEstate_build") & LCase(RESI.Functions.Functions.TrimASC(City)) & "-mls-listing/" & mlslistingid & ".htm"">Click Link</a><br><br></div>" & strEmailLine 233: End IfLine 234: Line 235: Line 236: RESI.Global.Functions.SendEmail(strToEmail, "donotreply@resionline.com", strSubject, strEmail, , , Net.Mail.MailPriority.Normal, , "Information request from Mobile App. about MLS Listing " + Left(HttpContext.Current.Request.Item("mid"), 15))Line 237: SentEmail = TrueLine 238: Line 239: Dim thanksEmailTo As String = Trim(HttpContext.Current.Request.Form.Item("Email"))
Line 240: Dim thanksEmailFrom As String = strToEmail
Line 241: Dim thanksEmailSubject As String = "Thank you for contacting Douglas Elliman Residential!"
Line 242: Dim thanksEmailBody As String = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
Line 243: "<tr><td height=""15""></td></tr>" & _
Line 244: "<tr><td valign=""top"" style=""padding-left: 10px;""><font face=""Verdana, Arial, Helvetica, sans-serif"" color=""#333333"">" & _
Line 245: "Dear " & HttpContext.Current.Request.Form.Item("firstName") & Space(1) & HttpContext.Current.Request.Form.Item("lastName") & ",<br><br>" & _
Line 246: "My name is Lana Bell, I am a licensed real estate professional who specializes in the areas you are searching. I, or someone from my team will " & _
Line 247: " be in touch with you within 24 hours to discuss your home search. In the meantime, please feel free to contact me at any time. " & _
Line 248: "<br><br>Your request was received: <br><br>" & strEmail & _
Line 249: "<br><br></font></td></tr>" & _
Line 250: "</table>"Line 251: Line 252: RESI.Global.Functions.SendEmail(thanksEmailTo, strToEmail, thanksEmailSubject, thanksEmailBody, , , Net.Mail.MailPriority.Normal, , "Information request from Mobile App.")Line 253: Line 254: Line 255: End IfLine 256: End If
Line 257: Line 258:
Line 259:
Line 260: #End ExternalSource
Line 261: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"" src=""scripts/gen_validatorv2.js""></script>"&Global.Microsoft.VisualBasic.ChrW(10)&"<link "& _
Line 262: "rel=""canonical"" href=""")
Line 263:
Line 264: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",153)
Line 265: __w.Write(HttpContext.Current.Application.Item("footerAgentHomePage" + HttpContext.Current.Application.Item("UserId")))
Line 266:
Line 267:
Line 268: #End ExternalSource
Line 269: Me.WriteUTF8ResourceString(__w, 26588, 696, true)
Line 270:
Line 271: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",164)
Line 272: __w.Write(RESI.Global.Functions.GetPageH2(58897))
Line 273:
Line 274:
Line 275: #End ExternalSource
Line 276: __w.Write("</h2>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul class=""contactList"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <li> </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 277: " <li><strong>")
Line 278:
Line 279: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",167)
Line 280: __w.Write(Application("officeName" & ConfigurationManager.AppSettings("UserId")))
Line 281:
Line 282:
Line 283: #End ExternalSource
Line 284: __w.Write("</strong></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li><strong>")
Line 285:
Line 286: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",168)
Line 287: __w.Write(Application("agentName" & ConfigurationManager.AppSettings("UserId")))
Line 288:
Line 289:
Line 290: #End ExternalSource
Line 291: __w.Write("</strong></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 292:
Line 293: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",169)
Line 294: __w.Write(Application("agentAddress" & ConfigurationManager.AppSettings("UserId")))
Line 295:
Line 296:
Line 297: #End ExternalSource
Line 298: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 299:
Line 300: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",170)
Line 301: __w.Write(Application("agentCity" & ConfigurationManager.AppSettings("UserId")))
Line 302:
Line 303:
Line 304: #End ExternalSource
Line 305: __w.Write(" ")
Line 306:
Line 307: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",170)
Line 308: __w.Write(Application("agentState" & ConfigurationManager.AppSettings("UserId")))
Line 309:
Line 310:
Line 311: #End ExternalSource
Line 312: __w.Write(" ")
Line 313:
Line 314: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",170)
Line 315: __w.Write(Application("agentZip" & ConfigurationManager.AppSettings("UserId")))
Line 316:
Line 317:
Line 318: #End ExternalSource
Line 319: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Office: <a href=""tel:")
Line 320:
Line 321: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",171)
Line 322: __w.Write(RESI.Functions.Functions.CleanB(Application("officePhone" & ConfigurationManager.AppSettings("UserId"))))
Line 323:
Line 324:
Line 325: #End ExternalSource
Line 326: __w.Write(""" rel=""external"">")
Line 327:
Line 328: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",171)
Line 329: __w.Write(Application("officePhone" & ConfigurationManager.AppSettings("UserId")))
Line 330:
Line 331:
Line 332: #End ExternalSource
Line 333: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Email: <a href=""mailto:")
Line 334:
Line 335: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",173)
Line 336: __w.Write(Application("agentEmail" & ConfigurationManager.AppSettings("UserId")))
Line 337:
Line 338:
Line 339: #End ExternalSource
Line 340: __w.Write(""" rel=""external"">")
Line 341:
Line 342: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",173)
Line 343: __w.Write(Application("agentEmail" & ConfigurationManager.AppSettings("UserId")))
Line 344:
Line 345:
Line 346: #End ExternalSource
Line 347: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li> </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 348: " </ul>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 349:
Line 350: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",178)
Line 351: Line 352: If (Trim("" & HttpContext.Current.Request.Item("aid")) <> "") ThenLine 353: Dim AID As String = ""Line 354: Dim AGENT_FULL_NAME As String = ""Line 355: Dim DESIGNATION As String = ""Line 356: Dim EMAIL As String = ""Line 357: Dim PICTURE As String = ""Line 358: Dim selectedPhone As String = "" Line 359: Line 360: Dim strSql As String = "SELECT ID, AGENT_FULL_NAME, DESIGNATION, EMAIL, PICTURE, " + _Line 361: "'selectedPhone' = Case When (a.Agent_Direct_Line_Area_Code IS NULL OR a.Agent_Direct_Line IS NULL) AND (a.office_Area_Code IS NOT NULL AND a.office_Phone IS NOT NULL) Then ('Phone: ' + a.office_Area_Code + Space(1) + a.office_Phone) " + _Line 362: " When a.Agent_Direct_Line_Area_Code IS NOT NULL AND a.Agent_Direct_Line IS NOT NULL Then ('Phone: ' + a.Agent_Direct_Line_Area_Code + Space(1) + a.Agent_Direct_Line) " + _Line 363: " When defaultPhone = '0' Then ('Phone: ' + a.office_Area_Code + Space(1) + a.office_Phone) " + _Line 364: " When defaultPhone = '1' Then ('Phone: ' + a.office_Area_Code2 + Space(1) + a.office_Phone2) " + _Line 365: " When defaultPhone = '2' Then ('Phone: ' + a.Agent_Direct_Line_Area_Code + Space(1) + a.Agent_Direct_Line) " + _Line 366: " When defaultPhone = '3' Then ('Phone: ' + a.fax_Area_Code + Space(1) + a.fax_Phone) " + _Line 367: " When defaultPhone = '4' Then ('Phone: ' + a.home_Area_Code + Space(1) + a.home_Phone) " + _Line 368: " When defaultPhone = '5' Then ('Phone: ' + a.mobile_Area_Code + Space(1) + a.mobile_Phone) " + _Line 369: " End " + _Line 370: "FROM RESI.dbo.USERS_AGENTS a " + _Line 371: "WHERE [ID] = '" & Left(HttpContext.Current.Request.Item("aid"), 15) & "' " + _Line 372: " AND USER_NAME = '" + HttpContext.Current.Application.Item("UserId") + "'"Line 373: Dim Reader As SqlDataReader = RESI.Global.dbConn.Read(strSql, 1)Line 374: If (Reader.HasRows()) ThenLine 375: Reader.Read()Line 376: AID = "" & Reader("ID")Line 377: AGENT_FULL_NAME = "" & Reader("AGENT_FULL_NAME")Line 378: DESIGNATION = "" & Reader("DESIGNATION")Line 379: EMAIL = "" & Reader("EMAIL") Line 380: PICTURE = "" & Reader("PICTURE") Line 381: selectedPhone = "" & Reader("selectedPhone") Line 382: End IfLine 383: Reader.Close() Line 384: Line 385:
Line 386:
Line 387: #End ExternalSource
Line 388: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul data-role=""listview"" data-theme=""d"" class="& _
Line 389: """resultsGrid"" style=""margin:0;""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li id=""rg")
Line 390:
Line 391: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",215)
Line 392: __w.Write(AID)
Line 393:
Line 394:
Line 395: #End ExternalSource
Line 396: __w.Write(""" data-icon=""resultsArrow"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""our-team/")
Line 397:
Line 398: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",216)
Line 399: __w.Write(LCASE(RESI.Functions.Functions.TrimASC(AGENT_FULL_NAME)))
Line 400:
Line 401:
Line 402: #End ExternalSource
Line 403: __w.Write(".htm"" rel=""external"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""http://resionline.com"& _
Line 404: "/megatemplate/uploads/agents/")
Line 405:
Line 406: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",217)
Line 407: __w.Write(PICTURE)
Line 408:
Line 409:
Line 410: #End ExternalSource
Line 411: __w.Write(""" alt="""" class=""agentsThumb"" onerror=""this.src='http://resionline.com/megatemplat"& _
Line 412: "e/images/noagentphoto/1/noagentphoto.gif';"" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span"& _
Line 413: " class=""agentsTitle"">")
Line 414:
Line 415: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",218)
Line 416: __w.Write(AGENT_FULL_NAME)
Line 417:
Line 418:
Line 419: #End ExternalSource
Line 420: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""agentsItem"">")
Line 421:
Line 422: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",219)
Line 423: __w.Write(DESIGNATION)
Line 424:
Line 425:
Line 426: #End ExternalSource
Line 427: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""agentsItem"">")
Line 428:
Line 429: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",220)
Line 430: __w.Write(selectedPhone)
Line 431:
Line 432:
Line 433: #End ExternalSource
Line 434: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""agentsItem"">Email: ")
Line 435:
Line 436: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",221)
Line 437: __w.Write(EMAIL)
Line 438:
Line 439:
Line 440: #End ExternalSource
Line 441: __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(10)&" </a>"&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" </"& _
Line 442: "ul>"&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 443:
Line 444: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",226)
Line 445: End If
Line 446:
Line 447: #End ExternalSource
Line 448:
Line 449: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",227)
Line 450: Line 451: If (Trim("" & HttpContext.Current.Request.Item("advbid")) <> "") ThenLine 452: Dim BUILDINGAREA As String = ""Line 453: Dim BUILDINGID As String = ""Line 454: Dim BuildingImage As String = ""Line 455: Dim BUILDINGNAME As String = ""Line 456: Dim BuildingPriceRange As String = ""Line 457: Dim GALLERYID As String = ""Line 458: Dim ADDRESS As String = ""Line 459: Line 460: Dim strSql As String = "SELECT BUILDINGAREA, BUILDINGID, BUILDINGNAME, ADDRESS, GALLERYID " + _Line 461: "FROM RESI.dbo.USERS_ADVANCEDBUILDINGS " + _Line 462: "WHERE [BUILDINGID] = '" & Left(HttpContext.Current.Request.Item("advbid"), 15) & "' "Line 463: Dim Reader As SqlDataReader = RESI.Global.dbConn.Read(strSql, 1)Line 464: If (Reader.HasRows()) ThenLine 465: Reader.Read()Line 466: BUILDINGAREA = "" & Reader("BUILDINGAREA")Line 467: BUILDINGID = "" & Reader("BUILDINGID")Line 468: BUILDINGNAME = "" & Reader("BUILDINGNAME")Line 469: GALLERYID = "" & Reader("GALLERYID") Line 470: ADDRESS = "" & Reader("ADDRESS") Line 471: PropertyIdentifier = "Condo: " & BUILDINGNAMELine 472: End IfLine 473: Reader.Close()Line 474: Line 475: If CLng("0" & GalleryID) > 0 ThenLine 476: BuildingImage = "images/noimagefound.jpg"Line 477: Dim mainimageSQL As String = "wsp_GetPhotoGalleryMainPicture '" + GalleryID + "'"Line 478: Dim mainimageReader As SqlDataReader = RESI.Global.dbConn.Read(mainimageSQL, 0)Line 479: If (mainimageReader.HasRows()) ThenLine 480: mainimageReader.Read()Line 481: BuildingImage = "<img src=""/megatemplate/uploads/photogallery_images/" + mainimageReader("PicName") + """ alt=""" + BUILDINGNAME + """ class=""resultThumb"" />" Line 482: End IfLine 483: mainimageReader.Close() Line 484: End IfLine 485: Line 486: Dim PriceRangeSQL As String = "wsp_GetMLSListingsByAdvancedBuildingID '" + BUILDINGID + "','SALE_PRICE Desc','','','" + HttpContext.Current.Application.Item("UserId") + "','" + HttpContext.Current.Application.Item("UserId") + "','','Sales','',1"Line 487: Dim PriceRangeReader As SqlDataReader = RESI.Global.dbConn.Read(PriceRangeSQL, 0)Line 488: If (PriceRangeReader.HasRows()) ThenLine 489: PriceRangeReader.Read()Line 490: If Trim("" & PriceRangeReader("MinPrice")) <> "" And Trim("" & PriceRangeReader("MaxPrice")) <> "" ThenLine 491: BuildingPriceRange = FormatCurrency(PriceRangeReader("MinPrice"), 0) & " - " & FormatCurrency(PriceRangeReader("MaxPrice"), 0)Line 492: ElseLine 493: BuildingPriceRange = "N/A"Line 494: End IfLine 495: ElseLine 496: BuildingPriceRange = "N/A"Line 497: End IfLine 498: PriceRangeReader.Close()Line 499:
Line 500:
Line 501: #End ExternalSource
Line 502: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul data-role=""listview"" data-theme=""d"" class="& _
Line 503: """resultsGrid"" style=""margin:0;""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li id=""rg")
Line 504:
Line 505: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",279)
Line 506: __w.Write(BUILDINGID)
Line 507:
Line 508:
Line 509: #End ExternalSource
Line 510: __w.Write(""" data-icon=""resultsArrow"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""")
Line 511:
Line 512: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",280)
Line 513: __w.Write(LCase(RESI.Functions.Functions.TrimASC(BUILDINGAREA)))
Line 514:
Line 515:
Line 516: #End ExternalSource
Line 517: __w.Write("-condos/")
Line 518:
Line 519: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",280)
Line 520: __w.Write(LCase(RESI.Functions.Functions.TrimASC(BUILDINGNAME)))
Line 521:
Line 522:
Line 523: #End ExternalSource
Line 524: __w.Write(".htm"" rel=""external"">"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 525:
Line 526: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",281)
Line 527: __w.Write(BuildingImage )
Line 528:
Line 529:
Line 530: #End ExternalSource
Line 531: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultTitle"">")
Line 532:
Line 533: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",282)
Line 534: __w.Write(BUILDINGNAME)
Line 535:
Line 536:
Line 537: #End ExternalSource
Line 538: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">")
Line 539:
Line 540: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",283)
Line 541: __w.Write(ADDRESS)
Line 542:
Line 543:
Line 544: #End ExternalSource
Line 545: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">Price Range: ")
Line 546:
Line 547: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",284)
Line 548: __w.Write(BuildingPriceRange )
Line 549:
Line 550:
Line 551: #End ExternalSource
Line 552: __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(10)&" </a> "&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 553: " </ul>"&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 554:
Line 555: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",289)
Line 556: End If
Line 557:
Line 558: #End ExternalSource
Line 559:
Line 560: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",290)
Line 561: Line 562: If (Trim("" & HttpContext.Current.Request.Item("sid")) <> "") ThenLine 563: Dim SUBDIVISION_AREA As String = ""Line 564: Dim SUBDIVISION_ID As String = ""Line 565: Dim SubdivisionImage As String = ""Line 566: Dim SUBDIVISION_NAME As String = ""Line 567: Line 568: Dim SubdivisionPriceRange As String = ""Line 569: Dim SubdivisionRentalRange As String = ""Line 570: Dim GALLERYID As String = ""Line 571: Dim Zip_Code AS String = ""Line 572: Line 573: Line 574: Dim strSql As String = "SELECT SUBDIVISION_AREA, SUBDIVISION_ID, SUBDIVISION_NAME, GALLERYID, ZIP_CODE " + _Line 575: "FROM RESI.dbo.USERS_SUBDIVISIONS " + _Line 576: "WHERE [SUBDIVISION_ID] = '" & Left(HttpContext.Current.Request.Item("sid"), 15) & "' "Line 577: Dim Reader As SqlDataReader = RESI.Global.dbConn.Read(strSql, 1)Line 578: If (Reader.HasRows()) ThenLine 579: Reader.Read()Line 580: SUBDIVISION_AREA = "" & Reader("SUBDIVISION_AREA")Line 581: SUBDIVISION_ID = "" & Reader("SUBDIVISION_ID") Line 582: SUBDIVISION_NAME = "" & Reader("SUBDIVISION_NAME")Line 583: Line 584: GALLERYID = "" & Reader("GALLERYID") Line 585: Zip_Code = "" & Reader("ZIP_CODE") Line 586: PropertyIdentifier = "Community: " & SUBDIVISION_NAME Line 587: End IfLine 588: Reader.Close()Line 589: Line 590: SubdivisionImage = "<img src=""images/noimagefound.jpg"" alt=""" + SUBDIVISION_NAME + """ class=""resultThumb"" />"Line 591: Dim mainimageSQL As String = "wsp_GetPhotoGalleryMainPicture '" + GalleryID + "'"Line 592: Dim mainimageReader As SqlDataReader = RESI.Global.dbConn.Read(mainimageSQL, 0)Line 593: If (mainimageReader.HasRows()) ThenLine 594: mainimageReader.Read()Line 595: SubdivisionImage = "<img src=""/megatemplate/uploads/photogallery_images/" + mainimageReader("PicName") + """ alt=""" + Subdivision_Name + """ class=""resultThumb"" />" Line 596: ElseLine 597: Dim mainimageReader2 As SqlDataReader = RESI.Global.dbConn.Read("EXEC wsp_GetSelectedCommunityDetailsBySubdivisionID '" + SUBDIVISION_ID + "',1", 0)Line 598: If (mainimageReader2.HasRows()) ThenLine 599: mainimageReader2.Read()Line 600: SubdivisionImage = "<img src=""" + mainimageReader2("PHOTO_URL") + """ alt=""" + SUBDIVISION_NAME + """ class=""resultThumb"" />"Line 601: End IfLine 602: mainimageReader2.Close()Line 603: End IfLine 604: mainimageReader.Close()Line 605: Line 606: Dim PriceRangeSQL As String = "EXEC wsp_GetSubdivisionMLSListingsPriceRange_Sales '" + Subdivision_Id + "','" + Zip_Code + "'"Line 607: Dim PriceRangeReader As SqlDataReader = RESI.Global.dbConn.Read(PriceRangeSQL, 0)Line 608: If (PriceRangeReader.HasRows()) ThenLine 609: PriceRangeReader.Read()Line 610: If Trim("" & PriceRangeReader("MinPrice")) <> "" And Trim("" & PriceRangeReader("MaxPrice")) <> "" ThenLine 611: SubdivisionPriceRange = FormatCurrency(PriceRangeReader("MinPrice"), 0) & " - " & FormatCurrency(PriceRangeReader("MaxPrice"), 0)Line 612: ElseLine 613: SubdivisionPriceRange = "N/A"Line 614: End IfLine 615: ElseLine 616: SubdivisionPriceRange = "N/A"Line 617: End IfLine 618: PriceRangeReader.Close()Line 619: Line 620: Dim RentalRangeSQL As String = "EXEC wsp_GetSubdivisionMLSListingsPriceRange_Rental '" + Subdivision_Id + "','" + Zip_Code + "'"Line 621: Dim RentalRangeReader As SqlDataReader = RESI.Global.dbConn.Read(RentalRangeSQL, 0)Line 622: If (RentalRangeReader.HasRows()) ThenLine 623: RentalRangeReader.Read()Line 624: If Trim("" & RentalRangeReader("MinPrice")) <> "" And Trim("" & RentalRangeReader("MaxPrice")) <> "" ThenLine 625: SubdivisionRentalRange = FormatCurrency(RentalRangeReader("MinPrice"), 0) & " - " & FormatCurrency(RentalRangeReader("MaxPrice"), 0)Line 626: ElseLine 627: SubdivisionRentalRange = "N/A"Line 628: End IfLine 629: ElseLine 630: SubdivisionRentalRange = "N/A"Line 631: End IfLine 632: RentalRangeReader.Close()Line 633: Line 634:
Line 635:
Line 636: #End ExternalSource
Line 637: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul data-role=""listview"" data-theme=""d"" class="& _
Line 638: """resultsGrid"" style=""margin:0;""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li id=""rg")
Line 639:
Line 640: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",366)
Line 641: __w.Write(SUBDIVISION_ID)
Line 642:
Line 643:
Line 644: #End ExternalSource
Line 645: __w.Write(""" data-icon=""resultsArrow"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""")
Line 646:
Line 647: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",367)
Line 648: __w.Write(LCase(RESI.Functions.Functions.TrimASC(SUBDIVISION_AREA)))
Line 649:
Line 650:
Line 651: #End ExternalSource
Line 652: __w.Write("-homes/")
Line 653:
Line 654: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",367)
Line 655: __w.Write(LCase(RESI.Functions.Functions.TrimASC(SUBDIVISION_NAME)))
Line 656:
Line 657:
Line 658: #End ExternalSource
Line 659: __w.Write(".htm"" rel=""external"">"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 660:
Line 661: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",368)
Line 662: __w.Write(SubdivisionImage)
Line 663:
Line 664:
Line 665: #End ExternalSource
Line 666: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultTitle"">")
Line 667:
Line 668: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",369)
Line 669: __w.Write(SUBDIVISION_NAME)
Line 670:
Line 671:
Line 672: #End ExternalSource
Line 673: __w.Write("</span><br>"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">Price Range: ")
Line 674:
Line 675: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",370)
Line 676: __w.Write(SubdivisionPriceRange)
Line 677:
Line 678:
Line 679: #End ExternalSource
Line 680: __w.Write("</span><br> "&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">Rental Price Ra"& _
Line 681: "nge: ")
Line 682:
Line 683: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",371)
Line 684: __w.Write(SubdivisionRentalRange)
Line 685:
Line 686:
Line 687: #End ExternalSource
Line 688: __w.Write("</span> "&Global.Microsoft.VisualBasic.ChrW(10)&" </a>"&Global.Microsoft.VisualBasic.ChrW(10)&" </li> "&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 689: "</ul>"&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 690:
Line 691: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",376)
Line 692: End If
Line 693:
Line 694: #End ExternalSource
Line 695:
Line 696: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",378)
Line 697: Line 698: If (Trim("" & HttpContext.Current.Request.Item("mid")) <> "") ThenLine 699: Dim Address As String = ""Line 700: Dim BATHS_FULL As String = ""Line 701: Dim BEDROOMS As String = ""Line 702: Dim City As String = ""Line 703: Dim MLS_OFFICE_NAME As String = ""Line 704: Dim Pic As String = ""Line 705: Dim Price As String = ""Line 706: Dim Ptype As String = ""Line 707: Dim State As String = ""Line 708: Dim Subdivision As String = ""Line 709: Dim Zip As String = ""Line 710: Line 711: Dim strSql As String = "SELECT MLS_OFFICE_NAME, ADDRESS, BEDROOMS, BATHS_FULL, CITY, PHOTO_URL, SALE_PRICE, PROP_TYPE_DESCRIPTION, PROPERTY_STATE_ID, SUBDIVISION, ZIP_CODE " + _Line 712: "FROM RESI.dbo.MLS " + _Line 713: "WHERE [MLS_LISTING_ID] = '" & Left(HttpContext.Current.Request.Item("mid"), 15) & "'"Line 714: Dim Reader As SqlDataReader = RESI.Global.dbConn.Read(strSql, 1)Line 715: If (Reader.HasRows()) ThenLine 716: Reader.Read()Line 717: Address = "" & Reader("ADDRESS")Line 718: BATHS_FULL = "" & Reader("BATHS_FULL")Line 719: BEDROOMS = "" & Reader("BEDROOMS")Line 720: City = "" & Reader("CITY")Line 721: MLS_OFFICE_NAME = "" & Reader("MLS_OFFICE_NAME")Line 722: Pic = "" & Reader("PHOTO_URL")Line 723: Price = FormatCurrency(CLng("0" + Reader("SALE_PRICE")), 0)Line 724: Ptype = "" & Reader("PROP_TYPE_DESCRIPTION")Line 725: State = "" & Reader("PROPERTY_STATE_ID")Line 726: Subdivision = "" & Reader("SUBDIVISION")Line 727: Zip = "" & Reader("ZIP_CODE")Line 728: PropertyIdentifier = "Property Address: " & AddressLine 729: End IfLine 730: Reader.Close()Line 731: Line 732:
Line 733:
Line 734: #End ExternalSource
Line 735: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul data-role=""listview"" data-theme=""d"" class="& _
Line 736: """resultsGrid"" style=""margin:0;""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li id=""rg")
Line 737:
Line 738: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",416)
Line 739: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 740:
Line 741:
Line 742: #End ExternalSource
Line 743: __w.Write(""" data-icon=""resultsArrow""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <a href=""details.aspx?mls=")
Line 744:
Line 745: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",417)
Line 746: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 747:
Line 748:
Line 749: #End ExternalSource
Line 750: __w.Write(""" rel=""external"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""")
Line 751:
Line 752: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",418)
Line 753: __w.Write(Replace(Pic, "http:", "https:"))
Line 754:
Line 755:
Line 756: #End ExternalSource
Line 757: __w.Write(""" alt="""" class=""resultThumb"" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultTi"& _
Line 758: "tle"">")
Line 759:
Line 760: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",419)
Line 761: __w.Write(Address)
Line 762:
Line 763:
Line 764: #End ExternalSource
Line 765: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">")
Line 766:
Line 767: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",420)
Line 768: __w.Write(Price)
Line 769:
Line 770:
Line 771: #End ExternalSource
Line 772: __w.Write(" <span>")
Line 773:
Line 774: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",420)
Line 775: __w.Write(BEDROOMS)
Line 776:
Line 777:
Line 778: #End ExternalSource
Line 779: __w.Write(" Bed / ")
Line 780:
Line 781: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",420)
Line 782: __w.Write(BATHS_FULL)
Line 783:
Line 784:
Line 785: #End ExternalSource
Line 786: __w.Write(" Bath</span></span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">")
Line 787:
Line 788: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",421)
Line 789: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 790:
Line 791:
Line 792: #End ExternalSource
Line 793: __w.Write(" </span>		<span class=""propType"">")
Line 794:
Line 795: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",421)
Line 796: __w.Write(Ptype)
Line 797:
Line 798:
Line 799: #End ExternalSource
Line 800: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <b style=""font-size:xx-small;"">Courtesy"& _
Line 801: " of ")
Line 802:
Line 803: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",422)
Line 804: __w.Write(MLS_OFFICE_NAME)
Line 805:
Line 806:
Line 807: #End ExternalSource
Line 808: __w.Write("</b>"&Global.Microsoft.VisualBasic.ChrW(10)&" </a> "&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" </ul"& _
Line 809: ">"&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 810:
Line 811: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",427)
Line 812: End If
Line 813:
Line 814: #End ExternalSource
Line 815: Me.WriteUTF8ResourceString(__w, 27284, 481, true)
Line 816:
Line 817: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",436)
Line 818: If SentEmail Then
Line 819:
Line 820: #End ExternalSource
Line 821: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <p>"&Global.Microsoft.VisualBasic.ChrW(10)&" <strong>Thank you.</strong></p>"&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 822: " <p>"&Global.Microsoft.VisualBasic.ChrW(10)&" Your email has been sent successfully.</p>"&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 823: " ")
Line 824:
Line 825: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",441)
Line 826: Else
Line 827:
Line 828: #End ExternalSource
Line 829: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <form action=""contact-us.aspx"" method=""post"" name=""riform"" id=""r"& _
Line 830: "iform"" data-ajax=""false"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""Property"" i"& _
Line 831: "d=""Property"" value=""")
Line 832:
Line 833: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",443)
Line 834: __w.Write(PropertyIdentifier)
Line 835:
Line 836:
Line 837: #End ExternalSource
Line 838: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""advbid"" id=""advbid"" value=""")
Line 839:
Line 840: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",444)
Line 841: __w.Write(Left(HttpContext.Current.Request.Item("advbid"), 15))
Line 842:
Line 843:
Line 844: #End ExternalSource
Line 845: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""sid"" id=""sid"" value=""")
Line 846:
Line 847: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",445)
Line 848: __w.Write(Left(HttpContext.Current.Request.Item("sid"), 15))
Line 849:
Line 850:
Line 851: #End ExternalSource
Line 852: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""mlslistingid"" id=""Hidden2"" value="& _
Line 853: """")
Line 854:
Line 855: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",446)
Line 856: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 857:
Line 858:
Line 859: #End ExternalSource
Line 860: Me.WriteUTF8ResourceString(__w, 27765, 1879, true)
Line 861:
Line 862: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\contact-us.aspx",467)
Line 863: End If
Line 864:
Line 865: #End ExternalSource
Line 866: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" </div> "&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 867: __w.Write("<div class=""footer"">"&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<ul class=""footerLinks"">"&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href=""disclaimer.aspx"""& _
Line 868: " class=""disclaimerBttn slideup""><span>Disclaimer</span></a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<li><a href"& _
Line 869: "=""")
Line 870:
Line 871: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",4)
Line 872: __w.Write(Application.Item("footerAgentHomePage" + ConfigurationManager.AppSettings("UserId")) )
Line 873:
Line 874:
Line 875: #End ExternalSource
Line 876: __w.Write("?useFS=true"">Visit Full Website</a></li>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 877:
Line 878: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",5)
Line 879: If Instr(HttpContext.Current.Request.Url.ToString, "default.aspx") > 0 then
Line 880:
Line 881: #End ExternalSource
Line 882: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href=""javascript:$('.toolTip').fadeIn('slow');"" class=""disclaimer"& _
Line 883: "Bttn slideup""><span>Install this App</span></a></li>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 884:
Line 885: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",7)
Line 886: End If
Line 887:
Line 888: #End ExternalSource
Line 889: Me.WriteUTF8ResourceString(__w, 29644, 285, true)
Line 890:
Line 891: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",14)
Line 892: Line 893: If Instr(HttpContext.Current.Request.Url.ToString, "default.aspx") = 0 thenLine 894:
Line 895:
Line 896: #End ExternalSource
Line 897: Me.WriteUTF8ResourceString(__w, 29929, 269, true)
Line 898:
Line 899: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",20)
Line 900: __w.Write(Application("officePhone" & ConfigurationManager.AppSettings("UserId")))
Line 901:
Line 902:
Line 903: #End ExternalSource
Line 904: __w.Write(""" data-role=""button"" data-icon=""call"" data-iconpos=""left"">Call</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 905: "li><a href=""mailto:denise@deniserubingroup.com"" data-role=""button"" data-icon=""em"& _
Line 906: "ail"" data-iconpos=""left"" rel=""external"">Email</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 907:
Line 908: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 909: If Trim("" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))) <> "" Then
Line 910:
Line 911: #End ExternalSource
Line 912: __w.Write("<li><a href=""sms:")
Line 913:
Line 914: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 915: __w.Write(Application("agentEmail" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))))
Line 916:
Line 917:
Line 918: #End ExternalSource
Line 919: __w.Write(""" data-role=""button"" data-icon=""text"" data-iconpos=""left"">SMS</a></li>")
Line 920:
Line 921: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 922: End If
Line 923:
Line 924: #End ExternalSource
Line 925:
Line 926: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 927: If Trim("" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))) = "" Then
Line 928:
Line 929: #End ExternalSource
Line 930: __w.Write("<li><a href=""http://maps.apple.com/maps?daddr=")
Line 931:
Line 932: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 933: __w.Write(Application("agentAddress" & ConfigurationManager.AppSettings("UserId")))
Line 934:
Line 935:
Line 936: #End ExternalSource
Line 937: __w.Write(" ")
Line 938:
Line 939: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 940: __w.Write(Application("agentCity" & ConfigurationManager.AppSettings("UserId")))
Line 941:
Line 942:
Line 943: #End ExternalSource
Line 944: __w.Write(", ")
Line 945:
Line 946: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 947: __w.Write(Application("agentState" & ConfigurationManager.AppSettings("UserId")))
Line 948:
Line 949:
Line 950: #End ExternalSource
Line 951: __w.Write(" ")
Line 952:
Line 953: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 954: __w.Write(Application("agentZip" & ConfigurationManager.AppSettings("UserId")))
Line 955:
Line 956:
Line 957: #End ExternalSource
Line 958: __w.Write(""" data-role=""button"" data-icon=""text"" data-iconpos=""left"">Office</a></li>")
Line 959:
Line 960: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 961: End If
Line 962:
Line 963: #End ExternalSource
Line 964: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" </ul>"&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 965:
Line 966: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",26)
Line 967: Else
Line 968:
Line 969: #End ExternalSource
Line 970: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""toolTip"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/icon.png"" alt="""" class=""retina"" />"&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 971: " <p>Install this app by tapping the + icon below, then ""Add to Home Screen"".<b"& _
Line 972: "r />Tap this message to close it.</p>"&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 973:
Line 974: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",31)
Line 975: End If
Line 976:
Line 977: #End ExternalSource
Line 978: Me.WriteUTF8ResourceString(__w, 30198, 916, true)
Line 979: Me.WriteUTF8ResourceString(__w, 31114, 1475, true)
Line 980: End Sub
Line 981:
Line 982: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 983: Protected Overrides Sub FrameworkInitialize()
Line 984: MyBase.FrameworkInitialize
Line 985: Me.SetStringResourcePointer(Global.ASP.contact_us_aspx.__stringResource, 0)
Line 986: Me.__BuildControlTree(Me)
Line 987: Me.AddWrappedFileDependencies(Global.ASP.contact_us_aspx.__fileDependencies)
Line 988: Me.Request.ValidateInput
Line 989: End Sub
Line 990:
Line 991: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 992: Public Overrides Function GetTypeHashCode() As Integer
Line 993: Return -1924068214
Line 994: End Function
Line 995:
Line 996: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 997: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 998: MyBase.ProcessRequest(context)
Line 999: End Sub
Line 1000: End Class
Line 1001: End Namespace
Line 1002:
|