Booking
<% if Request("Submit")="Submit" then Set myMail=CreateObject("CDO.Message") myMail.Subject="Enquiry from " &replace (request("name"),"'","''") myMail.From=replace (request("email"),"'","''") myMail.To="marthomaretreathome@gmail.com" myMail.HTMLBody = "
Dear Sir,
        I am interested in ur Resort. Please send me more details about your Resort, my details are given below.
Name : " & Replace(Request("name"),"'","''") & "
Address : "& Replace (Request("address"),"'","''") & "
State : "& Replace (Request("state"),"'","''") & "
Country : "& Replace (Request("country"),"'","''") & "
Pin Code: "& Replace (Request("pin"),"'","''") & "
E-mail : " & Replace (Request("email"),"'","''") &"
Telephone : "& Replace (Request("phone"),"'","''") & "
Number of Adults "& Replace (Request("adults"),"'","''") & "
Number of Children
"& Replace (Request("children"),"'","''") & "
Number of Rooms: "& Replace (Request ("rooms"),"'","''") & "
Check in Date & Time : "& Replace ( Request("frm"),"'","''") & "
Check out Date & Time : "&Replace (Request("dep"),"'","''") & "
Comments : "& Replace ( Request("comments"),"'","''") & "
Regards,
" & Replace (Request("name"),"'","''")&"
" on error resume next myMail.Send 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=" marthomaretreathome@gmail.com" myMail.To=replace (request("email"),"'","''") myMail.HTMLBody = "
Dear " & Replace (Request("name"),"'","''")&"
Thank you for your interest in our Resort. Your mail is forwarded to our marketing section. We will soon contact with you
Regards,
Mar Thoma Retreat Home
Mattupetty Road, Munnar - 685 612, Kerala, India
Mob : +91 86476 31101‬, 75102 56038
Fax : +91 4865 232285
Mob. 94479 18944
Web site: www.marthomaretreathome.com
" on error resume next myMail.Send '---------------------------------------------------------- else Response.write("Error:" & err.description & " ") end if set Mymail=nothing End if %>
Name * :
Address* :
State :
Country* :
Pin code :
E-mail* :
Phone* :
Number of Adults :
Number of Children :
Number of Rooms :
Check in Date & Time :
Check out Date & Time :
Comments :