sub menu system?

Er du helt sikker på at det er en fin idé at lave en menu baseret på database? anvendeligheden vil nok blive en del begrænset hvis du ikke har det store kendskab til DB. Jeg havde det selv engang indtil jeg indså at jeg ligesåvel kunne have lavet det i ren tekst og derved slippe for en masse arbejde og besvær.

ja det skal være db baseret..
da der skal være muligt at ændre i den via en admin del..

Jeg har lavet et script her:
http://www.henriknygaard.dk/experten/664011/

Der finder du også en database.

Uhhh hmm virker ikke hetl som jeg vil...
gad godt menu punkter lå i en tabel
og under menuér til de forskelige menu punkter lå i en anden. så når man sku lave en menu ku man lave en drop down list med de forsliege idér fra menu, og så ledes vælge hva punkt en menu skal under.

Den mulighed har du stadig , nå alle menu punkter ligger i samme tabel.
Top menuerne er jo defineret ved at de ikke har et parentID.

Du har ret.. mig der er blind/dum her :)

tak for hjælpen!

Der er dog et problem hvis at selve menu punktet ikke skal have en url.. hmm

Et bud: Ret

  response.write  Indrykning & "<a href="""& FunkRS("link") &""">"& FunkRS("menu") &"</a><br>"&chr(13)

til

if FunkRS("link") <> "" then
  response.write  Indrykning & "<a href="""& FunkRS("link") &""">"& FunkRS("menu") &"</a><br>"&chr(13)
else
  response.write  Indrykning & FunkRS("menu")&<br>"&chr(13)
end if

Det burde lave et punkt der ikke er et link, såfremt linkfeltet er tomt.

<%
'wilweb.dk
dim Conn, DSN
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/menu.mdb")
conn.Open DSN

Function TegnMenu(ThisID,Indrykning)
dim FunkRS

'select rodpunkter eller underpunkter
if ThisID <> "" then
  'Underpunkter
  set FunkRS = conn.Execute("select * from menu where pID="& ThisID)
else
  'Roden af menuen
  set FunkRS = conn.execute("select * from menu where pID is null")
end if

do while not FunkRS.eof
  'tegn menupunktet
if FunkRS("link") <> "" then
  response.write  Indrykning & "<a href="""& FunkRS("link") &""">"& FunkRS("menu") &"</a><br>"&chr(13)
else
  response.write  Indrykning & FunkRS("menu")&<br>"&chr(13)
end if

  'kald funktionen igen for at finde evt underpunkter
  TegnMenu FunkRS("id"),Indrykning&"-"
  FunkRS.MoveNext
loop
End function

TegnMenu "",""


%>

det giver bare:

/collies_menu.asp, line 28

response.write  Indrykning & FunkRS("menu")&<br>"&chr(13)
--------------------------------------------^

Min fejl - er ikke ret bekendt med ASP, så kan let lave fejl ^^;

Der skulle stå:

if FunkRS("link") <> "" then
  response.write  Indrykning & "<a href="""& FunkRS("link") &""">"& FunkRS("menu") &"</a><br>"&chr(13)
else
  response.write  Indrykning & FunkRS("menu")&"<br>"&chr(13)
end if

tak en million gange.. det virker perfekt!