[求助]产品分行问题

ˊ.龙之吻︷

哪位大哥帮下忙。
我想在下面实现。在数据库中读取推荐的21个产品，每行三个，
哪位好心的大哥帮下小弟，谢谢。

<%
   set rsw=server.createobject("adodb.recordset")
   sqlw = "select Top 1 * from news where firstImageName<>'' order by sortid desc"
   rsw.Open sqlw,conn,1,3
   if rsw.EOF or rsw.BOF then
    response.write ("暂时没有任何图片信息！")
   end if
   do while not rsw.EOF
   %>

新时代

<%
dim i=0
do while not rs.eof
   i=i+1
%>
<td align="center"></td>
<%   
   if i mod 7=0 then                    '想一行显示几列就是MOD 几+1     比如MOD 7，则一行6列，你MOD 4就可以了
%>
</tr><tr>
<%
   end if
   rs.movenext
  loop
%>
</tr>