<% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn If Request.QueryString("act")="add" Then If (Request.Form("textdate")="" OR Request.Form("texttime")="" OR Request.Form("textplace")="" OR Request.Form("textpackage")="" OR Request.Form("textstatus")="") Then Response.Write("
Form not completed fill,click a back button to check it out your form.
") else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from reservation", ObjConn, 3,3 ObjRs.AddNew ObjRs("r_author")=Session("idAuthor") ObjRs("r_status")=Request.Form("textstatus") ObjRs("r_name")=session("name") ObjRs("r_email")=session("email") ObjRs("r_date")=Request.Form("textdate") ObjRs("r_time")=Request.Form("texttime") ObjRs("r_place")=Request.Form("textplace") ObjRs("r_package")=Request.Form("textpackage") ObjRs.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Your reservation has been process") Response.Write("") End If %> <% end if %>

RESERVATION





Kg. Sg. Dorani:
  • C145
  • C478
  • C991
  • Kg. Sg. Sireh
  • D131
  • D345
  • Bagan Lalang:
  • E743
  • E712
  • Banghuris:
  • A102
  • A103
  • Kg. Hulu Chucuh:
  • B112
  • B114
  • * FOR MORE INFORMATION ABOUT HOMESTAY, PLEASE CLICK AT HOMESTAY PAGE

    Date order : (dd/mm/yyyy)
    Time order :
    Place order :
    Package :
    Status : I agree