为什么我这样取值的时候，没有全部现实呢？请版主帮忙

以前来过这个论坛，版主很热情，留下深刻记忆。
今天又来咨询一个问题。

<table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" >


<%
dim j
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from pcook_user"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("<tr><td colspan=""5""><li>Sorry,当前没有用户...</li></td></tr>")
else
do while not rs.eof
%>
  <tr>

 






<% for j =0 to 6

if   rs.eof   then  exit   for   
%>
    <td height="25" width="70" align="center" bgcolor="f7f7f7"><a href="Userindex.asp?id=<%=rs("id")%>" ><%=rs("UserName")%></a></td>
    <%


  rs.movenext
  next


%>

  </tr>
  <%
  rs.movenext
  loop
  end if
  rs.close
  set rs=nothing
  %>
</table>
作用就是 分6列显示。


本身有13个用户，但是显示出来只有12个用户

还有很奇怪的一个问题，就是，同样的代码，在首页显示的是12个用户。在每个用户页显示的是13个用户。

不知道我哪里写错了
请版主帮忙看看。非常感谢！