At the end of this page you will find a form. Please, complete this form
so that I can email you listings that meet your criteria.
<%@LANGUAGE="VBSCRIPT"CODEPAGE="1252"%>
<% ' Getting data and send email to SonnySchnabel@PropertiesWaterfront.com'
if request("submit")="Submit Thank you!"then
' Type of Property'
if request("Single_Fam")=1 then
sfr= "Yes"
else
sfr= "No"
end if
if request("Town")=1 then
Town="Yes"
else
Town="No"
end if
if request("Condo")=1 then
Condo="Yes"
else
Condo="No"
end if
if request("P_Land")=1 then
P_Land="Yes"
else
P_Land="No"
end if
' Working With Realtor'
if request("WRealtor")=1 then
AWRealtor="Yes"
else
AWRealtor="No"
end if
' Are you a Realtor'
if request("IsRealtor")=1 then
AIsRealtor="Yes"
else
AIsRealtor="No"
end if
Body_Content = "PropertiesWaterfront - English HomeFinder Form "& chr(10) & chr(10)_
& "Name: "& REQUEST("FName")& ""& REQUEST("LName")& chr(10)_
& "E-Mail: "& REQUEST("email")& chr(10)_
& "Address: "& REQUEST("Address")& chr(10)_
& "City: "& REQUEST("City")& chr(10)_
& "State/Province: "& REQUEST("State")& chr(10)_
& "Zip/Postal: "& REQUEST("Zip")& chr(10)_
& "WorkPhone: "& REQUEST("WorkPhone")& chr(10)_
& "HomePhone: "& REQUEST("HomePhone")& chr(10)_
& "CellPhone: "& REQUEST("CellPhone")& chr(10) & chr(10)_
& "Type of Place :"& chr(10)_
& "- Single Family Residence :"& sfr & chr(10)_
& "- Townhouse :"& Town & chr(10)_
& "- Condo :"& Condo & chr(10)_
& "- Property/Land :"& P_Land & chr(10)& chr(10)_
& "Area :"& request("Area") & chr(10)_
& "Bedrooms :"& request("Bedrooms") & chr(10)_
& "Baths :"& request("Baths") & chr(10)_
& "Size :"& request("Size") & chr(10)_
& "Price :"& request("Price") & chr(10)_
& "View :"& request("View") & chr(10)& chr(10)_
& "Aditional Comments: "& request("Req_Comments")& chr(10) & chr(10)_
& "Property needed in : "& request("radiobutton")
if request("radiobutton")="other"then
Body_Content = Body_Content & "- "& request("HN_Other") & chr(10)
end if
Body_Content = Body_Content & chr(10)_
& "Working with realtor: "& AWRealtor & chr(10)_
& "Is a realtor: "& AIsRealtor & chr(10)
set MyMail2=server.CreateObject("CDONTS.NewMail")
MyMail2.To = "SonnySchnabel@PropertiesWaterfront.com"
'MyMail2.To = "seanr@seanmedia.com"'
MyMail2.From = REQUEST("email")
MyMail2.Subject = "PropertiesWaterfront.com English HomeFinder Form"
MyMail2.Body = Body_Content
MyMail2.Send
Set MyMail2 = Nothing
response.redirect("thankyou.htm")
end if
%>
PRIVACY POLICY
I never will release, sell or give any information that you enter below to another party or organization. Only you will receive requested information.
Your requested information will arrive shortly
You can be removed from my mailing list by simply clicking HERE
email: SonnSchn@aol.com
Cell: (561) 394-4600 Fax: (561) 395-0709
1013 N Federal Hwy, Boca Raton, FL 33432
