Online hotel booking services
 



Online Booking

<% if Request.Form("submit")<>"" then strRecipientEmail="hotel@elegant-group.com" strAuthorEmail=trim(Request.Form("cust_email")) strSubject="Request for Hotel Booking Quotation" strBody="Hello Administrator" & "
" & "
" strBody=strBody & "Name : " & trim(Request.Form("cust_name")) & "
" strBody=strBody & "Phone & Fax : " & trim(Request.Form("cust_phone")) & "
" strBody=strBody & "Email : " & trim(Request.Form("cust_email")) & "
" strBody=strBody & "Company : " & trim(Request.Form("cust_company")) & "
" strBody=strBody & "Address : " & trim(Request.Form("cust_address")) & "
" strBody=strBody & "State : " & trim(Request.Form("cust_state")) & "
" strBody=strBody & "Country : " & trim(Request.Form("cust_country")) & "
" strBody=strBody & "Date of Arrival : " & trim(Request.Form("cust_date_arrival")) & "
" strBody=strBody & "Date of Departure : " & trim(Request.Form("cust_date_departure")) & "
" strBody=strBody & "Number of People : " & trim(Request.Form("cust_no_people")) & "
" strBody=strBody & "Number of Rooms : " & trim(Request.Form("cust_no_room")) & "
" strBody=strBody & "Pick up Facility : " & trim(Request.Form("cust_pickup_facility")) & "
" Call EmailCdonts(strAuthorEmail,strRecipientEmail,"", strSubject,strBody ,0,"",2) Response.Write("Message Sent.....") end if %>
Current Email*
Name*
Phone & Fax*
Company
Address
State*
Country
Date of Arrival
Date of Departure
Number of People
Number of Rooms
Would you need a Pick up Airport     Railway