<%@ Language="VBScript" %> <% '**************************************** ' Capture User Info & Time '**************************************** sv1 = request.servervariables("HTTP_USER_AGENT") sv2 = 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 = "http://" & t1 & t2 set rsinfo = Request.form 'Following line must contain "Name" (B1) AND "Value" (Submit Form) of the Submit button If request("B1") = "Send to Great Locations RE" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.fromname = rsinfo("Name") mailer.fromaddress = rsinfo("Email") mailer.replyto = rsinfo("Email") mailer.subject = "GL Contact Request" mailer.remotehost = "mail.mmiusa.com" '**************************************** ' Change the following to the recipient's mailing address '**************************************** mailer.addrecipient "Great Locations", "sales@greatlocationsrealestate.com" strMsgHeader = "Form Information Follows: " & vbCrLf for i = 1 to Request.Form.Count strMsgInfo = strMsgInfo & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbCrLf next strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = "USER INFORMATION:" Mailer.BodyText = sv1 Mailer.BodyText = sv2 Mailer.BodyText = mydate Mailer.BodyText = mytime Mailer.BodyText = t3 'Mailer.SendMail if Mailer.SendMail then response.redirect "thankyou.htm" else msg = "

Please verify your e-mail address!

Error was " & Mailer.Response & "
You may use your Back Button on you browser to return to the completed form.

" end if '**************************** 'else end if %> Contact Great Locations Real Estate


Sales: (508)896-2093
Rentals: (508)896-2090

For specific rental information, please call our reservations office at 
1-800-626-9984

Name:
 Email:

How may we help you?

Thank you. We will contact you shortly.

2660 Route 6A, PO Box 1748, Brewster, MA 02631
Sales: (508) 896-2093  Rentals: (508) 896-2090

Email: info@greatlocationsrealestate.com