本人在做一个展品展示的页面，3个产品的图片为一行？ 如何进行3个记录集的不断循环，直到把数据库里的产品都调出来？？ 下面是我用的代码,但是不能实现，是算法上的错误！！

<%
Dim rspro,sqlpro
Set rspro=Server.CreateObject("ADODB.Recordset")
sqlpro="Select Pro_name,Pro_contents,Pic_url,ID From Products"   'pro_name 为产品名称，Pro_contents为产品简介,Pic_url 为产品路径,ID，为产品自动编号
rspro.open sqlpro,conn1,1,1
%>

'下面是循环显示的语句
<% Do While not rspro.eof %>
        <tr>
          <td><img border="1" src="houtai/<%=rspro("Pic_url")%>" alt="<%= rspro("Pro_name") %>" width="153" height="115" /><br />
          <br />
            <span class="STYLE1">???????<span class="STYLE6"><%= rspro("Pro_name") %></span></span></td>
            <% rspro.movenext %>
        <td><img  border="1"  src="houtai/<%= rspro("Pic_url") %>" alt="<%= rspro("Pro_name") %>" width="153" height="115" /><br /><br />
          <span class="STYLE1">????????<span class="STYLE6"><%= rspro("Pro_name") %></span></span></td>
          <% rspro.movenext %>
          <td><img border="1" src="houtai/<%= rspro("Pic_url") %>" alt="<%= rspro("Pro_name") %>" width="153" height="115" /><br /><br />
            <span class="STYLE1">??????<span class="STYLE2 STYLE6"><%= rspro("Pro_name") %></span></span></td>
        </tr>
        <%
        rspro.movenext
        Loop
         %>

[[italic] 本帖最后由 cainiao158 于 2008-1-2 14:28 编辑 [/italic]]

没有人回答，我自己顶个！！！

为什么前面也要加两句
<% rspro.movenext %>

i=0
 <tr>　<% Do While not rspro.eof
i=i+1
%>
          <td><img border="1" src="houtai/<%=rspro("Pic_url")%>" alt="<%= rspro("Pro_name") %>" width="153" height="115" /><br />
          <br /><span class="STYLE1"> <span class="STYLE6"><%= rspro("Pro_name") %></span></span></td>
        
        <%
if i mod 3=0 then
response.write "</tr><tr>"
end if
        rspro.movenext
        Loop
         %>
</tr>
思路大根是这样，具体你先试试吧

我晕了 这个效果。。。。 要不要我给你现成的自己改啊。。。。linyesu的 有那意思了 但不全

[[italic] 本帖最后由 flynet 于 2008-1-5 02:01 编辑 [/italic]]

这是我写的完整的程序 你只要原封不动的复制到你要显示的td 里就可以了 当然要改 sql语句了还有就是maxperpage 样式方面自己改改就可以了
<%
          zsql="select  * from product where  Deleted=0 and isok=1 and ishot=1 order by id desc"
            set zrs=server.CreateObject("adodb.recordset")
                         zrs.open zsql,conn,3,3
                         dim MaxPerPage
                          MaxPerPage=8
                          %>
          <table width="99%" border=0
                        align=center cellpadding=2 cellspacing=0>
          <tbody>
            <tr valign=top>
              <%row_count=1                                               
                    '显示帖子的子程序                                                
                    Sub list()%>
              <%i=0                                                
                     Do While Not zrs.EOF%>
              <td><table border="0" cellpadding="3" cellspacing="0" >
                <tr class="pro">
                  <td align="center" class="pro" ><img src="<%=zrs("imageurl")%>" width="122" height="122" border="0"></td>
                </tr>
                <tr>
                  <td align="center" class="hei0" ><a href="**.asp?id=<%=zrs("id")%>" target="_blank"><%=zrs("name")%></a></td>
                </tr>
              </table></td>
              <%if row_count mod 3 =0 then%>
            </tr>
            <% end if%>
            <%                                                         
                        i=i+1                                                      
                         if i >= MaxPerpage then exit do                                                         
                        zrs.MoveNext                                                         
                        row_count=row_count+1                                                         
                        Loop                                                         
                    end Sub                                                         
                      %>
            <% call list                                                        
   If zRs.recordcount > MaxPerPage then                                                         
                                                           
 end if
 zrs.close%>
          </tbody>
        </table>

不过要在每一个 rspro.movenext后要加一个if not  rspro.movenext.eof then
<%=%> else
exit do
end if
是不是你的提示要有一个记录集为真了????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>