Facilities Accomodation Gallery Banquet Reservation Guestbook Contact
 
RESERVATIONS
<% 'If the form has not been submitted execute the following code If Request.Form="" Then %>
Name :
Gender :
Male     Female
City :
Country :
Contact No. :
E -mail :
Date of Arrival :
Time of Arrival :
Date of Departure :
Time of Departure :
Room Type(s) :



Query / Comment :
   
    
<% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sGender, sCity, sCountry, sContact, sEmail, sDateOfArrivalDate, sDateOfArrivalMonth, sDateOfArrivalYear, sTimeOfArrivalTime, sTimeOfArrivalNoon, sDateOfDepartureDate, sDateOfDepartureMonth, sDateOfDepartureYear, sTimeOfDepartureTime, sTimeOfDepartureNoon, sTypesOfRooms1, sNumberOfRooms1, sAdults1, sChildren1, sTypesOfRooms2, sNumberOfRooms2, sAdults2, sChildren2, sTypesOfRooms3, sNumberOfRooms3, sAdults3, sChildren3, sTypesOfRooms4, sNumberOfRooms4, sAdults4, sChildren4, sComment sName=Request.Form("txtName") sGender=Request.Form("txtGender") sCity=Request.Form("txtCity") sCountry=Request.Form("txtCountry") sContact=Request.Form("txtContact") sEmail=Request.Form("txtEmail") sDateOfArrivalDate=Request.Form("txtDoadate") sDateOfArrivalMonth=Request.Form("txtDoamonth") sDateOfArrivalYear=Request.Form("txtDoayear") sTimeOfArrivalTime=Request.Form("txtToatime") sTimeOfArrivalNoon=Request.Form("txtToanoon") sDateOfDepartureDate=Request.Form("txtDoddate") sDateOfDepartureMonth=Request.Form("txtDodmonth") sDateOfDepartureYear=Request.Form("txtDodyear") sTimeOfDepartureTime=Request.Form("txtTodtime") sTimeOfDepartureNoon=Request.Form("txtTodnoon") sTypesOfRooms1=Request.Form("txtRt1") sNumberOfRooms1=Request.Form("txtNr1") sAdults1=Request.Form("txtAdults1") sChildren1=Request.Form("txtChildren1") sTypesOfRooms2=Request.Form("txtRt2") sNumberOfRooms2=Request.Form("txtNr2") sAdults2=Request.Form("txtAdults2") sChildren2=Request.Form("txtChildren2") sTypesOfRooms3=Request.Form("txtRt3") sNumberOfRooms3=Request.Form("txtNr3") sAdults3=Request.Form("txtAdults3") sChildren3=Request.Form("txtChildren3") sTypesOfRooms4=Request.Form("txtRt4") sNumberOfRooms4=Request.Form("txtNr4") sAdults4=Request.Form("txtAdults4") sChildren4=Request.Form("txtChildren4") sComment=Request.Form("txtComment") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Online Reservation from: " & sName & "

" sEmailText = sEmailText & "Name:" & sName & "
" sEmailText = sEmailText & "Gender:" & sGender & "
" sEmailText = sEmailText & "City:" & sCity & "
" sEmailText = sEmailText & "Country:" & sCountry & "
" sEmailText = sEmailText & "Contact:" & sContact & "
" sEmailText = sEmailText & "Email:" & sEmail & "
" sEmailText = sEmailText & "Date Of Arrival:" & sDateOfArrivalDate & sDateOfArrivalMonth & sDateOfArrivalYear & "
" sEmailText = sEmailText & "Time Of Arrival:" & sTimeOfArrivalTime & sTimeOfArrivalNoon & "
" sEmailText = sEmailText & "Date Of Departure:" & sDateOfDepartureDate & sDateOfDepartureMonth & sDateOfDepartureYear & "
" sEmailText = sEmailText & "Time Of Departure:" & sTimeOfDepartureTime & sTimeOfDepartureNoon & "
" sEmailText = sEmailText & "Room Type:" & sNumberOfRooms1 & sTypesOfRooms1 & sAdults1 & sChildren1 & "
" sEmailText = sEmailText & "Room Type:" & sNumberOfRooms2 & sTypesOfRooms2 & sAdults2 & sChildren2 & "
" sEmailText = sEmailText & "Room Type:" & sNumberOfRooms3 & sTypesOfRooms3 & sAdults3 & sChildren3 & "
" sEmailText = sEmailText & "Room Type:" & sNumberOfRooms4 & sTypesOfRooms4 & sAdults4 & sChildren4 & "
" sEmailText = sEmailText & "Comment:" & sComment & "

" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "reservations@hotelhighwayinn.com" 'change to your address NewMailObj.Subject = "Online Reservation (from website)" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for your online reservation.
" End If %>

Confirmation of this reservation will be provided to you at the earliest

 
Copyright © 2008 – Hotel Highway Inn