Line 1: #ExternalChecksum("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","52FE81DC79274002F9B641B845EB90920FFE7DEB")
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 email_to_friend_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 = "~/email-to-friend.aspx"
Line 52: If (Global.ASP.email_to_friend_aspx.__initialized = false) Then
Line 53: Global.ASP.email_to_friend_aspx.__stringResource = Me.ReadStringResource
Line 54: dependencies = New String(1) {}
Line 55: dependencies(0) = "~/email-to-friend.aspx"
Line 56: dependencies(1) = "~/footer.aspx"
Line 57: Global.ASP.email_to_friend_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 58: Global.ASP.email_to_friend_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 email_to_friend_aspx)
Line 77:
Line 78: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",1)
Line 79: __ctrl.EnableViewState = false
Line 80:
Line 81: #End ExternalSource
Line 82:
Line 83: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",1)
Line 84: __ctrl.EnableViewStateMac = false
Line 85:
Line 86: #End ExternalSource
Line 87:
Line 88: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.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>"&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(10)&"<title>")
Line 97:
Line 98: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",4)
Line 99: __w.Write(RESI.Global.Functions.GetPageTitle(14992))
Line 100:
Line 101:
Line 102: #End ExternalSource
Line 103: __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 104: "th, initial-scale=1, maximum-scale=1"">"&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""format-detection"" content=""te"& _
Line 105: "lephone=yes"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<base href=""")
Line 106:
Line 107: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",8)
Line 108: __w.Write(HttpContext.Current.Application.Item("Basehref"))
Line 109:
Line 110:
Line 111: #End ExternalSource
Line 112: __w.Write(""" target=""_self"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""scripts/jquery.mobile.js"" type=""text/javascript"""& _
Line 113: "></script>"&Global.Microsoft.VisualBasic.ChrW(10)&"<link href=""css/jquery.mobile-1.0.css"" rel=""stylesheet"" type=""text/cs"& _
Line 114: "s"" />"&Global.Microsoft.VisualBasic.ChrW(10)&"<script src=""scripts/jquery.retina.js"" type=""text/javascript"" charset=""utf"& _
Line 115: "-8""></script>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 116:
Line 117: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",12)
Line 118:
Line 119: Dim SentEmail As Boolean = False
Line 120: Line 121: 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 122: Dim emailcnt As Long = 0
Line 123: Dim EmailCountSQL As String = "select ISNULL(count(id),0) " + _
Line 124: "from RESI_EmailLog " + _
Line 125: "where datediff(year, cast(senddate as datetime), GETDATE()) = 0 and senderip is not null " + _
Line 126: "and senderip like '" + CStr(HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")) + "%' And datediff(day, cast(senddate as datetime), GETDATE()) = 0 "
Line 127: Dim EmailCountReader As SqlDataReader = RESI.Global.dbConn.Read(EmailCountSQL, 1)Line 128: If (EmailCountReader.HasRows()) ThenLine 129: EmailCountReader.Read()Line 130: emailcnt = CLng(EmailCountReader(0))Line 131: End IfLine 132: EmailCountReader.Close()
Line 133: EmailCountSQL = ""Line 134: Line 135: If emailcnt < 8 And RESI.Global.Functions.testRESiSpam(HttpContext.Current.Request.Form("Email"), CStr(HttpContext.Current.Request.ServerVariables("REMOTE_ADDR"))) ThenLine 136: Dim strEmail As String = ""Line 137: Dim ix As Integer = 0Line 138: Line 139: For ix = 0 To CLng("0" + (HttpContext.Current.Request.Form.Keys.Count - 1))Line 140: Dim FieldName = HttpContext.Current.Request.Form.GetKey(ix)Line 141: Dim FieldValue = Trim(HttpContext.Current.Request.Form(ix))Line 142: If FieldName <> "x" And FieldName <> "y" And FieldValue <> "" ThenLine 143: strEmail += Replace(FieldName, "_", " ") & ": " & FieldValue & "<br />"
Line 144: End IfLine 145: NextLine 146: Line 147: Dim strToEmail = HttpContext.Current.Request.Form.Item("Friend_Email")Line 148: Dim strSubject = "Email to Friend from Mobile App. about MLS Listing " + Left(HttpContext.Current.Request.Item("mid"), 15)Line 149: Dim strFrom = HttpContext.Current.Request.Form.Item("Email")Line 150: Line 151: Dim City As String = ""
Line 152: Dim mlslistingid As String = ""
Line 153: Dim strMLSSql As String = "SELECT MLS_LISTING_ID, CITY " + _
Line 154: "FROM RESI.dbo.MLS " + _
Line 155: "WHERE [MLS_LISTING_ID] = '" & Left(HttpContext.Current.Request.Item("mid"), 15) & "'"
Line 156: Dim MLSReader As SqlDataReader = RESI.Global.dbConn.Read(strMLSSql, 1)
Line 157: If (MLSReader.HasRows()) Then
Line 158: MLSReader.Read()
Line 159: mlslistingid = "" & MLSReader("MLS_LISTING_ID")
Line 160: City = "" & MLSReader("CITY")
Line 161: End If
Line 162: MLSReader.Close()Line 163: Line 164: strEmail = "<div>" & HttpContext.Current.Request.Form.Item("first_Name") & HttpContext.Current.Request.Form.Item("last_Name") & " (" & HttpContext.Current.Request.Form.Item("Email") & ") has sent you this email about a property. <a href=""" & Application("HOME_PAGE" & ConfigurationManager.AppSettings("UserId")) & LCase(RESI.Functions.Functions.TrimASC(City)) & "-mls-listing/" & mlslistingid & ".htm"">Click Link</a><br /><br /></div>" & strEmailLine 165: Line 166: RESI.Global.Functions.SendEmail(strToEmail, "donotreply@resionline.com", strSubject, strEmail, , , Net.Mail.MailPriority.Normal, , "Email to Friend from Mobile App. about MLS Listing" + Left(HttpContext.Current.Request.Item("mid"), 15))Line 167: Line 168: SentEmail = TrueLine 169: End IfLine 170: End IfLine 171: Line 172:
Line 173:
Line 174: #End ExternalSource
Line 175: Me.WriteUTF8ResourceString(__w, 42254, 529, true)
Line 176:
Line 177: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",81)
Line 178: __w.Write(RESI.Global.Functions.GetPageH2(14992))
Line 179:
Line 180:
Line 181: #End ExternalSource
Line 182: __w.Write("</h2>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul class=""contactList"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 183:
Line 184: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",83)
Line 185: __w.Write(Application("officeName" & ConfigurationManager.AppSettings("UserId")))
Line 186:
Line 187:
Line 188: #End ExternalSource
Line 189: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 190:
Line 191: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",84)
Line 192: __w.Write(Application("agentName" & ConfigurationManager.AppSettings("UserId")))
Line 193:
Line 194:
Line 195: #End ExternalSource
Line 196: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 197:
Line 198: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",85)
Line 199: __w.Write(Application("agentAddress" & ConfigurationManager.AppSettings("UserId")))
Line 200:
Line 201:
Line 202: #End ExternalSource
Line 203: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>")
Line 204:
Line 205: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",86)
Line 206: __w.Write(Application("agentCity" & ConfigurationManager.AppSettings("UserId")))
Line 207:
Line 208:
Line 209: #End ExternalSource
Line 210: __w.Write(" ")
Line 211:
Line 212: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",86)
Line 213: __w.Write(Application("agentState" & ConfigurationManager.AppSettings("UserId")))
Line 214:
Line 215:
Line 216: #End ExternalSource
Line 217: __w.Write(" ")
Line 218:
Line 219: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",86)
Line 220: __w.Write(Application("agentZip" & ConfigurationManager.AppSettings("UserId")))
Line 221:
Line 222:
Line 223: #End ExternalSource
Line 224: __w.Write("</li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Office: <a href=""tel:")
Line 225:
Line 226: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",87)
Line 227: __w.Write(RESI.Functions.Functions.CleanB(Application("officePhone" & ConfigurationManager.AppSettings("UserId"))))
Line 228:
Line 229:
Line 230: #End ExternalSource
Line 231: __w.Write(""" rel=""external"">")
Line 232:
Line 233: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",87)
Line 234: __w.Write(Application("officePhone" & ConfigurationManager.AppSettings("UserId")))
Line 235:
Line 236:
Line 237: #End ExternalSource
Line 238: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Mobile: <a href=""tel:")
Line 239:
Line 240: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",88)
Line 241: __w.Write(RESI.Functions.Functions.CleanB(Application("cellPhone" & ConfigurationManager.AppSettings("UserId"))))
Line 242:
Line 243:
Line 244: #End ExternalSource
Line 245: __w.Write(""" rel=""external"">")
Line 246:
Line 247: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",88)
Line 248: __w.Write(Application("cellPhone" & ConfigurationManager.AppSettings("UserId")))
Line 249:
Line 250:
Line 251: #End ExternalSource
Line 252: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Fax: <a href=""tel:")
Line 253:
Line 254: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",89)
Line 255: __w.Write(RESI.Functions.Functions.CleanB(Application("officeFax" & ConfigurationManager.AppSettings("UserId"))))
Line 256:
Line 257:
Line 258: #End ExternalSource
Line 259: __w.Write(""" rel=""external"">")
Line 260:
Line 261: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",89)
Line 262: __w.Write(Application("officeFax" & ConfigurationManager.AppSettings("UserId")))
Line 263:
Line 264:
Line 265: #End ExternalSource
Line 266: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <li>Email: <a href=""mailto:")
Line 267:
Line 268: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",90)
Line 269: __w.Write(Application("agentEmail" & ConfigurationManager.AppSettings("UserId")))
Line 270:
Line 271:
Line 272: #End ExternalSource
Line 273: __w.Write(""" rel=""external"">")
Line 274:
Line 275: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",90)
Line 276: __w.Write(Application("agentEmail" & ConfigurationManager.AppSettings("UserId")))
Line 277:
Line 278:
Line 279: #End ExternalSource
Line 280: __w.Write("</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" </ul>"&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 281:
Line 282: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",93)
Line 283:
Line 284: If (Trim("" & HttpContext.Current.Request.Item("mid")) <> "") Then
Line 285: Dim Address As String = ""
Line 286: Dim BATHS_FULL As String = ""
Line 287: Dim BEDROOMS As String = ""
Line 288: Dim City As String = ""
Line 289: Dim MLS_OFFICE_NAME As String = ""
Line 290: Dim Pic As String = ""
Line 291: Dim Price As String = ""
Line 292: Dim Ptype As String = ""
Line 293: Dim State As String = ""
Line 294: Dim Subdivision As String = ""
Line 295: Dim Zip As String = ""
Line 296:
Line 297: 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 298: "FROM RESI.dbo.MLS " + _
Line 299: "WHERE [MLS_LISTING_ID] = '" & Left(HttpContext.Current.Request.Item("mid"), 15) & "'"
Line 300: Dim Reader As SqlDataReader = RESI.Global.dbConn.Read(strSql, 1)
Line 301: If (Reader.HasRows()) Then
Line 302: Reader.Read()
Line 303: Address = "" & Reader("ADDRESS")
Line 304: BATHS_FULL = "" & Reader("BATHS_FULL")
Line 305: BEDROOMS = "" & Reader("BEDROOMS")
Line 306: City = "" & Reader("CITY")
Line 307: MLS_OFFICE_NAME = "" & Reader("MLS_OFFICE_NAME")
Line 308: Pic = "" & Reader("PHOTO_URL")
Line 309: Price = FormatCurrency(CLng("0" + Reader("SALE_PRICE")), 0)
Line 310: Ptype = "" & Reader("PROP_TYPE_DESCRIPTION")
Line 311: State = "" & Reader("PROPERTY_STATE_ID")
Line 312: Subdivision = "" & Reader("SUBDIVISION")
Line 313: Zip = "" & Reader("ZIP_CODE")
Line 314: End If
Line 315: Reader.Close()
Line 316:
Line 317:
Line 318:
Line 319: #End ExternalSource
Line 320: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(10)&" <ul data-role=""listview"" data-theme=""d"" class"& _
Line 321: "=""resultsGrid"" style=""margin:0;""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <li id=""rg")
Line 322:
Line 323: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",130)
Line 324: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 325:
Line 326:
Line 327: #End ExternalSource
Line 328: __w.Write(""" data-icon=""resultsArrow""> "&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&" <a href=""details.aspx?mls=")
Line 329:
Line 330: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",131)
Line 331: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 332:
Line 333:
Line 334: #End ExternalSource
Line 335: __w.Write(""" rel=""external"">"&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""")
Line 336:
Line 337: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",132)
Line 338: __w.Write(Pic)
Line 339:
Line 340:
Line 341: #End ExternalSource
Line 342: __w.Write(""" alt="""" class=""resultThumb"" />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultTi"& _
Line 343: "tle"">")
Line 344:
Line 345: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",133)
Line 346: __w.Write(Address)
Line 347:
Line 348:
Line 349: #End ExternalSource
Line 350: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">")
Line 351:
Line 352: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",134)
Line 353: __w.Write(Price)
Line 354:
Line 355:
Line 356: #End ExternalSource
Line 357: __w.Write(" <span>")
Line 358:
Line 359: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",134)
Line 360: __w.Write(BEDROOMS)
Line 361:
Line 362:
Line 363: #End ExternalSource
Line 364: __w.Write(" Bed / ")
Line 365:
Line 366: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",134)
Line 367: __w.Write(BATHS_FULL)
Line 368:
Line 369:
Line 370: #End ExternalSource
Line 371: __w.Write(" Bath</span></span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""resultItem"">")
Line 372:
Line 373: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",135)
Line 374: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 375:
Line 376:
Line 377: #End ExternalSource
Line 378: __w.Write(" </span>		<span class=""propType"">")
Line 379:
Line 380: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",135)
Line 381: __w.Write(Ptype)
Line 382:
Line 383:
Line 384: #End ExternalSource
Line 385: __w.Write("</span><br />"&Global.Microsoft.VisualBasic.ChrW(10)&" <b style=""font-size:xx-small;"">Courtesy"& _
Line 386: " of ")
Line 387:
Line 388: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",136)
Line 389: __w.Write(MLS_OFFICE_NAME)
Line 390:
Line 391:
Line 392: #End ExternalSource
Line 393: __w.Write("</b>"&Global.Microsoft.VisualBasic.ChrW(10)&" </a> "&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(10)&" </ul"& _
Line 394: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 395:
Line 396: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",141)
Line 397: End If
Line 398:
Line 399: #End ExternalSource
Line 400: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""detailPanel"" class=""ui-corner-all ui-shadow"">"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 401:
Line 402: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",143)
Line 403: If SentEmail Then
Line 404:
Line 405: #End ExternalSource
Line 406: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <strong>Thank you.</strong></p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 407: " <p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Your email has been sent successfully.</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 408: " ")
Line 409:
Line 410: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",148)
Line 411: Else
Line 412:
Line 413: #End ExternalSource
Line 414: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <form action=""email-to-friend.aspx"" method=""post"" name=""riform"""& _
Line 415: " id=""riform"" data-ajax=""false"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""mlsl"& _
Line 416: "istingid"" id=""mlslistingid"" value=""")
Line 417:
Line 418: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",150)
Line 419: __w.Write(Left(HttpContext.Current.Request.Item("mid"), 15))
Line 420:
Line 421:
Line 422: #End ExternalSource
Line 423: Me.WriteUTF8ResourceString(__w, 42783, 2385, true)
Line 424:
Line 425: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\email-to-friend.aspx",177)
Line 426: End If
Line 427:
Line 428: #End ExternalSource
Line 429: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" </div> "&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 430: __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 431: " 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 432: "=""")
Line 433:
Line 434: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",4)
Line 435: __w.Write(Application.Item("footerAgentHomePage" + ConfigurationManager.AppSettings("UserId")) )
Line 436:
Line 437:
Line 438: #End ExternalSource
Line 439: __w.Write("?useFS=true"">Visit Full Website</a></li>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 440:
Line 441: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",5)
Line 442: If Instr(HttpContext.Current.Request.Url.ToString, "default.aspx") > 0 then
Line 443:
Line 444: #End ExternalSource
Line 445: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href=""javascript:$('.toolTip').fadeIn('slow');"" class=""disclaimer"& _
Line 446: "Bttn slideup""><span>Install this App</span></a></li>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 447:
Line 448: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",7)
Line 449: End If
Line 450:
Line 451: #End ExternalSource
Line 452: Me.WriteUTF8ResourceString(__w, 45168, 285, true)
Line 453:
Line 454: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",14)
Line 455: Line 456: If Instr(HttpContext.Current.Request.Url.ToString, "default.aspx") = 0 thenLine 457:
Line 458:
Line 459: #End ExternalSource
Line 460: Me.WriteUTF8ResourceString(__w, 45453, 269, true)
Line 461:
Line 462: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",20)
Line 463: __w.Write(Application("officePhone" & ConfigurationManager.AppSettings("UserId")))
Line 464:
Line 465:
Line 466: #End ExternalSource
Line 467: __w.Write(""" data-role=""button"" data-icon=""call"" data-iconpos=""left"">Call</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 468: "li><a href=""mailto:denise@deniserubingroup.com"" data-role=""button"" data-icon=""em"& _
Line 469: "ail"" data-iconpos=""left"" rel=""external"">Email</a></li>"&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 470:
Line 471: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 472: If Trim("" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))) <> "" Then
Line 473:
Line 474: #End ExternalSource
Line 475: __w.Write("<li><a href=""sms:")
Line 476:
Line 477: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 478: __w.Write(Application("agentEmail" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))))
Line 479:
Line 480:
Line 481: #End ExternalSource
Line 482: __w.Write(""" data-role=""button"" data-icon=""text"" data-iconpos=""left"">SMS</a></li>")
Line 483:
Line 484: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",22)
Line 485: End If
Line 486:
Line 487: #End ExternalSource
Line 488:
Line 489: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 490: If Trim("" & Application("MOBILE_PHONE" & ConfigurationManager.AppSettings("UserId"))) = "" Then
Line 491:
Line 492: #End ExternalSource
Line 493: __w.Write("<li><a href=""http://maps.apple.com/maps?daddr=")
Line 494:
Line 495: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 496: __w.Write(Application("agentAddress" & ConfigurationManager.AppSettings("UserId")))
Line 497:
Line 498:
Line 499: #End ExternalSource
Line 500: __w.Write(" ")
Line 501:
Line 502: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 503: __w.Write(Application("agentCity" & ConfigurationManager.AppSettings("UserId")))
Line 504:
Line 505:
Line 506: #End ExternalSource
Line 507: __w.Write(", ")
Line 508:
Line 509: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 510: __w.Write(Application("agentState" & ConfigurationManager.AppSettings("UserId")))
Line 511:
Line 512:
Line 513: #End ExternalSource
Line 514: __w.Write(" ")
Line 515:
Line 516: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 517: __w.Write(Application("agentZip" & ConfigurationManager.AppSettings("UserId")))
Line 518:
Line 519:
Line 520: #End ExternalSource
Line 521: __w.Write(""" data-role=""button"" data-icon=""text"" data-iconpos=""left"">Office</a></li>")
Line 522:
Line 523: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",23)
Line 524: End If
Line 525:
Line 526: #End ExternalSource
Line 527: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" </ul>"&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 528:
Line 529: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",26)
Line 530: Else
Line 531:
Line 532: #End ExternalSource
Line 533: __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 534: " <p>Install this app by tapping the + icon below, then ""Add to Home Screen"".<b"& _
Line 535: "r />Tap this message to close it.</p>"&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(10))
Line 536:
Line 537: #ExternalSource("d:\resiwebs\deniserubin.com\Mobile\footer.aspx",31)
Line 538: End If
Line 539:
Line 540: #End ExternalSource
Line 541: Me.WriteUTF8ResourceString(__w, 45722, 916, true)
Line 542: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(10)&" </div> "&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(10)&"</html>")
Line 543: End Sub
Line 544:
Line 545: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 546: Protected Overrides Sub FrameworkInitialize()
Line 547: MyBase.FrameworkInitialize
Line 548: Me.SetStringResourcePointer(Global.ASP.email_to_friend_aspx.__stringResource, 0)
Line 549: Me.__BuildControlTree(Me)
Line 550: Me.AddWrappedFileDependencies(Global.ASP.email_to_friend_aspx.__fileDependencies)
Line 551: Me.Request.ValidateInput
Line 552: End Sub
Line 553:
Line 554: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 555: Public Overrides Function GetTypeHashCode() As Integer
Line 556: Return 1804913107
Line 557: End Function
Line 558:
Line 559: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 560: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 561: MyBase.ProcessRequest(context)
Line 562: End Sub
Line 563: End Class
Line 564: End Namespace
Line 565:
|