Hjälp med meny utskrift.

Om du använder dig av SQLServer så skulle jag byggt en SP som hämtar ut alla items med en extra kolumn: itemLevel. Som visar på vilken nivå i strukturen ett item ligger. För att göra dett så skapar man en temptabell som man insertar item i flera steg. Kan visa i sql om så behövs.

Är det bara två nivåer på menyn så kan du köra en UNION på två select satser, en för root-nivå items och en för dess underliggande items och sortera på belongto.

Annars kan du skriva en rekursiv function som responsar ut option-taggar. nackdelen är att man få hämta item i flera omgångar.

Använder mysql =/ tycker väll att det borde gå o hämta ut alla o sedan sortera dom så dom hamnar i rätt ordning o skriva ut.. eller nått.. :D har ju sett detta göras på så många sidor.

Och dom gör ju det i scriptet när dom skriver ut menyn..

Ja det är klart bättre har du rätt i. Hämta alla och sätta .Filter-egenskapen på recordsetet.

Dim itemLevel
Dim rs   <-- dimma globalt
Set rs = .... <- hämta alla items
itemLevel = 0

%>

<select><% Call renderChildNodes(0) %></select>

<%

Function renderChildNodes(ByVal parentId)

   rs.Filter = "belongto = " & parentId
   If rs.RecordCount = 0 then Exit Function
   Do Until rs.Eof
      Response.Write "<option value=""" & rs("id") & """>" & String(itemLevel, "-") & rs("namn") & "</option>"
      Call renderChildNodes(rs("id"))
   Loop

End Function

%>

Hmm det där fungerade inte alls.. den skrev bara ut ett menyalternativ.. Kanske e jag som inte förstog helt iofs..

Sorry men jag testade inget, skrev det helt ad-hoc. Hoppades mest att det skulle hjälpa dig på traven.

Hur recordsetet ut om du skriver ut det?

brukar vanligtvis använda getrows så kanske är därför jag inte förstår allt..

hur skall detta egentligen se ut?

Dim itemLevel
Dim rs   <-- dimma globalt
Set rs = .... <- hämta alla items

för mig ser det ut såhär

Dim itemLevel
Dim rs 
mysql = "select * from meny"
Set rs = connect.execute(mysql)
itemLevel = 0

Hur skriver jag ut recordsetet?

Scriptet jag använder (om än modifierat) är detta :
http://www.webforum.nu/showthread.php?s=&forumid=148&threadid=76224&highlight=meny
Macce linktree

Har du flera nivåer? Är det bara en nivå nedåt bör du kunna göra så här:

hämta alla där belongto=0
börja loopa
anropa databasen och hämta alla som har belongto=aktuellt id
loopa igenom och skriv ut alla underkategorier
avsluta loopen

visserligen inte optimalt, men ganska enkelt.

Mjo tyvärr kan jag inte garantera att det bara kommer vara 2 nivåer :( har försökt modifiera koden i macce linktree för den gör ju ungefär så som jag vill bara det att alla undernivåer inte visas och att den skriver ut länkar och inte options.. hmm med andra ord inte alls samma och inte heller så optimalt antagligen.. men jag lyckades hur som helst inte så jag vände mig hit..

Ok har fixat denna koden nu,en modifierad version av koden som kan hittas på andra sidan i denna tråden.

http://www.webforum.nu/showthread.php?s=&threadid=96541&perpage=25&highlight=meny under&pagenumber=2

Den fungerar utmärkt och gör exakt det jag vill ha gjort.
bara ett problem, den måste ju markera att det är undermenyer på något vis. Jag får bara inte till det.
Tror jag lyckats markera dom mest konstiga kombinationerna utan just underkategorina.

Sub PrintTree(intParent)
  strSQL = "SELECT id, me_belongto, me_namn FROM meny WHERE me_belongto = " & intParent
  Set objRubrik = objConn.Execute(strSQL)

  Do Until objRubrik.EOF
  
    strSQL = "SELECT me_belongto FROM meny WHERE me_belongto = " & objRubrik(0)
    Set objNode = objConn.Execute(strSQL)

    If NOT objNode.EOF Then
      Response.Write("<option>" & objRubrik(2) & "</option>")
	  PrintTree objNode(0)
	   Else
      Response.Write("<option>" & objRubrik(2) & "</option>")
	  End If

    objNode.Close : Set objNode = Nothing : 
	objRubrik.MoveNext
  Loop

  objRubrik.Close : Set objRubrik = Nothing

End Sub

PrintTree 0

objConn.Close : Set objConn = Nothing

JAAAAAAAAAAAAAa!!!!
jag löste det, fy helvete vad bra jag är ;D

response.write "<select>"

call dbopen(connect)

Sub PrintTree(intParent,intSub)
  MySQL = "SELECT id, me_belongto, me_namn FROM meny WHERE me_belongto = " & intParent & " Order by me_namn"
  Set objRubrik = connect.Execute(MySQL)

  Do Until objRubrik.EOF
  
    MySQL = "SELECT me_belongto FROM meny WHERE me_belongto = " & objRubrik(0)
    Set objNode = connect.Execute(MySQL)

if intSub = 1 then
strSub = "-"
else
strSub = ""
end if

    If NOT objNode.EOF Then
	Response.Write("<option>" & objRubrik(2) & "</option>")
		PrintTree objNode(0), 1
	Else
      Response.Write("<option>"& strSub & objRubrik(2) & "</option>")
	  End If

    objNode.Close : Set objNode = Nothing : 
	objRubrik.MoveNext
  Loop

  objRubrik.Close : Set objRubrik = Nothing

End Sub

PrintTree 0, 0

call dbclose(connect)

response.write "</select>"