<%
Response.Buffer=True
If Session("login")=True then
%>
<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open StrConn
If Request.Form("act")="Edit" Then
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.Open "Select * from author where a_id="&Request.Form("id"), ObjConn, 3,3
ObjRs("a_user")=Request.Form("txtuser")
ObjRs("a_password")=Request.Form("txtpassword")
ObjRs("a_name")=Request.Form("txtname")
ObjRs("a_gender")=Request.Form("txtgender")
ObjRs("a_email")=Request.Form("txtemail")
ObjRs("a_address")=Request.Form("txtaddress")
ObjRs("a_city")=Request.Form("txtcity")
ObjRs("a_state")=Request.Form("txtstate")
ObjRs("a_zip")=Request.Form("txtzip")
ObjRs("a_country")=Request.Form("txtcountry")
ObjRs("a_status")=Request.Form("txtstatus")
ObjRs("a_occupation")=Request.Form("txtoccupation")
ObjRs.Update
objRs.Close
ObjConn.Close
Set ObjRs = Nothing
Set ObjConn = Nothing
Response.Write("
Data has been success editing")
Response.Write("")
Else
%>
<%
set ObjRs3=Server.CreateObject("ADODB.Recordset")
ObjRs3.Open "Select * from author where a_id="&session("level"), ObjConn, 0,1
%>
<%
If session("level")=1 then
%>
<%
End If
%>
