<%@ 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") = "Submit" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.fromname = rsinfo("name") mailer.fromaddress = rsinfo("email") mailer.replyto = rsinfo("email") mailer.subject = "Rock Harbor Contact Form Submission" mailer.remotehost = "mail.mmiusa.com" '**************************************** ' Change the following to the recipient's mailing address '**************************************** mailer.addrecipient "Rock Harbor Gallery", "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 "default.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 %> The Gallery
Directions to the Gallery
Name:
Address:
Address 2:
Town:
State or Province:
Zip or Postal Code:
Country:
Phone:
Email:

Would you like to be on our mailing list? Yes No
How did you hear about us?
Questions or comments:


Watercolor paintings by Kely Knowles are copyrighted and may not be reprinted without the written permission of the artist.