Kategori menu
Jeg har fundet og klippet lidt i en menuting herfra Eksperten, men har behov for at den skal kunne klare ubegrænset undermenuer, kan det lade sig gøre uden det store ?<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
%>
<%
set rs = conn.Execute("select * from Kat WHERE parentid=0")
do while not rs.eof
response.write "<a href=""menu.asp?openID=" & rs("id") & """>" & rs("headline") & "</a><br>"
if request.querystring("openID") = rs("id")& "" then
set rs1 = conn.Execute("select * from kat where parentid="& rs("id"))
do while not rs1.eof
response.write "-<a href=""menu.asp?openID=" & rs("id") & """>" & rs1("headline")&"</a><br>"
rs1.MoveNext
loop
end if
rs.MoveNext
loop
%>
