<%if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
 end if 
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%if Request("public_select")=2 then
	public_select=1
else
	public_select=2
end if
sql="update user set public_select="&public_select
sql=sql&" where user_name='"&session("Current_user")&"'"
conn1.Execute(sql)
Response.Redirect "my_personal_status.asp"

%>