<% Dim db Set db= Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0." db.Open(Server.MapPath(Dburl)) Dim aryBulan aryBulan = Array("", "January", "Feb", "Mac", "April", "Mei", "Jun", "Julai", "Ogos", "September", "Oktober", "November", "Disember") If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Mr = Request.Form("Mr") Phone = Request.Form("Phone") Email = Request.Form("Email") Hari = Request.Form("Hari") Bulan = Request.Form("Bulan") Tahun = Request.Form("Tahun") Hari2 = Request.Form("Hari2") Bulan2 = Request.Form("Bulan2") Tahun2 = Request.Form("Tahun2") Remarks = Request.Form("Remarks") Arrival_date = Hari & " " & MonthName(Bulan) & " " & Tahun Departure_date = Hari2 & " " & MonthName(Bulan2) & " " & Tahun2 Set rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From TblBooking" rs.Open Sql, db, 1, 2 If Not rs.EOF Then rs.AddNew rs.Fields("Mr") = Mr rs.Fields("Phone") = Phone rs.Fields("Email") = Email rs.Fields("Departure_date") = Departure_date rs.Fields("Arrival_date") = Arrival_date rs.Fields("Remarks") = Remarks rs.Fields("Date_booking") = Now() rs.Update Response.Write("") End If rs.Close Set rs = Nothing End If %> Harbour Lodge
 
 
 
   
Mr. / Mrs. / Miss
Email
Phone Contact
   
Arrival Date
Day   Month   Year
   
Departure Date
Day   Month   Year
   
 
Remarks
   
 
 
 

Hourbour Bistro Lodge, 2nd   Floor, Lot 88, Block HS-09, Sandakan Harbour Square, 90000 Sandakan, Sabah. Tel:6089-235315, Map (Click Here)