%@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, state2, comments, a200, a350, a500, a750, pool, waterfront, bedrooms, house, condo, townhouse emailaddress2=Request.Form("emailaddress2") yourname=Request.Form("yourname") phone=Request.Form("phone") city=Request.Form("city") state2=Request.Form("state2") comments=Request.Form("comments") a200=Request.Form("a200") a350=Request.Form("a350") a500=Request.Form("a500") a750=Request.Form("a750") pool=Request.Form("pool") waterfront=Request.Form("waterfront") bedrooms=Request.Form("bedrooms") house=Request.Form("house") condo=Request.Form("condo") townhouse=Request.Form("townhouse") 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 = "megan@teambower.com" .From = emailaddress2 .Subject = "TeamBower.com Property Analysis Message" .HTMLBody = "Message From Property Analysis Form" & "
" & "Email: " & emailaddress2 & "" & "Name: " & yourname & "" & "Phone: " & phone & "" & "What City and State Do You Live In Now?: " & city & ", " & state2 & "" & "Bedrooms: " & bedrooms & "" & "Pool: " & pool & "" & "Waterfront: " & waterfront & "" & "Price Range: " & a200 & " " & a350 & " " & a500 & " " & a750 & "" & "Housing Type: " & house & " " & condo & " " & townhouse & "" & "Do You Need to be Near Work or Family?: " & comments & "" .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 ![]()
|
||||||||||
|
||||||||||