Holiday Planner
+91 93498 72020 
Tour Packages
<% if Request("Submit")="Submit" then Set myMail=CreateObject("CDO.Message") myMail.Subject ="Enquiry from " &replace (request("name"),"'","''") myMail.From =replace (request("email"),"'","''") myMail.To ="info@holidayplanner.in" myMail.HTMLBody = "
Dear Sir,
          I am interested in your packages. Please send me more details about your packages, my details are given below.
Name : " & Replace(Request("name"),"'","''") & "
E-mail : " & Replace (Request("email"),"'","''") &"
Country : "& Replace (Request("country"),"'","''") & "
Address : "& Replace (Request("address"),"'","''") & "
Package : "& Replace (Request("package"),"'","''") & "
Total No. of Adults : "& Replace (Request("adults"),"'","''") & "
No. of Children below 5 years : "& Replace (Request("children5"),"'","''") & "
No. of Children below 12 years: "& Replace (Request("children12"),"'","''") & "
Type of Hotel : "& Replace (Request("hotel"),"'","''") & "
No. of Double rooms required : "& Replace (Request ("droom"),"'","''") & "
No. of extra beds required : "& Replace ( Request("exbed"),"'","''") & "
Type of vehicle : "& Replace ( Request("vehicle"),"'","''") & "
Approximate date of arrival : "& Replace ( Request("appdate"),"'","''") & "
Approximate date of depature "& Replace ( Request("appdep"),"'","''") & "
Your approximate budget  
Doller "& Replace ( Request("doller"),"'","''") & "
Rupees "& Replace ( Request("rupees"),"'","''") & "
Comments / Queries "& Replace ( Request("comments"),"'","''") & "
Regards,
" & Replace (Request("name"),"'","''")&"
" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing if err.number=0 then Response.write("Thank You " & Request("name") & "! , your request has been sent successfully..") 'To the enquiry member '----------------------------------------------------------- Set myMail=CreateObject("CDO.Message") myMail.Subject="Thank You " & replace (request("name"),"'","''") myMail.From="info@holidayplanner.in" myMail.To=replace (request("email"),"'","''") myMail.HTMLBody = "
Dear " & Replace (Request("name"),"'","''")&"
Thank you for your interest in our projects. Your mail is forwarded to our marketing section. We will soon contact with you
Regards,

The holiday planner
No. 33/489A
Vennala P.O. Kochi
Kerala,india
682028
Mob: +91 9349872020
email:

 

" on error resume next myMail.Send '---------------------------------------------------------- else Response.write("Error:" & err.description & " ") end if set myMail=nothing End if %>
Name
:
E-mail
:
Country (Please Select)
:
Address & Phone Number
:
Name of the package
:
Total no of adults in the group
:
No. of Children below 5 Years
:
No. of Children below 12 Years
:
Type of Hotel (Please Select)
:
Number of Double rooms required
:
Number of Extra Beds required
:
Type of Vehicle for Transportation
:
Approximate date of arrival
:
Approximate date of departure
:
Your approximate budget
:
US$
or Indian Rs.    
Comments / Queries
:
         
             
Distance calculatorMap of keralaTestimonialsPhoto Gallery
Copyright © 2010 Holidayplanner.in. All rights reserved.