<%
if Request("Submit")="Submit" then
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Booking from " &Request("name")
myMail.From=Request("email")
myMail.To="chichu.boscend@live.com"
'myMail.To="vythiri@lezeldor.com"
'myMail.To="beta@metexcreations.com"
'myMail.Bcc="info@metexcreations.com"
myMail.HTMLBody = "
"
on error resume next
myMail.Send
'----------------------------------------------------------
else
Response.write("Error:" & err.description & " ")
end if
set Mymail=nothing
End if
%>
Name:"&Request("title")&" "&Request("name")&"
Address:"&Request("address")&"
Country:"&Request("country")&"
State:"&Request("state")&"
Phone:"&Request("Phone")&"
Email:"&Request("email")&"
Arrival Date:"&Request("arrivaldate")&"
Departure Date:"&Request("arrivaldate")&"
Room Category:"&Request("room")&"
No of Rooms Required:"&Request("rooms")&"
No of Adults:"&Request("adults")&"
No of Children:"&Request("cadults")&"
Booking Query / Comments:"&Request("cmnts")&"
Thank you,
"&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="marketing@lezeldor.com"
myMail.From="chichu.boscend@live.com"
myMail.To=replace (request("email"),"'","''")
myMail.HTMLBody = ""&Request("name")&"
| Dear " & Replace (Request("name"),"'","''")&" | |
| Thank you for your booking. Your mail is forwarded to our reservation section. We will soon contact with you | |
| Regards, | |
Grand Plaza Munnar | |
Booking

