%@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, address, city, comments, saleyes, saleno, zip, neighborhood, cost, sqrft, bedrooms, bathrooms, pool, lanai, culdesac, commcenter, car, waterfront emailaddress2=Request.Form("emailaddress2") yourname=Request.Form("yourname") phone=Request.Form("phone") address=Request.Form("address") city=Request.Form("city") comments=Request.Form("comments") salesyes=Request.Form("salesyes") salesno=Request.Form("salesno") zip=Request.Form("zip") neighborhood=Request.Form("neighborhood") cost=Request.Form("cost") sqrft=Request.Form("sqrft") bedrooms=Request.Form("bedrooms") bathrooms=Request.Form("bathrooms") 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") = "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 Value Of Home Message" .HTMLBody = "Message From Value Of Home Form" & "
" & "Email: " & emailaddress2 & "" & "Name: " & yourname & "" & "Phone: " & phone & "" & "Address: " & address & "" & "City: " & city & "" & "Zip Code: " & zip & "" & "Neighborhood: " & neighborhood & "" & "Square Footage: " & sqrft & "" & "Bedrooms: " & bedrooms & "" & "Bathrooms: " & bathrooms & "" & "Cost: " & cost & "" & "Comments: " & comments & "" & "Want To Sell In The Next 3 Months?: " & saleyes & " " & saleno & "" & "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 ![]()
|
||||||||||
|
||||||||||