<% 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("txtpassword1") <> Request.Form("txtpassword2")) Then Response.Write("
Form can't be process because the form is not fill
") End If If (Request.Form("txtpassword1") <> Request.Form("txtpassword2")) Then Response.Write("
Password must be same.Click a back button to back
") Else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "Select * from author where a_id="&Request.Form("id"), ObjConn, 3,3 ObjRs("a_password")=Request.Form("txtpassword1") ObjRs.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Password has been changed") Response.Write("") End If Else %> <% set ObjRs3=Server.CreateObject("ADODB.Recordset") ObjRs3.Open "Select * from author where a_id="&session("idauthor"), ObjConn, 0,1 %> USER ROOM

 

PASSWORD EDITING

Password:
Password: again
">   
<% ObjRs3.Close Set objRs3 = Nothing ObjConn.Close Set ObjConn = Nothing End If Else Response.Redirect("HOME.asp") End If %>