Webshop hjælp

Hejsa, jeg sidder og roder med en webshop på en access db.

Jeg kan ikke helt få min menu i den til og funke:

Jeg har lavet 2 tabeller i min db:

head (Hovedpunkter)
kat (Underpunkter)

Jeg har lavet relation sådan mellem de 2 tabeller (http://www.bekhoj.adsl.dk/x.gif)

Det jeg så vil have det skal se ud som er følgende:

Man lister først hovedpunkterne:

Tøj
Mad
Slik

hvis man så klikker på f. eks tøj skal menuen fremkomme sådan:

Tøj
Trøjer
Bukser
Mad
Slik

Jeg kan bare ikke få det til og virke ;-(

Jeg har prøvet med følgende:

<%
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"shop.mdb\")
%>
<br>
<table border=\"0\" align=\"center\" width=\"100%\">
    <tr>
        <td>
            <font style=\"font-family : arial ; font-size : 12 px;\">
            <b>Produkter</b><br>
            <%  Set rs = conn.execute(\"select * from head\")
                Do until rs.eof %>
                   
                    <a href=\"menu.asp?menu=<%=rs(\"headid\")%>\"><%=rs(\"headtitel\")%></a><br>
                    <%
                    if Request.QueryString(\"menu\") = rs(\"headid\") then
                        set rs2 = Conn.Execute(\"select * from kat where headid = \" & rs(\"headid\") & \"\")
                        Do until rs2.eof %>
                        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs2(\"kattitel\")%><br>
                        <% rs2.movenext
                        loop
                        rs2.close
                        set rs2 = nothing
                    end if
                    %>
            <% rs.movenext
              loop
            %>
           
            <%
            rs.close
            set rs = nothing
            %>
            </font>
        </td>
    </tr>
</table>
<%
conn.close
set conn = nothing
%>