急！！！ASP错误类型:(0x80020009)发生意外

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from Padmin where admin='"&session("82940admin23")&"'",conn,1,3
if md5(trim(request("password")))<>rs("password") then
response.Write ""
response.End
else
rs("password")=md5(trim(request("password2")))
rs.Update
rs.Close
set rs=nothing
session("82940admin23")=""
session("flag")=""
response.Write ""
end if
response.End ''''''''''''把这个去掉
end if ''''''''这个也去掉

去掉也不行？这个文件前面是不是还有其它代码？
session("82940admin23")这儿应该出错了。
应该用session("admin")