UPDATE PROFILE
<%
ObjRs3.Close
Set objRs3 = Nothing
ObjConn.Close
Set ObjConn = Nothing
End If
Else
Response.Redirect("HOME.asp")
End If
%>
%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("txtemail")="" OR Request.Form("txtaddress")="" OR Request.Form("txtcity")="" OR Request.Form("txtstate")="" OR Request.Form("txtzip")="" OR Request.Form("txtcountry")="") Then Response.Write("
Your profile has been update.") Response.Write("") End If Else %> <% set ObjRs3=Server.CreateObject("ADODB.Recordset") ObjRs3.Open "Select * from author where a_id="&session("idauthor"), ObjConn, 0,1 %>