Kan man udvide denne menu

Denne menu virker således.
Hovedgruppe
undergruppe
undergruppe
Hovedgruppe
undergruppe
osv...

Så kommer spørgsmålet.
Kan man udvide nedenstående kode så den giver følgende eks.
Hovedgruppe
undergruppe
undergruppe
  underundergruppe
  underundergruppe
Hovedgruppe
undergruppe
  underundergruppe

<%
Session.LCID = 1030

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\mysite\db\menudb.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQLstmt = "SELECT * FROM menu ;"
Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

  DO WHILE NOT rs.EOF
  id = rs("Menuid")

    kategoriNavn = rs("kategoriNavn")

    %>
</div>
<tr height="20"><a href="menu.asp?kat=<%=id%>"><%=kategoriNavn%></a>
  <td> <BR>
    <%
kat =Request("kat")
%>
    <%
if Clng(kat) = Clng(id) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\mysite\db\menudb.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

SQL = "SELECT * FROM submenu WHERE KategoriID = " & Request("kat")
Conn.Execute (SQL)

Set rs2 = conn.Execute(SQL)
 
  DO WHILE NOT rs2.EOF
navn= rs2("SubNavn")
Subid = rs2("Subid")

Response.Write "&nbsp;&nbsp;"
%>
    <a href="vodka.asp?smenunavn=<%=Subid%>" target="mainFrame"'><%=Navn%></a> <BR>
    <%
smenunavn =Request("smenunavn")
%>
    <%
rs2.MoveNext
LOOP
end if

kat = ""
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"
  %>
    <BR>
    <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing

    %>