hiver data ud af db to gang inde i hinanden

Hej... lidt kringlet overskrift...

Mit problem er at jeg først hiver alle "overskrifterne" ud af databasen og for hver overskrift hiver jeg alle "navnene" ud...

jeg har forsøgt at lave scriptet men det virker ikke.
kan i hjælpe?

--> Start <--

<%

    Set rs = Server.CreateObject("ADODB.RecordSet")
    set conn = Server.CreateObject("Adodb.Connection")
    strSQL = "SELECT * FROM link WHERE valg='kategori' ORDER by id"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/link.mdb")
    conn.open strDSN
    rs.Open strSQL, strDSN, 1
    Do While Not rs.EOF
  %>
    <tr>
      <td align="left" class="hoved_table_broedtekst"><b><%=rs("kategori")%></b></td>
      <td align="left">&nbsp;</td>
    </tr>

  <%
    strSQL = "SELECT * FROM link WHERE kategori= & kategor & ORDER by id"
    Do While Not rs.EOF
  %>
    <tr>
      <td align="left">&nbsp;</td>
      <td>
              <a class="link" href="http://<%=rs("link")%>" title="<%=rs("title")%>"><%=rs("navn")%></a>
        </tr>


  <%
    rs.MoveNext
    Loop
  %>
  <%
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    conn.Close
    set conn = Nothing
%>

--> Slut <--