%@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, sqrft, bedrooms, bathrooms, price, pool, lanai, culdesac, commcenter, car, waterfront emailaddress2=Request.Form("emailaddress2") yourname=Request.Form("yourname") phone=Request.Form("phone") city=Request.Form("city") search=Request.Form("search") comments=Request.Form("comments") salesyes=Request.Form("salesyes") salesno=Request.Form("salesno") sqrft=Request.Form("sqrft") bedrooms=Request.Form("bedrooms") bathrooms=Request.Form("bathrooms") price=Request.Form("price") pool=Request.Form("pool") lanai=Request.Form("lanai") culdesac=Request.Form("culdesac") commcenter=Request.Form("commcenter") car=Request.Form("car") waterfront=Request.Form("waterfront") 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") = "teambower@teambower.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" .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 Dream House Message" .HTMLBody = "Message From Dream House Form" & "
" & "Email: " & emailaddress2 & "" & "Name: " & yourname & "" & "Phone: " & phone & "" & "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 & "" & "Square Footage: " & sqrft & "" & "Bedrooms: " & bedrooms & "" & "bathrooms: " & bathrooms & "" & "Price Range: " & price & "" & "Other Home Features: " & pool & "" & culdesac & "" & commcenter & "" & car & "" & waterfront & "" .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 ![]()
|
||||||||||
|
||||||||||