请教一个问题，我想要控制每排6条标题，超过6条自动换行，怎么弄啊？

请教一个问题，我想要控制每排6条标题，超过6条自动换行，怎么弄啊？比如：
1 2 3 4 5 6
7 8 9
<table><tr>
<%for i=1 to Rs.recordcount%>
<td><%=rs("xxx")%></td>
<%if i mod 6=0 then response.write "</tr><tr>"    rs.movenext
  next%>
</tr></table>

在for 循环中的movenext下加个判断，if rs.eof 则再循环打6-i个<td>&nbsp;</td> 或者是<td colspan=<%=6-i%>>&nbsp;</td>

 <div align="center"><center>
   <table border="0" cellpadding="1" width="640" height="373" background="image/background6.gif">
   <% '通过循环提取每一大类的所有小类信息
       do while not rs.eof
      parentid=rs("class_id")
      sql="select class_id,class_name from class where parent_id='"&parentid&"'"
      set subrs=Server.CreateObject("ADODB.Recordset") '使用了记录集对象
      subrs.CursorType=adOpenStatic '和静态游标属性
      subrs.open sql,con '读取符合条件的子类
        '分行显示子类信息
     temp=(subrs.recordcount) mod 5
     if temp=0 then
        row=subrs.recordcount/5
   else
        row=subrs.recordcount/5+1
     end if
        i=0
      for t=1 to row %>
  <tr>
  <% if (t=1) and (i=0) then %>
     <td bgcolor="#FFCCFF" align="center">
       <b> <font size="https://files.jxasp.com/image/2"> <%response.write(rs("class_name"))%>
    </font> </b> </td>
  <% i=i+1
     end if
     do while not subrs.eof '处理子类的名称%>
     <td align="center">
     <a href="<%response.write act%>?bh=<%=subrs("class_id")
     %>&dl=<%=rs("class_name")%>&xl=<%=subrs("class_name")%>" target="_self">
   <font size="https://files.jxasp.com/image/2"> [<%response.write(subrs("class_name"))%>]</font></a>
 </td>
      <% i=i+1
     if i>5 then          '条件成立表示5个子类已经显示完成
        subrs.movenext    '准备去处理下一行要显示的记录内容
     i=1
     exit do           '退出本次循环
        end if
     subrs.movenext
   loop  %> </tr>
   <% next
      subrs.close
   rs.movenext         '指向下一条记录
   loop
   rs.close               '关闭rs对象
   '关闭数据库连接
   con.close
   set con=nothing
   %>
 </table></dir>