Problemer med løkker

Jeg har lavet en fejl i mine løkker og kan ikke se fejlen??

Der er man medlemmer delt op efter "Kreds", så jeg skal have dem listet efter hvilken kreds de er i, men jeg for alle medlemmer med mange gang... hvad gør jeg forkert ?

<table width="526" border="0" cellpadding="0" cellspacing="0">
              <%
                  SQL = "SELECT * FROM  Bruger Order by Kreds"
                Set rs = Conn.Execute(SQL)
             
              If rs.EOF = false then
                while not rs.EOF
                %>
              <tr>    
                <td height="18" colspan="2" valign="top"><strong><% =rs("Kreds") %></strong> <br>
                <%
                SQL = "SELECT * FROM  Bruger Order by Fornavn"
                Set rs1 = Conn.Execute(SQL) 
           
                If rs1.EOF = false then
                while not rs1.EOF
                %>   
              <tr>
                <td width="238" height="27" valign="top"> <a href="Mprofil.asp?ID=<%= rs1("BrugerID") %>"><font size="2"><% =rs1("Fornavn") %> &nbsp;<% =rs1("Efternavn") %></font></a></td>
                <td width="288" valign="top" ><a href="mailto:<% =rs1("Email") %>">
                  <font size="2"><% =rs1("Email") %></font>
                  </a>
                  </td>
              </tr>
              <%
                rs1.movenext
                wend
                End IF
                %>
              <tr>
                <td height="15">
                <td></td>
              </tr>
                <%
                rs.movenext
                wend
                End If
                %>
</table>