Menyloop

Jag skulle behöva lite hjälp!

Tänkte göra en meny där man lagrar id, uid, namn och länk.

Sen ska man med loopar skriva ut alla länkar på sidan så här:

Mig (id1 - uid 0)
--Ålder (id2 - uid 1)
----22 (id3 - uid 2)
--Bor (id4 - uid 1)
Annat (id5 - uid 0)
--Djur (id6 - uid 1)
----Katt (id7 - uid 6)
------Chips (id8 - uid 7)
Nöje (id9 - uid 0)

Hur ser loopen ut då??

OCh sen skulle jag vilja ha så man klickar på Mig då syns Ålder och Bor som underlänk och om man klickar på Ålder kommer 22 fram!

Jag skulle bli väldigt lycklig om jag fick ett bra exempel på hur man skriver.

På https://www.tilja.net finns det ngt liknande menysystem.

Ett annat sätt är ju javascript ..... kika i javascriptforumet. Det borde finnas ngt där.

cya,
PatrikB

Nej nej - jag vill inte ha en sådan! Det ska hämta från en databas och skriva ut dem efter det - typ som ett trädforum fast en meny!!

Som denna visar:

Mig (id1 - uid 0)
--Ålder (id2 - uid 1)
----22 (id3 - uid 2)
--Bor (id4 - uid 1)
Annat (id5 - uid 0)
--Djur (id6 - uid 1)
----Katt (id7 - uid 6)
------Chips (id8 - uid 7)
Nöje (id9 - uid 0)

Man ska enkelt kunna lägga till en meny i databasen.

Tänkte även ha det upplagt som en lista!

En liten klurigare sak som jag undrar över är om jag vill ha bilder. Ex streck som är framför.

Meny1
|__Undermeny 1
|__Undermeny 1.1
Meny 2
|__Undermeny 2
|__Undermeny 2.1

Ungefär som jag gjort här ovan!

(Blev inte utskrivet som jag ville - ovan)

Varför inte ta ut datat från databasen och lägga det i en array.
Och senda därefter loopa ut informationen man behöver....eller har jag fel?

Jag har fått hjälp på ett annat ställe men inte för bilderna!

Har du lust att visa oss andra vad du fått för hjälp med lösningen?

<%Function Meny(Conn, HuvudId)
Set RS = Conn.Execute("SELECT * FROM meny WHERE uid = " & HuvudId)
If Not RS.EOF Then
Set ID = RS("id")
Set Namn = RS("namn")
Response.Write "<ul>"
Do Until RS.EOF
Response.Write "<li>"& Id &" - "& Namn &"</li>"
Meny Conn, ID
RS.MoveNext
Loop
Response.Write "</ul>"
End If
RS.Close
End Function

db = Server.MapPath("db/meny.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db
Meny Conn, 0
Conn.Close%>