一户人 11个
户主      张三     
家庭成员  李四
          王五
          小明
          小强

户主      空     
家庭成员  李一
          王二
          小白
          小花

户主      空     
家庭成员  李明
          王强
          空
          空                  

每个表都是固定格式,5行,1行户主,4行成员,多于5人,起一张新表,多于9人再起一张,第2,3...后面的户主栏留空
此户人输出完了到下一户人...
用totalcount吗,循环代码怎么写?   

<%
TotalCount=Rs1.Recordcount  

ColSetup=4 '行数
TotalCol=Abs(Int(TotalCount/ColSetup*(-1))) '计算分行的数量

for i=1 to TotalCol

%>
<table width="200" border="1">
   
  <tr>
  <td>年份</td>
  <td colspan="2">家庭</td>
  <td width="400">身份证号</td>
  <td width="400">出生日期</td>

  </tr>
  <tr>
  <td rowspan="5">2011</td>
  <td width="400">户主</td>
  <td width="400"><%=rs("cmname")%></td>
  <td><%=rs("idcard")%> </td>
  <td><%=rs("birth")%></td>
  
</tr>
  <tr>
  <td rowspan="4">家庭成员</td>
  <%  
while not rs1.eof  

%>
<%response.write "<td>"%>

<%=rs1("cmname")%>
<%response.write "</td><td>"
%>
  <%=rs1("idcard")%>
<%response.write "</td><td>"%>
<%=rs1("birth")%>
<%response.write"</td></tr>"%>
  
  
<%

rs1.movenext
  wend

next
%>  
  
 

</table>
<%rs.movenext
wend
%>
全部在第一个表显示,都不会换到2表输出,怎么实现?

<%
TotalCount=Rs1.Recordcount  

ColSetup=4 '行数
TotalCol=Abs(Int(TotalCount/ColSetup*(-1))) '计算分行的数量

for i=1 to TotalCol

%>
<table width="200" border="1">
  
  <tr>
  <td>年份</td>
  <td colspan="2">家庭</td>
  <td width="400">身份证号</td>
  <td width="400">出生日期</td>

  </tr>
  <tr>
  <td rowspan="5">2011</td>
  <td width="400">户主</td>
  <td width="400"><%=rs("cmname")%></td>
  <td><%=rs("idcard")%> </td>
  <td><%=rs("birth")%></td>

 
</tr>
  <tr>
  <td rowspan="4">家庭成员</td>
  <% 
while not rs1.eof  

%>
<%response.write "<td>"%>

<%=rs1("cmname")%>
<%response.write "</td><td>"
%>
  <%=rs1("idcard")%>
<%response.write "</td><td>"%>
<%=rs1("birth")%>
<%response.write"</td></tr>"%>

 

 
<%

rs1.movenext
  wend

%> 
</table>
<%rs.movenext
wend
next
%>

next的位置放错了。