<%
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 author where a_id="&request.Form("id"), ObjConn, 3,3
ObjRs.delete
objRs.Close
ObjConn.Close
Set ObjRs = Nothing
Set ObjConn = Nothing
Response.Write("
Data has been success delete") Response.Write("") Else %> <% Set ObjRs=server.CreateObject("ADODB.Recordset") objRs.open "select * from author where a_id="&Request.QueryString("id"), objConn,0,1 %>
<% objRs.close objConn.Close set objRs=Nothing Set objConn=Nothing End If Else Response.Redirect("HOME.asp") End If %>