<%Response.Buffer=True
If Session("login")=True then
%>
<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open StrConn
If Request.Form("act")="Editing" Then
If (Request.Form("txtdate")="" OR Request.Form("txttime")="" OR Request.Form("txtplace")="" OR Request.Form("txtpackage")="") Then
Response.Write("
Form not completed fill,click a back button to check it out u'r form
")
Else
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.Open "Select * from reservation where r_id="&Request.Form("id"), ObjConn, 3,3
ObjRs("r_date")=Request.Form("txtdate")
ObjRs("r_time")=Request.Form("txttime")
ObjRs("r_place")=Request.Form("txtplace")
ObjRs("r_package")=Request.Form("txtpackage")
ObjRs.Update
objRs.Close
ObjConn.Close
Set ObjRs = Nothing
Set ObjConn = Nothing
Response.Write("
Data has been success editing")
Response.Write("")
End If
Else
%>
<%
Set ObjRs=server.CreateObject("ADODB.Recordset")
objRs.open "select * from reservation where r_id="&Request.QueryString("id"), objConn,0,1
%>
