<% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") sqlf="SELECT * FROM config WHERE id_hotel=1" Set rsf=Server.CreateObject("ADODB.Recordset") rsf.Open sqlf, conn, 3, 3 Do While Not rsf.EOF name1=rsf("name1") name2=rsf("name2") name3=rsf("name3") detail1=rsf("detail1") detail2=rsf("detail2") detail3=rsf("detail3") 'season=rsf("season") rsf.MoveNext LOOP conn.close %>

Please complete the form below with your details.

Main Details:    <% if Request.QueryString("fl")=1 then Response.Write "Please fill your Information in the * fields" elseif Request.QueryString("fl")=2 then Response.Write "Wrong arrived date selected" elseif Request.QueryString("fl")=3 then Response.Write "Please check the sysntax of your email address" elseif Request.QueryString("fl")=4 then Response.Write "Please correct the credit card code" elseif Request.QueryString("fl")=5 then Response.Write "Please choose the room package" end if %>

Name *
Email *
Telephone Number
Arrival Date *
 <%fDisplayDate "ad",Day(Now),"am",Month(Now),"ay",Year(Now)%>
Departure Date *
 <%fDisplayDate "dd",Day(Now),"dm",Month(Now),"dy",Year(Now)%>
Beds
Double Beds
Single Bed
* Required

Other Details:
(optional)
Country of residence:
Select Country

Number of Persons:
Adults :
Children under 12 :
  Extra Bed :
( <% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") sqlf="SELECT * FROM hotel WHERE id=1" Set rsf=Server.CreateObject("ADODB.Recordset") rsf.Open sqlf, conn, 3, 3 Do While Not rsf.EOF Response.Write rsf("extrabed") rsf.MoveNext LOOP conn.close %> TBH)
  If this resort is not available, please suggest another
  Comments / Special Requests subject to availability and resort policies

Please select one or more of the following rooms:

<% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") sql="SELECT * FROM room_table WHERE id_hotel=1" Set rs=Server.CreateObject("ADODB.Recordset") i=1 rs.Open sql, conn, 3, 3 response.Write "
" response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " Do While Not rs.EOF response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" rs.MoveNext i=i+1 LOOP Response.Write "
No. of Rooms
Room Type
" & name1 & "
" response.Write detail1 & "
" & name2 & "
" response.Write detail2 & "
" & name3 & "
" response.Write detail3 & "
" response.Write "" response.Write "
"& rs("room_kind") &"
"& rs("high_p") &" Baht
"& rs("low_p") &" Baht
"& rs("peak_p") &" Baht
"& rs("detail") response.Write "
     
" %>

Direct Banking Payment :

Please Transfer deposit 30% for Booking to:
Bank Name :
Bangkok Bank, Branch Koh Phangan, Thailand
Account Name :
Miss Ratchadaphan Sirijanyawong
Account No. :
697-0-000-20-1

Credit Card Payment:
To guarantee your reservation we ask that you pay the first nights accommodation. Thai law states that we must have your signature to debit any amount.When you submit this form a new text version will be generated for you to print, sign and fax. All further correspondence will be via email using the address you supply above.If you wish to cancel, you must do so at least 7 days before the planned arrival date, if not Peach Hill has the right to deduct one night accommodation from your credit card.

CardType Visa Master Card Amex Diners
Card Number :
Expiry Date :
Your E-mail :
Reference No. :
Amount :
Copyright@2007 Rung Arun Resort. All right reserved.