<%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("
Form not completed fill,click a back button to check it out your form
") Else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "Select * from author where a_id="&Request.Form("id"), ObjConn, 3,3 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.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing 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 %> USER ROOM

 

UPDATE PROFILE

Email :

Address :

City :

State :

Zip :

Country :

">

  

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