写了代码　想实现检查数据提交是否有错，如果有错则不提交

<%

on error resume next

dim sql,rst
if request.QueryString("act")="reg" then
if request.Form("f_user")="" or request.Form("f_code")="" then
msgboxu "用户名和密码都要填写！"
else
set rst=server.CreateObject("adodb.recordset")
sql="select count(*) as recnum from tbl_user where u_user='"&request.Form("f_user")&"'"
rst.open sql,conn,1,1
if rst("recnum")>0 then
msgboxu "用户名已存在！"
else
sql="insert into tbl_user (u_user,u_code,u_name,u_sex,u_tel) values('"&request.Form("f_user")&"','"&request.Form("f_code")&"','"&request.Form("f_name")&"','"&request.Form("f_sex")&"','"&request.Form("f_tel")&"')"
conn.BeginTrans
conn.execute sql
if err then
conn.rollbacktrans
msgboxu "注册失败！原因："&myerrors.item(0).description
err.clear
else
conn.CommitTrans
msgboxu "注册成功！"
end if
end if
rst.close
set rst=nothing
end if
end if
%>

如果去掉on error resume next就会提示　不能现在无法设置属性 conn.BeginTrans　错误在这行
加上on error resume next 则不会msgboxu "注册成功！"弹出对话框
请帮看一下是哪里错误的啊？

如果这样检验提示是否正确可以吗？

[此贴子已经被作者于2007-5-9 10:32:44编辑过]