ASP提示 缺少对象: ''

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/UserSave.asp，行 33

附代码：

<%
Dim sql,name,pass,HVrs '定义变量
'从表单中读取用户名数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量
'name中
name = Trim(Request.Form("name"))
'从表单中读取密码数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量pass中
pass = Trim(Request.Form("pass"))
'如果flag域的值为new，表示添加数据，否则表示修改数据
If Request.Form("flag") = "new" Then
'判断此用户是否存在
Set HVrs = Server.CreateObject("ADODB.RecordSet")
'从数据库中查询name列的值为name的记录
sql = "Select * from hy where name = ' "&name&" ' "
'执行查询，并将结果保存在HVrs中
HVrs.Open sql,conn,1,3
If Not HVrs.EOF Then

<%
Dim sql,name,pass,HVrs '定义变量
'从表单中读取用户名数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量
'name中
name = Trim(Request.Form("name"))
'从表单中读取密码数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量pass中
pass = Trim(Request.Form("pass"))
'如果flag域的值为new，表示添加数据，否则表示修改数据
If Request.Form("flag") = "new" Then
'判断此用户是否存在
Set HVrs = Server.CreateObject("ADODB.RecordSet")
'从数据库中查询name列的值为name的记录
sql = "Select * from hy where name = ' "&name&" ' "
'执行查询，并将结果保存在HVrs中
HVrs.Open sql,conn,1,3
If Not HVrs.EOF Then '不存在满足条件的记录
Response.Write "<script>alert('已经存在此用户名'); _history.back();</script>"
Response.End
Else '存在满足条件的记录
Set Urs = nothing
'在数据库hy中插入新信息
Set Urs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from hy"