<%@ Language="VBScript" %> <% dim sv1, sv2, mydate, mytime, t1, t2, t3, strMsgHeader, strMsgInfo, strMsgFooter dim rsinfo, Mail, tdo, tdc, tro, trc '**************************************** ' Capture User Info & Time '**************************************** sv2 = "User Address: " & request.servervariables("REMOTE_ADDR") mydate = (FormatDateTime(Now(),1) & " " ) mytime = (FormatDateTime(Now(),3) & " " ) '**************************************** ' Capture URL '**************************************** t1 = request.servervariables("SERVER_NAME") t2 = request.servervariables("SCRIPT_NAME") t3 = "
Contact Form: http://" & t1 & t2 tdo="" tdc="" tro="" trc="" set rsinfo = Request.form If request("B1") = "Send" then strMsgHeader = "" & vbCrLf & _ tro & tdo & "Time of Request: " & tdc & tdo & mydate & _ ", " & mytime & tdc & trc & vbCrLf for i = 1 to Request.Form.Count if Request.Form.Key(i) <> "B1" then strMsgInfo = strMsgInfo & _ tro & tdo & Request.Form.Key(i) & ": " & tdc & _ tdo & Request.Form.Item(i) & tdc & trc & vbCrLf end if next strMsgFooter= vbCrLf & "

USER INFORMATION: " & _ vbCrLf & "
"& sv2 & vbCrLf & t3 & "" '********************************************* ' PERSITS MAIL SCRIPT '******************************************** ' Send the message: dim strHost strHost = "mail.oceanedgebrewster.com" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.IsHTML = true Mail.From = rsinfo("email") Mail.FromName = rsinfo("realname") Mail.AddAddress "webmaster@oceanedgebrewster.com" Mail.Subject = "OceanEdgeBrewster Contact Form" Mail.Body = strMsgHeader & strMsgInfo & strMsgFooter '*********************************************** Mail.Send ' send message if err.number = 0 then response.redirect "thankyou.htm" else msg = "

Please verify your e-mail address!

Error was " & _ Err.description & "
You may use your Back Button on your browser " & _ "to return to the completed form.

" end if '**************************** end if %> Ocean Edge Resort - Golf - Swimming Pools - Tennis
 

Contact Us

800-626-9984
Name:
Email:
Daytime Phone:
How may we help you?
close window
Great Locations Real Estate
The Ocean Edge Specialists