%@LANGUAGE="VBSCRIPT"%> <% if request.querystring ("success") = ("true") then dim thank thank = "Your message has been sent!" end if %> <% if Request.Form("emailaddress2") <> "" then Dim emailaddress2, yourname, phone, city, search, comments, saleyes, saleno, a200, a350, a500, a750, a1m emailaddress2=Request.Form("emailaddress2") yourname=Request.Form("yourname") phone=Request.Form("phone") city=Request.Form("city") search=Request.Form("search") comments=Request.Form("comments") saleyes=Request.Form("saleyes") saleno=Request.Form("saleno") a200=Request.Form("a200") a350=Request.Form("a350") a500=Request.Form("a500") a750=Request.Form("a750") a1m=Request.Form("a1m") Set usxMsg = CreateObject("CDO.Message") Set usxConf = CreateObject("CDO.Configuration") ' Set the SMTP Server Set Flds = usxConf.Fields With Flds ' Port '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "megan@teambower.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "teambower" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.teambower.com" 'SSL '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'timeout in seconds '.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With With usxMsg Set .Configuration = usxConf .To = "900615.lead.100168684@cendant.leadrouter.com" .From = emailaddress2 .Subject = "TeamBower.com Website Message" .HTMLBody = "Message From Contact Form" & "
" & "Email: " & emailaddress2 & "" & "Name: " & yourname & "" & "Phone: " & phone & "" & "Comments: " & comments & "" & "What City and State Do You Live In Now?: " & city & "" & "What Area Are You Searching For Your New Home?: " & search & "" & "Home Currently Listed: " & saleyes & " " & saleno & "" & "How Much Are You Planning To Spend on Your New Home?: " & a200 & " " & a350 & " " & a500 & " " & a750 & " " & a1m & "" .Fields.Update .Send End With Set Flds = Nothing Set usxMsg = Nothing Set usxConf = Nothing end if %>
![]() |
|
|||||||||
|
|
|
|
||||||||
|
Home // Find Your Home // Sell Your Home // About Me // Area Info // Tell a Friend // Search MLS
My Favorite Listings // Tell Me About Your Dream Home // Buying Tips // My Selling Strategies What is the Value of Your Home // My Sold Properties // Selling Tips // Contact Me // Subscription Info // Site Map ![]()
|
||||||||||
|
||||||||||