%@ 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") = "Send" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.fromname = rsinfo("name") mailer.ReplyTo = rsinfo("email") mailer.fromaddress = "forms@mmiusa.com" mailer.remotehost = "mail.koamedia.com mailer.subject = "DiversTravel.com" '**************************************** ' Change the following to the recipient's mailing address '**************************************** mailer.addrecipient "DiversTravel.com", "downunder@diverstravel.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.asp" else msg = "
![]() ![]() |
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|
Dive Sights | Beginner's Edge | Pro Corner | Armchair Diving | Events & Meetings | Featured Article | Featured Photo About Us | Contact Us | Become a Member | Services | Send It! | Legal and Disclaimer | Webmaster ©2001 DiversTravel.com |