<%@Language="VBSCRIPT" %> <% dim isSent : isSent=False dim strMsg : strMsg="test" dim strSiteFind : strSiteFind="" dim strBody : strBody="" dim strSiteFindHTML : strSiteFindHTML="" dim strSelected : strSelected="" dim strHTMLSelected : strHTMLSelected="selected=""selected""" dim i dim arrStrSiteFind(6) arrStrSiteFind(0) = "" arrStrSiteFind(1) = "Advertisting" arrStrSiteFind(2) = "Direct Mail" arrStrSiteFind(3) = "A link from another site" arrStrSiteFind(4) = "I was referred by a friend" arrStrSiteFind(5) = "Search engine" arrStrSiteFind(6) = "Other" if Request.ServerVariables ("REQUEST_METHOD") = "POST" then 'Sends an email dim mail Set mail = Server.CreateObject("CDO.Message") strSiteFind = arrStrSiteFind(Request.Form("sitefind")) strBody = "New Contact - Eastside Commons" & vbcrlf & vbcrlf & _ "Name: " & Request.Form("cname") & vbcrlf & _ "Phone: " & Request.Form("phone") & vbcrlf & _ "Email: " & Request.Form("email") & vbcrlf & vbcrlf & _ "Found Site By: " & strSiteFind & vbcrlf & vbcrlf & _ "Comments:" & vbcrlf & Request.Form("comments") mail.To = "ContactNewHomes@raveisre.com; RuggebergM@RaveisRE.com; don@powerserve.net" mail.From = "webmaster@powerserve.net" mail.Subject = "New Contact - Eastside Commons" mail.TextBody = strBody mail.Send() 'Destroy the mail object! Set mail = nothing strMsg = "Mail Sent" isSent=True strSiteFind="" end if for i=0 to 6 if StrComp(strSiteFind,arrStrSiteFind(i), 0) = 0 then strSelected = strHTMLSelected else strSelected = "" end if strSiteFindHTML = strSiteFindHTML & "" & vbcrlf next %> ContactUs
BACK

 

Furnished Model Open Sundays 1-4 pm.
Parking available - use Second Street entrance
to parking garage. Follow signs to lobby
Telephone: 203.940.3908

Email: The Metropolitan/1515 Summer

<% if Not isSent then %>