ASP菜鸟：Microsoft VBScript 编译器错误 (0x800A0409)这个怎么解决啊

部分代码是这样的，请高手看看那里错了
sub saveuser()
if session("regtimes")=1 then
response.write "<div align=center><font color=red size=20>对不起，您刚注册过用户。<br>请稍后再进行注册！</font></div>"
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select username,useremail from [user] where username='"&trim(request ("username"))&"'
or useremail='"&trim(request("useemail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword1")))
rs("useremail")=trim(request("useremail"))
rs("question")=trim(reque

ASP菜鸟？ 菜鸟询问：asp是什么 菜鸟求助ASP问题 菜鸟求助：ASP.net asp 菜鸟 问题 ASP菜鸟问题 asp 的菜鸟 ASP小菜鸟提问 ASP 菜鸟提问 asp菜鸟 提问