<%@ Language=VBScript %>

<% dim body1,rid,resvid application.Lock application("resv_id") = application("resv_id")+1 rid=application("resv_id") application.UnLock body1="From :" & request.Form("name1") & chr(13) if trim(request.Form("cname")) <> "" then body1 = body1 & "Company Name: " & request.Form("cname") & chr(13) if trim(request.Form("desgn")) <> "" then body1 = body1 & "Designation : " & request.Form("desgn") & chr(13) body1 = body1 & "Address : " & request.Form("address") & chr(13) body1 = body1 & "City :" & request.Form("city") & chr(13) body1 = body1 & "State :" & request.Form("state") & chr(13) body1 = body1 & "PIN :" & request.Form("pin") & chr(13) if request.Form("country") <> "" then body1 = body1 & "Country :" & request.Form("country") & chr(13) body1 = body1 & "City :" & request.Form("city") & chr(13) body1 = body1 & "Phone :" & request.Form("phone") & chr(13) if request.Form("fax") <> "" then body1 = body1 & "Fax :" & request.Form("fax") & chr(13) body1 = body1 & "Email :" & request.Form("email") & chr(13) body1 = body1 & "Arrival Date(mm/dd/yyyy) :" & request.Form("month1") & "-" & request.Form("date1") & "-" & request.Form("year1") & chr(13) 'body1 = body1 & "Arrival Time :" & request.Form(arr_time) & " " & request.Form("time1") & "
" body1 = body1 & "Departure Date(mm/dd/yyyy) :" & request.Form("month2") & "-" & request.Form("date2") & "-" & request.Form("year2") & chr(13) body1 = body1 & "No. of Persons :" & request.Form("persons") & chr(13) body1 = body1 & "No. of Rooms :" & request.Form("rooms") & chr(13) body1 = body1 & "Type of Room :" & request.Form("rtype") & chr(13) if request.Form("bed1") <> "" then body1 = body1 & "No. of Extra Beds :" & request.Form("bed1") & chr(13) if request.Form("remarks") <> "" then body1 = body1 & "Special Requets :" & request.Form("remarks") & chr(13) resvid="R" & rid & "-" & day(date) & month(date) & year(date) body1 = body1 & chr(13) & "Reservation Track Number = " & resvid & chr(13) dim objmail set objmail = server.createObject("CDONTS.NewMail") objmail.From = request.Form("email") objmail.To = "reservations@hotelmeghalaya.com" objmail.subject = "Reserve a Room" objmail.body= body1 objmail.send set objmail = nothing %> Thank you for choosing Hotel Meghalaya!
Your Reservation id is <%=resvid%>.
Please use this id as a reference for tracking your reservation.

You will get the response for your reservation with in 24 hrs.
If you didn't receive a response in the specified time, please mail to gm@hotelmeghalaya.com.