如何进行三个记录集的不断循环？
本人在做一个展品展示的页面，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]]
