急,"多步 OLE DB 操作产生错误",为什么?我快急死了.

[kaqia2003]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。

/wytq/ztbao/application_end.asp，行166

[kaqia2003]

<% bmbhc=session("bmbhc")
gcmcc=session("gcmcc")
zbbhc=trim(session("zbbhc"))
tbdwc=session("tbdwc")
tbbhc=Session("yhm")
%>
<%
set conn=server.createobject("adodb.connection")
conn.open "DSN=hxh_web;UID=sa;PWD=123"
set rs=server.createobject("adodb.recordset")
sql="select * from x_bm_web where zbbhc=" & "'" & zbbhc & "'" & " and tbbhc=" & "'" & tbbhc & "'"
rs.open sql,conn,3,2
if not rs.eof THEN
response.write"您已经对此项目报过名，不可重复报名！为了方便我们的工作，请您下次务必注意!"
else
rs.addnew
rs("bmbhc")=bmbhc
rs("zbgcc")=gcmcc
rs("zbbhc")=zbbhc
rs("tbdwc")=tbdwc
rs("tbbhc")=tbbhc
rs("bmsjd")=Cstr(now())
rs.update
rs.close
set rs=nothing
%>

[不老书生]

sql="select * from x_bm_web where zbbhc=" & "'" & zbbhc & "'" & " and tbbhc=" & "'" & tbbhc & "'"

--->>>>

sql="select * from x_bm_web where zbbhc='"&zbbhc&"' and tbbhc='"&tbbhc&"'"

[marry7]

它不是告诉你了,缺少end嘛?在你语句里的确没看到啊
if not rs.eof THEN
response.write"您已经对此项目报过名，不可重复报名！为了方便我们的工作，请您下次务必注意!"
else
rs.addnew
rs("bmbhc")=bmbhc
rs("zbgcc")=gcmcc
rs("zbbhc")=zbbhc
rs("tbdwc")=tbdwc
rs("tbbhc")=tbbhc
rs("bmsjd")=Cstr(now())
rs.update
rs.close
set rs=nothing
end

[kaqia2003]

"
rs("tbbhc")=tbbhc
rs("bmsjd")=Cstr(now())
rs.update
rs.close
set rs=nothing
end

"

我这一段写在网页的结尾了,不是这个错误,原先这个程序执行得很好的,现在不知道为什么这样了.

[qiuying0662]

应该改成如下代码：
if not rs.eof THEN
response.write"您已经对此项目报过名，不可重复报名！为了方便我们的工作，请您下次务必注意!"
else
rs.addnew
rs("bmbhc")=bmbhc
rs("zbgcc")=gcmcc
rs("zbbhc")=zbbhc
rs("tbdwc")=tbdwc
rs("tbbhc")=tbbhc
rs("bmsjd")=Cstr(now())
rs.update

end
rs.close
set rs=nothing
只有这样，你在下次再打开一个RS时，就不会抱OLE 同步错误了

[kaqia2003]

我改成了

<% bmbhc=session("bmbhc")
gcmcc=session("gcmcc")
zbbhc=trim(session("zbbhc"))
tbdwc=session("tbdwc")
tbbhc=Session("yhm")
%>
<%
set conn=Server.CreateObject("adodb.connection")
conn.open "DSN=hxh_web;UID=sa;PWD=123"
set rs=server.createobject("adodb.recordset")
sql="select * from x_bm_web where zbbhc='"&zbbhc&"' and tbbhc='"&tbbhc&"'"
rs.open sql,conn,3,2

if not rs.eof then

response.write"您已经对此项目报过名，不可重复报名！为了方便我们的工作，请您下次务必注意!"
else
rs.addnew
rs("bmbhc")=bmbhc
rs("zbgcc")=gcmcc
rs("tbdwc")=tbdwc
rs("tbbhc")=tbbhc
rs("bmsjd")=Cstr(now())
rs.update

end if
rs.close
set rs=nothing
conn.close
set conn=nothing

%>
还是不对,哪位帮帮我啊,我急死了.

[不老书生]

你
response.write sql
response.end

把sql语句考到数据库里执行一下，看对不对？或者看看你数据库里数据类型和长度是不是符合？

不行就用response.end一句句查，我不信查不出来！

[zjhphc]

检查一下传进来的变量是否为空值或NULL，和数据库里的类型是否匹配（包括长度）。

[kandyasp]

数据库文件没有写权限

[tripofdream]

先将这几句注释掉再试：
rs.close
set rs=nothing
conn.close
set conn=nothing

[qiuying0662]

把 rs.open sql,conn,3,2 改为：rs.open sql,conn,1,3

[kakau]

是不是哪个字段溢出了啊