If you would like to travel to Munnar, to tour the hill ranges in Kerala, and to wander through the Eco Exotica resorts, tea estates and spice plantations of "God's own country," we can help you plan your tour.Please fill the Tour Booking form Below :
<%
Dim TDate,NDays,NAdult,NChild,Requirements,Title,FName,Email,Country,PhCountry,PhArea,PhNo
Dim mailbody
TDate= Request("TDate")
NDays=Request("NDays")
NAdult=Request("NAdult")
NChild=Request("NChild")
Requirements=Request("Requirements")
Title=Request("Title")
FName=Request("FName")
Email=Request("Email")
Country=Request("Country")
PhCountry=Request("PhCountry")
PhArea=Request("PhArea")
PhNo=Request("PhNo")
mailbody = ""
mailbody = mailbody & "
"
Dim TDateError
Dim FNameError
Dim EmailError
Dim CountryError
Dim RequirementsError
Dim Summary
TDateError = ""
FNameError = ""
EmailError = ""
CountryError = ""
RequirementsError = ""
Summary = ""
Sub Main()
if Not Trim( Request.Form("Submit") ) = "" then
Dim valid
valid = true
if Trim(Request.Form("TDate")) = "" then
valid = false
TDateError = "Enter Date "
end if
if Trim(Request.Form("FName")) = "" then
valid = false
FNameError = "Enter Name "
end if
if Trim(Request.Form("Email")) = "" then
valid = false
EmailError ="Enter the email "
else
Dim re
Set re = new RegExp
re.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
if not re.Test(Trim(Request.Form("Email"))) then
valid = false
EmailError ="Enter valid email "
end if
end if
if Trim(Request.Form("Country")) = "" then
valid = false
CountryError = "Select Country "
end if
if Trim(Request.Form("Requirements")) = "" then
valid = false
RequirementsError = "Enter Requirements "
end if
if valid then
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "Eco Exotica"
Mail.FromAddress = Request.Form("Email")
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Eco Exotica", "eeholidays@gmail.com"
Mail.Subject = "Reservation:"
Mail.ContentType = "text/html"
Mail.BodyText = mailbody
if Mail.SendMail then
Summary = "Your mail has already been sent..."
else
Summary = "Mail send failure. Error Please try again " & Mail.Response
end if
else
Summary = "Some error occured please check"
end if
end if
end sub
call Main
%>
| Below is the Tour Booking from " & FName & " | |
| Travel Date : | " & TDate & " |
| No of Days : | " & NDays & " |
| No of Adults : | " & NAdult & " |
| No of Children : | " & NChild & " |
| Requirements: | " & Replace(Requirements, VBCrLf, " ") & " |
| Email : | " & Title & "." & FName & " |
| Email : | " & Email & " |
| Country : | " & Country & " |
| Phone : | " & PhCountry & "-" & PhArea & "-" & PhNo & " |