<% dim sStat sStat = "Y" if request("Save")="Y" then sStat="E" if len(trim(request("name"))) >= 5 and len(trim(request("nationality"))) >= 5 and len(trim(request("telno"))) >= 5 and len(trim(request("Email"))) >= 5 then sStat="N" sMessage ="" sMessage = sMessage & "Name of the Person : " & request("name") & "
" sMessage = sMessage & "Nationality : " & request("nationality") & "
" sMessage = sMessage & "Country of Residence : " & request("country") & "
" sMessage = sMessage & "City of Residence : " & request("city") & "
" sMessage = sMessage & "Tel No : " & request("telno") & "
" sMessage = sMessage & "Fax No : " & request("faxno") & "
" sMessage = sMessage & "Email : " & request("email") & "
" sMessage = sMessage & "Room Category Required : " & request("select1") & "
" sMessage = sMessage & "Check-in Date : " & request("textfield1") & "
" sMessage = sMessage & "Check-out Date : " & request("textfield") & "
" sMessage = sMessage & "Payment Mode : " & request("V1" ) & "
" sMessage = sMessage & "Pick up Required : " & request("select") & "
" sMessage = sMessage & "Comment : " & request("comments") & "
" sendmail "","support@ojasresidency.com","Online Booking",sMessage end if end if %> <% sPageID = "5" %>

Booking

<% if sStat="N" then %> Your Information has been submitted successfully.
We will reply you as soon as possible. <% else %>

<% if sStat="E" then %> <% end if %>

Error Found !!! Please Enter Required field with '*'
Name of the Person*	">
Nationality*	">
Country of Residence	">
City of Residence	">
Tel No *	">
Fax No	">
Email *	">
Room Category Required	<% dim sSel1,sSel2,Sel3 sSel1 = "" sSel2 = "" sSel3 = "" if instr(1,request("select1"),"Double") then sSel1 = "selected" else sSel2 = "selected" end if %>
Check-in Date	">
Check-out Date	">
Payment Mode	<% sSel1 = "" sSel2 = "" sSel3 = "" if instr(1,request("V1"),"Bank") then sSel3 = "selected" elseif instr(1,request("V1"),"Credit") then sSel2 = "selected" else sSel1 = "selected" end if %>
Pick up Required	<% sSel1 = "" sSel2 = "" sSel3 = "" if instr(1,request("select"),"No") then sSel2 = "selected" else sSel1 = "selected" end if %>
Comment	">

<% end if %>