|
<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
SELECT CASE Request("Action")
CASE "Submit"
Mailer.RemoteHost = "mail.rttinc.com"
Mailer.FromName = Request("Name")
Mailer.FromAddress = Request("EMail")
Mailer.AddRecipient"Chris Turner", "cturner@telusplanet.net"
Mailer.Subject = "Booking Info"
MailBodyText = MailBodyText & "Name : " & Request("Name") & vbcrlf
MailBodyText = MailBodyText & "Phone : " & Request("Phone") & vbcrlf
MailBodyText = MailBodyText & "Address : " & Request("Address") & vbcrlf
MailBodyText = MailBodyText & "City : " & Request("City") & vbcrlf
MailBodyText = MailBodyText & "Prov/State : " & Request("Prov") & vbcrlf
MailBodyText = MailBodyText & "Country : " & Request("Country") & vbcrlf
MailBodyText = MailBodyText & "Postal/Zip : " & Request("PostalCode") & vbcrlf
MailBodyText = MailBodyText & "EMail : " & Request("EMail") & vbcrlf
MailBodyText = MailBodyText & "Age : " & Request("Age") & vbcrlf & vbcrlf
MailBodyText = MailBodyText & "Trip and Date I am Interested in: " & Request("trip") & vbcrlf
MailBodyText = MailBodyText & vbcrlf
MailBodyText = MailBodyText & "Diet Restrictions: " & Request("DietRestrictions") & vbcrlf
MailBodyText = MailBodyText & "Medical Problems : " & Request("MedicalProblems") & vbcrlf
MailBodyText = MailBodyText & "About Us : " & Request("AboutUs") & vbcrlf
If Request("ExperienceNo") = "" Then
MailBodyText = MailBodyText & "No Experience : " & "No" & vbcrlf
Else
MailBodyText = MailBodyText & "No Experience : " & "Yes" & vbcrlf
End If
If Request("ExperienceYes") = "" Then
MailBodyText = MailBodyText & "Has Experience: " & "No" & vbcrlf
Else
MailBodyText = MailBodyText & "Has Experience: " & "Yes" & vbcrlf
End If
MailBodyText = MailBodyText & "Experience: " & Request("ExperienceDescription") & vbcrlf
MailBodyText = MailBodyText & "Payment Method: " & Request("PaymentMethod") & vbcrlf
MailBodyText = MailBodyText & "Confirmation Required: " & Request("ConfirmationRequired") & vbcrlf
mailer.bodytext = MailBodyText
if not Mailer.SendMail then
Response.Write " Mailing Failed... Error is: "
Response.Write Mailer.Response
else
Response.Write " sent successfully... |