RESERVATION DELETE

<% Response.Buffer=True If Session("login")=True then %> <% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn If Request.Form("act")="delete" Then Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from reservation where r_id="&request.Form("id"), ObjConn, 3,3 ObjRs.delete objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Reservation form has been delete.") Response.Write("") Else %> <% Set ObjRs=server.CreateObject("ADODB.Recordset") objRs.open "select * from reservation where r_id="&Request.QueryString("id"), objConn,0,1 %>

">  
Name: <%=objRs("r_name")%> 
email: <%=objRs("r_email")%> 
date: <%=objRs("r_date")%> 
time: <%=objRs("r_time")%> 
place: <%=objRs("r_place")%> 
package: <%=objRs("r_package")%> 
status: <%=objRs("r_status")%> 


<% objRs.close set objRs=Nothing objConn.Close Set objConn=Nothing End If Else Response.Redirect("HOME.asp") End If %>