Take our Survey
Thank you for taking our survey. So we can better understand your needs, please fill out the survey and email to us.
%@ 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 Survey" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.fromname = rsinfo("email") mailer.ReplyTo = rsinfo("email") mailer.fromaddress = "forms@koamedia.com" mailer.subject = "Land Design Survey" mailer.remotehost = "mail.koamedia.com" '**************************************** ' Change the following to the recipient's mailing address '**************************************** 'mailer.addrecipient "Land Design", "info@landdesigncc.com" mailer.addrecipient "David Fontes", "dfontes@koamedia.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 = t3 'Mailer.SendMail if Mailer.SendMail then response.redirect "survey_thanks.html" else msg = "
12B Thornton Dr.
Hyannis, MA 02601
508 790-3789
Thank you for taking our survey. So we can better understand your needs, please fill out the survey and email to us.