ASP genererad meny

Hej!

Jag har en Meny som genereras med ASP från en databas. Det finns huvudkategorier och sen lägger den till underkategorier!

Mitt problem är nu att jag inte vill att undermenyerna ska synas förrän man trycker på huvudkategorin!

Koden ser ut som följer...

<%

Session("databas1") = "filedsn=" & Server.MapPath("osterang.dsn") & ";DBQ=" & Server.MapPath("osterang.mdb")&";"

set databas1=server.createobject("adodb.connection")
databas1.open session("databas1")
set RS1 = server.createobject("adodb.recordset")
set RS3 = server.createobject("adodb.recordset")

SQLStmt = "SELECT * FROM base"
RS1.open SQLStmt, databas1,1

Do until RS1.EOF

if RS1("undersida") = 0 then

----> Huvudrubriker

Response.write "<a href='index.asp?id=" & Rs1("id") & "&meny=" & Rs1("id") & " '>" & Rs1("meny") & "</a><br>"

----> Underrubriker

SQLStmt = "SELECT * FROM base where tillhorighet =" & RS1("id")
RS3.open SQLStmt, databas1,1

Do until RS3.EOF

Response.write "- <a href='index.asp?id=" & Rs3("id") & "'>" & Rs3("meny") & "</a><br>"

RS3.movenext

Loop

RS3.close

----> Slut på underubriker

end if

Rs1.MoveNext

Loop

RS1.close
databas1.close

%>

Nån som har ett förslag?

/Anders