我想在一个表中循环读出6个记录，分两行一行三个排列，我用以下语句不能实现请高人指点，代码如下

<%
		set drs=server.CreateObject("adodb.recordset")
		drs.open "select * from shop_books"
		%>
		<%if drs.eof or drs.bof then
response.write "对不起没有搜索到记录!"
response.end
else
while not drs.eof

%>

		<table width="220" border="0" align="center" cellpadding="0" cellspacing="0">
          <%set rs=server.createobject("adodb.recordset")
		rs.open "select Top 3 * from shop_books where bestbook=1 order by bookid desc",conn,1,1
		if rs.recordcount=0 then 
		%>
          暂无推荐精品 
          <%
		else
		while not rs.eof
		%>
          <td width="688"> 
            <!--#include file="shangping_j.asp"-->
          </td>
          <%rs.movenext
		wend
		end if
%>
          </tr>
        </table>
		<%
		drs.movenext
		wend
		end if
		%>
        <br>

系统报错如下：ADODB.Recordset 错误 '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

/index.asp，行260
怎么可以解决，谢谢

谢谢，我通过循环<tr>实现了

强烈抗议楼上janlay朋友的言论！

　　偶在二楼的回复是当偶看到楼主的问题后因为偶以前碰到过这样的问题，所以就凭印象根据偶以前的解决方法给予热心的帮助。回复的目的也仅仅是想给楼主提供一种解决问题的思路，是偶的热心使然，而没有什么别的意思。
　　但是，今天偶然看到janlay朋友的回复，偶感觉到自己的一腔热心受到了极大的伤害，从“请确信你的回复对于解决问题有所帮助。”这句来看，偶感觉到janlay朋友认为偶是在调侃，或者说偶是在误导别人！对于此偶无法接受。
　　在这个平台，大家谁也没有义务必须回复别人的问题，之所以有５D的今天，我想这与大家的热心是分不开的，因为任何一个人在热心回复别人的问题的时候都是没有想过回报问题的。
　　大家都是5D的朋友，有了问题一起讨论，当别人有了过错的时候直接指出来就可以了，都是年轻人，没有什么不可以接受的，没有必要说一些有伤害别人感情的言论。
　　
　　对于楼上的问题本身，为了进一步证实偶没有误导大家，偶觉得都有必要做一个验证，下面附上偶的代码和验证结果：
<%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=sqloledb;datasource=zouran;uid=zouran9704;pwd=1981114;data base=hubuonline"
set drs=conn.execute("select * from corpor_self")
%>
<%
if drs.eof or drs.bof then
response.write "对不起没有搜索到记录!"
response.end
else
do while not drs.eof
%>

<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from corpor_self",conn
if rs.recordcount=0 then
%>
暂无推荐精品
<%
else
     while not rs.eof
     response.Write("h.")
rs.movenext
     wend
end if
drs.movenext
response.Write("hello!<br>")
loop
end if
%>
结果显示：
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!
h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.h.hello!

呵呵，收到！

　　楼主在帖子中报错为“连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。”偶根据楼主贴出的程序内容加上自己的经验判断连续打开两个recordset对象而没有关闭肯定出错，并且错误中已经提示在260行，我想如果楼主程序里面应当包含260行！
　　
　　以上测试用的代码仅仅是为了测试“事实上这两个写法效果是一样的”这句话！按照偶的说法修改之后，如果没有语法错误，应该是不会在出现错误的！关于代码为了能充分说明问题偶就直接拷贝楼主的，仅仅是修改了一下查询语句和将table给去掉了。
　　偶也是菜鸟，能得到朋友的指教不胜感激！

两位大哥,非常感谢你们对我的帮助，可能是实现方法上的不同，我实现的方法是产生6个记录集，采取了下面的代码

<table width="99" height="110" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <%set rs=server.createobject("adodb.recordset")
		rs.open "select  top 6 * from shop_books where bestbook=1 order by bookid desc",conn,1,1
		do while not rs.eof%>
            <%
		dim e
		e=0
		do while not rs.eof and e<3
		%>
            <td width="688" height="100" valign="top"> <!--#include file="shangping_j.asp"--> </td>
            <%
e=e+1
rs.movenext
Loop
%>
          </tr>
          <%Loop%>
        </table>

呵呵,还是 connection 对象的问题,你的drs对象缺少 connection 引用

在open方法前加上一句: drs.activeconnection=conn

原来的写法确实是缺少一个参数，这才是出错的关键所在。你的语句只不过换了另一个写法，掩盖了真正的问题所在。
如果写法正确，这两种代码效果完全一样：

set rs=server.createobject("adodb.recordset")
rs.open strSql,con

set rs=con.execute(strSql)

这才是我要说的问题，而不是要谁认错。

要想攀上颠峰，先保持平和的心态

在不需要分页的地方，偶喜欢用
set rs=conn.execute(sql)
要分页的时候才用
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1