发生在数据更新中的严重错误，请高手解答，在线等待……

 1   
 2dim strsql,rs   
 3set rs= Server.CreateObject("adodb.recordset")   
 4rs.open "select * from cp where id="&request("id"),conn,1,3   
 5rs("name")=request("name")   
 6rs("guige")=request("guige")   
 7rs("hanliang")=request("hanliang")   
 8rs("beizhu")=request("beizhu")   
 9if session("picurl")<>"" then   
10rs("tupian")=session("picurl")   
11end if   
12if request("tupian")="yes" then   
13rs("tupian")=""   
14end if   
15rs("admin")=request("admin")   
16rs.update   
17rs.close   
18conn.close   
19session("picurl")=""   
20set rs=nothing   
21set conn=nothing   
22Response.Redirect("cp_list.asp")