עזרה בקשר לקטגוריות ופורומים

ניסיתי לעשות ולא יודע למה זה מראה לי את הפורומים שנמצאים רק בקטגורייה הראשונה
זה הקוד שלי..


sqlcats = "SELECT id,cname FROM cats"
rscats.Open sqlcats, Conn

                sqlforums = "SELECT * FROM forums WHERE cid="&rscats("id")
                rsforums.Open sqlforums, Conn




<%If not rscats.EOF Then
            Do while not rscats.EOF%>
            <tr>
                <td height="23" colspan="6" bgcolor="#999999"><%=rscats("cname")%></td>
            </tr>
            <%If not rsforums.EOF Then
            do while not rsforums.eof%>
            <tr>
                <td width="42" bgcolor="black" height="56"><img src="img/pic1.gif"></td>
                <td width="35" bgcolor="black" height="56"><p align="center"><img src="img/delete_icon.gif"></p></td>
                <td bgcolor="black" width="339" height="56"><font face="Aharoni" color="#C0C0C0"><%=rsforums("fname")%></font></span></td>
                <td bgcolor="black" height="56" width="53"><p align="center"><font face="Aharoni" color="#C0C0C0"><%=rsforums("msgs")%></font></p></td>
                <td bgcolor="black" height="56" width="53"><p align="center"><font face="Aharoni" color="#C0C0C0"><%=rsforums("replies")%></font></p></td>
                <td bgcolor="black" height="56" width="136"> </td>
            </tr>
            <%rsforums.movenext
            loop
            end if
            rscats.movenext
            loop
            end if%>