<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=connpic progid="adodb.connection"></object>
<%application.Lock
connpic.Open Application("p_pic")
Application.UnLock
%>
<% 
id=request("id")

set rs=server.createobject("ADODB.recordset") 
rs.Supports ( adUpdate )
sql="select * from pic where id=" & id
rs.open sql,connpic,2,3
	if rs.RecordCount<>0 then
		rs("checked")=1
	end if
	rs.Update
rs.close 
set rs=nothing 

response.redirect "photo_manage.asp?sex="&request("sex")
%> 
