<% if Request.Form("txtguestname") <> "" then Dim objCDOMail Dim milid '***********Mail ID Selection depend on property ******************** if (Request.Form("PROP")="Hyderabad") then milid="reserv.hyd@hotelgreenpark.com" elseif (Request.Form("PROP")="Chennai") then milid="reserv.chn@hotelgreenpark.com" elseif (Request.Form("PROP")="Visakhapatnam") then milid="reserv.vizag@hotelgreenpark.com" End if Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("txtEmail") objCDOMail.To = milid objCDOMail.Subject = "Reservation Detail Information" objCDOMail.Body = "Atn : Reservations " & "," & "

" & _ "New Reservation made from Web site as follows :- " & "

" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
" & "Guest Name :" & "" & Request.Form("txtGuestName") & "
" & "Company :" & "" & Request.Form("txtCompany") & "
" & "Designation :" & "" & Request.Form("txtdesignation") & "
" & "Arrival :" & "" & Request.Form("txtarrival") & "
" & "Flight No :" & "" & Request.Form("txtFlightNo") & "
" & "Date of Arrival :" & "" & Request.Form("txtDateofArrival") & "
" & "Arrival Time :" & "" & Request.Form("txtArrivalTime") & "
" & "Date of Departure :" & "" & Request.Form("txtdateofdeparture") & "
" & "Departure Time :" & "" & Request.Form("txtdeparturetime") & "
" & "Billing Instruction :" & "" & Request.Form("optbilling") & "
" & "Requested By :" & "" & Request.Form("txtrequested") & "
" & "Phone :" & "" & Request.Form("txtphone") & "
" & "Company :" & "" & Request.Form("txtcompany2") & "
" & "Special Instruction :" & "" & Request.Form("txtspecial") & "
" & "

" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
" & "Room Type" & "
" & "Single" & "
" & "Double" & "
" & "Deluxe :" & "
" & Request.Form("comSingle1") & "
" & Request.Form("comDouble1") & "
" & "Bussiness Club :" & "
" & Request.Form("comSingle2") & "
" & Request.Form("comDouble2") & "
" & "Executive Suite :" & "
" & Request.Form("comSingle3") & "
" & Request.Form("comDouble3") & "
" & "Junior Suite :" & "
" & Request.Form("comSingle4") & "
" & Request.Form("comDouble4") & "
" & "Quality Suite :" & "
" & Request.Form("comSingle5") & "
" & Request.Form("comDouble5") & "
" & _ " " & _ "" objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing 'Set mail = Server.CreateObject("JMail.SMTPMail") 'mail.ServerAddress = "202.71.136.101" 'mail.Sender = Request.Form("txtEmail") 'mail.AddRecipient "reserv.hyd@hotelgreenpark.com" 'mail.Subject = "Reservation Detail Information" 'mail.HTMLBody = "Atn : Reservations " & "," & "

" & _ ' "New Reservation made from Web site as follows :- " & "

" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "
" & "Guest Name :" & "" & Request.Form("txtGuestName") & "
" & "Company :" & "" & Request.Form("txtCompany") & "
" & "Designation :" & "" & Request.Form("txtdesignation") & "
" & "Arrival :" & "" & Request.Form("txtarrival") & "
" & "Flight No :" & "" & Request.Form("txtFlightNo") & "
" & "Date of Arrival :" & "" & Request.Form("txtDateofArrival") & "
" & "Arrival Time :" & "" & Request.Form("txtArrivalTime") & "
" & "Date of Departure :" & "" & Request.Form("txtdateofdeparture") & "
" & "Departure Time :" & "" & Request.Form("txtdeparturetime") & "
" & "Billing Instruction :" & "" & Request.Form("optbilling") & "
" & "Requested By :" & "" & Request.Form("txtrequested") & "
" & "Phone :" & "" & Request.Form("txtphone") & "
" & "Company :" & "" & Request.Form("txtcompany2") & "
" & "Special Instruction :" & "" & Request.Form("txtspecial") & "
" & "

" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ '' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "" & _ ' "
" & "Room Type" & "
" & "Single" & "
" & "Double" & "
" & "Deluxe :" & "
" & Request.Form("comSingle1") & "
" & Request.Form("comDouble1") & "
" & "Bussiness Club :" & "
" & Request.Form("comSingle2") & "
" & Request.Form("comDouble2") & "
" & "Executive Suite :" & "
" & Request.Form("comSingle3") & "
" & Request.Form("comDouble3") & "
" & "Junior Suite :" & "
" & Request.Form("comSingle4") & "
" & Request.Form("comDouble4") & "
" & "Quality Suite :" & "
" & Request.Form("comSingle5") & "
" & Request.Form("comDouble5") & "
" & _ ' " " & _ ' "" ' mail.Priority = 3 ' mail.Execute Dim objCDOMail1 Set objCDOMail1 = Server.CreateObject("CDONTS.NewMail") objCDOMail1.From = milid objCDOMail1.To = Request.Form("txtEmail") objCDOMail1.Subject = "Auto Responder" objCDOMail1.Body = " Dear Guest " & "," & "

" & _ "This is an acknowledgement for your mail and it is forwarded to " & "
" & _ "our reservation team for their appropriate response. " & "

" & _ "We will get back to you regarding the status of your booking at the earliest." & "

" & _ "Sincerely, " & "
" & _ "Reservation Division-" & Request.Form("PROP")& "
" & milid objCDOMail1.BodyFormat = 0 objCDOMail1.MailFormat = 0 objCDOMail1.Send Set objCDOMail1 = Nothing ' Set mail1 = Server.CreateObject("JMail.SMTPMail") ' mail1.ServerAddress = "202.71.136.101" ' mail1.Sender = "reserv.hyd@hotelgreenpark.com" ' mail1.AddRecipient Request.Form("txtEmail") ' mail1.Subject = "Auto Responder" ' mail1.HTMLBody = " Dear Guest " & "," & "

" & _ ' "This is an acknowledgement for your mail and it is forwarded to :-" & "
" & _ ' "our reservation team for their appropriate response. :- " & "

" & _ ' "We will get back to you regarding the status of your booking at the earliest.:- " & "

" & _ ' "Sincerely, " & "
" & _ ' "Reservation Division" & "
" & _ ' "Hotel Green Park-Hyderabad" ' ' mail1.Priority = 3 ' mail1.Execute Session("StrMsg") = "Dear " & Request.Form("txtGuestName") & "
" & _ "Thank you for choosing Hotel Green Park we will get back you soon." &"
Green Park-" & Request.Form("PROP") End if %> Deluxe Hotels Hyderabad,Visakhapatnam,Chennai Deluxe Hotels.
 
HOME
OUR BRANCHES

 

Hyderabad
 Vishakhapatnam
 Chennai
ONLINE RESERVATION
GUEST BOOK
CAREER
CONTACT US
SITEMAP
OTHER RESOURCES
<% = Session("StrMsg")%>
 
ONLINE RESERVATION
Reservation at :

 
   
Guest Name :
Company :
Designation :
Email :
Arrival :
Flight No. :

Date Of Arrival :
  		(mm/dd/yyyy)
Arrival Time :
(hh/mm/ss) 

Date Of Departure :
  		(mm/dd/yyyy)

Departure Time :
 		 (hh/mm/ss)
Billing Instructions : Direct      Credit Card
Requested By :
Phone :
Company :
Special Instructions :
   
ROOM TYPE SINGLE DOUBLE
Delux
Business Club
Executive Suite
Junior Suite
Quality Suite

 
 
© 2004 Hotel Green Park - All Rights Reserved
Hyderabad | Vishakhapatnam | Chennai