<%@ 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("submit") = "Submit" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.fromname = rsinfo("Name") mailer.ReplyTo = rsinfo("Email") mailer.fromaddress = "forms@mmiusa.com" mailer.subject = "Web Contact to Robert B. Our" mailer.remotehost = "mail.koamedia.com" '**************************************** ' Change the following to the recipient's mailing address '**************************************** mailer.addrecipient "Robert B. Our", "rbo@robertbour.com" 'mailer.addrecipient "David Fontes", "dfontes@mmiusa.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 "thanks.html" 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 %> Robert B. Our Construction

CONTACT US

Please use this convenient form to contact our offices. Our staff will respond promptly to your request. Or call 508-432-0530.

Name
Email
Phone
Question/Comment
How should we contact you? Phone   Email

Robert B. Our Co., Inc.
24 Great Western Road
P.O. Box 1539
Harwich, MA 02645
508-432-0530