进入后台后程序报错ADODB.Recordset 错误 '800a0e79'

[hnyy2010]

各位专家好，我这里有一个问题想请大家帮帮忙
程序上传到远程服务器后错误如下：
ADODB.Recordset 错误 '800a0e79'

对象打开时，不允许操作。

/gw/subuser.asp，行 13

把rs改成rs2运行也不行。

subuser.asp代码如下：
<!--#include file="userfunction.asp"-->
<%
'////////////////////////我的收藏架
sub shoucang()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select actionid,bookid from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai=6",conn,1,1
第十三行：rs.open "select bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid ="&rs2("bookid")&"",conn,1,1
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.dazhe from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("bookshop")("username")&"' and shop_action.zhuangtai=6",conn,1,1
'//html
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
if action="shoucang" then '判断表单是否另开窗口,在用户界面中需要另开窗口
response.write "<form action='shopping.asp' target=ckxp onsubmit=""javascript:window.open('','ckxp','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"">"
else
response.write "<form name='form1' method='post' action=shopping.asp>"
end if
response.write "<tr><td width=7% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>选 择</font></div></td>"
response.Write "<td width=45% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>商品名称</font></div></td>"
response.Write "<td width=14% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>市场价</font></div></td>"
response.Write "<td width=13% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>会员价</font></div></td>"
response.Write "<td width=12% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>折 扣</font></div></td>"
response.Write "<td width=9% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>删 除</font></div></td></tr>"
do while not rs.eof
response.write "<tr><td bgcolor=#EFF5FE><div align=center><input name=bookid type=checkbox checked value="&rs("bookid")&" ></div></td>"
response.write "<td bgcolor=#EFF5FE STYLE='PADDING-LEFT: 5px'><div align=left><a href=book.asp?id="&rs("bookid")&" target=_blank>"&rs("bookname")&"</a></div></td>"
response.write "<td bgcolor=#EFF5FE><div align=center>"&formatnumber(rs("shichangjia"),2)&"元</div></td>"
response.write "<td bgcolor=#EFF5FE><div align=center><font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font></div></td>"
response.write "<td bgcolor=#EFF5FE><div align=center>"&formatnumber(rs("dazhe")*100,2)&"%</div></td>"
response.write "<td bgcolor=#EFF5FE><div align=center>"
'//判断所在页面
if action<>"shoucang" then
response.Write "<a href=shoucang.asp?action=del&actionid="&rs("actionid")&">"
else
response.Write "<a href=shoucang.asp?action=del&actionid="&rs("actionid")&"&ll=22>" '这里是在用户页面做删除动作，来区别删除后的返回位置！
end if
'/////
response.Write "<img src=images/trash.gif width=15 height=17 border=0></a></div></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "<tr><td height=36 colspan=6 bgcolor=#EFF5FE><div align=center><input type=submit name=Submit value=去下订单 >    "
if action<>"shoucang" then
response.write "<input type=button name=Submit2 value=继续采购 onclick=javascript:window.close()>"
end if
response.write "</div></td></tr></form></table>"
end sub%>
<%'////////////////////////收货人资料
sub shouhuoxx()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if

[三楼の郎]

第十三行：rs.open "select bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid ="&rs2("bookid")&"",conn,1,1
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.dazhe from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("bookshop")("username")&"' and shop_action.zhuangtai=6",conn,1,1

中间要加个rs.close，rs.open了以后在rs.close以前不可以再Open别的

[hnyy2010]

谢谢。楼上说得很对

[hnyy2010]

首先要谢谢楼上，现在还要一个问题：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/gw/subuser.asp，行 282

subuser.asp文件中的部份代码如下：
set ckxp=server.CreateObject("adodb.recordset")
第282行代码：ckxp.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&formatnumber(ckxp("zonger")+qita,2)&"元</font>"
ckxp.close

[DengXingJie]

試試 檢查rs中是否有"dingdan"字段

[DengXingJie]

或者看看rs是否有定義

[hnyy2010]

都有的