USER LIST


<% 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 %>

Username " size=20>
Password " size=9>
Password* " size=9>
Name " size=38>
Gender " size=9>
Email " size=40>
Address " size=43>
City " size=25>
State " size=20>
Zip " size=14>
Country " size=21>
Status " size=22>
Occupation " size=29>
">


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