为什么只有第一项有二级菜单，其他的都显示不出来

预想的效果是如下图，但是只有第一项中能够显示，其他的都不显示，不知道错在哪了
<%
Dim Sql1,Sql,Rs,Rs1
Sql="select * from category where ParentID=0 order by categoryid "
Set Rs=server.CreateObject("adodb.recordset")
Set Rs1=server.CreateObject("adodb.recordset")
Rs.open Sql,conn,3,3
If  Rs.eof Then
Response.Write("暂时无商品分类")
Else

%>
<table align="center" width="98%" >
<tr><td   colspan="4"  bgcolor="#6699CC">商品分类</td>
</tr>
<%
Do while not Rs.eof
categoryId=Rs("categoryId")
response.Write(categoryId)
%>
<tr height="25">
<td width="62%" background="images/titlebg.gif"><%=Rs("category")%></td>
<td width="12%" background="images/titlebg.gif">添加二级分类</td>
<td width="14%" background="images/titlebg.gif">编辑分类</td>
<td width="12%" background="images/titlebg.gif">删除分类 </td>
</tr>
        <%
    Sql1="select * from category where ParentID="&categoryId&""
    response.Write(sql1)
    Rs1.open Sql1,conn,3,3
    If  Rs1.eof Then
    Response.Write("暂时无二级菜单")
    Else
    Rs1.movefirst
    do while not Rs1.eof
    %>

<tr height="25">
<td width="62%" bgcolor="#CCCCCC" ><img src="images/crossicon.gif" /><%=Rs1("category")%></td>
<td width="12%"  bgcolor="#CCCCCC">添加二级分类</td>
<td width="14%" bgcolor="#CCCCCC">编辑分类</td>
<td width="12%" bgcolor="#CCCCCC">删除分类 </td>
</tr>
    <%
    Rs1.movenext
    Loop
    End If%>

<%
Rs.movenext
Loop
End If
%>

</table>