<%
Dim FName,LName,Email,Country,Phone,Contact,DayTime,Situation
Dim Affect,Outcome,Achieve,Days,SessionDayTime,Payment
Dim action
action=Request.Form("action")
FName=Request.Form("FName")
LName=Request.Form("LName")
Email=Request.Form("Email")
Country=Request.Form("Country")
Phone=Request.Form("Phone")
Contact=Request.Form("Contact")
DayTime=Request.Form("DayTime")
Situation=Request.Form("Situation")
Affect=Request.Form("Affect")
Outcome=Request.Form("Outcome")
Achieve=Request.Form("Achieve")
Days=Request.Form("Days")
SessionDayTime=Request.Form("SessionDayTime")
Payment=Request.Form("Payment")
If Contact="" Then
Contact="Phone"
End if
If Payment="" Then
Payment="60"
End if
Dim LastURL
LastURL=Request.Form("LastURL")
If LastURL = "" Then
LastURL = -1
Else
LastURL=Request.Form("LastURL")
End if
%>
Reflexology
<%
If action="send" or action="" Then
If action="" or (action="send" and (FName<"A" or LName<"A" or Email<"A" or Instr(Email,"@")=0 or Instr(Email,".")=0 or Phone<"+"or (Contact="Phone" and DayTime<"+") or Situation<"A" or Days<"A")) Then
If action="send" and (FName<"A" or LName<"A" or Email<"A" or Instr(Email,"@")=0 or Instr(Email,".")=0 or Phone<"+" or (Contact="Phone" and DayTime<"+") or Situation<"A" or Days<"A") Then
%>
Your message wasn't successfully sent. The error was:
<%
If FName<"A" Then
%>
- Please enter a First name
<%
End if
If LName<"A" Then
%>
- Please enter a Last name
<%
End if
If Email<"A" Then
%>
- Please enter an Email address
<%
End if
If Instr(Email,"@")=0 or Instr(Email,".")=0 Then
%>
- Please enter a valid email address
<%
End if
If Phone<"+" Then
%>
- Please enter a Contact Phone number
<%
End if
If Contact="Phone" and DayTime<"+" Then
%>
- Please enter a preferred Day and/or Time for us to Contact you
<%
End if
If Situation <"A" Then
%>
- Please enter the Reason for your requesting Reflexology
<%
End if
If Days<"A" Then
%>
- Please enter a preferred Day for your session
<%
End if
%>
Please try again!
<%
End if
LastURL = LastURL - 1
%>
Please complete this form to request a Reflexology treatment.
Each session of Reflexology is priced at £42 and lasts 45 - 60 mins.
<%
Else
Dim objEmail
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "noreply@turquoiseray.com"
objEmail.Password = "stinkie"
objEmail.Host = "mail.turquoiseray.com"
objEmail.From = "noreply@turquoiseray.com"
objEmail.AddAddress Email
objEmail.Subject = "Reflexology Treatment"
objEmail.Body = "Dear " & FName & vbCRLF & vbCRLF _
& "Thank you for enquiring about a Reflexology treatment." & vbCRLF & vbCRLF _
& vbCRLF & vbCRLF _
& "Tracy will be in touch with you real soon, to set up an appointment" & vbCRLF & vbCRLF _
& vbCRLF & vbCRLF _
& "Best Wishes" & vbCRLF & vbCRLF _
& "The Team at Turquoise Ray"
objEmail.Send
Set objEmail = Nothing
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "noreply@turquoiseray.com"
objEmail.Password = "stinkie"
objEmail.IsHTML = True
objEmail.Host = "mail.turquoiseray.com"
objEmail.From = "noreply@turquoiseray.com"
objEmail.AddAddress "noreply@turquoiseray.com"
objEmail.Subject = Fname & " " & LName & " Would Like to Receive Reflexology"
objEmail.Body = Fname & " " & LName & "" & vbCRLF & vbCRLF _
& "
