循环语句怎么写?

<%
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表输出,怎么实现?