Hjælp til menu opbygning via Acces..

Hej Venner.

Er i gang med en hjemmeside hvor jeg henter indholdet af menuet fra en tabel i acces...hvor jeg har to felter...

Navn & Kategori
jeg henter dem sådan:
                              <%
do while not rs.EOF
If Not rs.EOF Then
response.write "<table width=150 height= bgcolor=border=0 cellspacing=0 cellpadding=3>"
response.Write "<tr>"
response.Write "<td width=130 height=20 class=border><a href=""default.asp?id="& rs("kategori") &""">" & rs("menu_navn") & "</a>" & "" & "</td>"
Response.write "<td class=border><img border='0' src='images/arrow.gif' width='13' height='13'></td>"
response.Write "</tr>"
response.Write "</table>"
  rs.MoveNext
  end if
%>
<%
loop
rs.Close
%>

jeg har bare det problem, at det er første gang jeg laver sådan et menu....hvor jeg henter menuet fra acces...

normalt bygger jeg siden op på denne måde med
<%
Select Case LCase(request.querystring("id"))
    Case "forside"
        Server.Execute("forside.asp")
End select
%>

som i kan se i den første kode vil jeg meget gerne bruge den samme system..altså = response.Write "<td width=130 height=20 class=border><a href=""default.asp?id="& rs("kategori") &""">" & rs("menu_navn") & "</a>" & "" & "</td>"

men ved ikke lige hvordan jeg få koden til at virke på denne måde...har i et ide om hvordan man kan gøre det eller en helt anden løsningsforslag er i velkommen til at fortælle mig det... :)

Hilsen
/Musti