Tælle niavu fra kategorier

Du er nok nødt til at opbygge en eller anden form for træstruktur, og så tælle den op bagefter.

jeg kan sagtens tælle hvis der kun er

--Over kategori
---Sub Kategori

men ikke hvis det er

--Over kategori
---Sub Kategori
----Sub under sub

jeg har lavet:

Set rs = Connect.Execute("SELECT * FROM navigation_menu Where NAV_PARENT = 0")

if not rs.EOF then
do until rs.EOF

response.write "<b>Start - "&rs("NAV_PKEY")&"</b><br>"

Set rs2 = Connect.Execute("SELECT * FROM navigation_menu WHERE NAV_PARENT = " & rs("NAV_PKEY") & " ")

if not rs2.EOF then
do until rs2.EOF
Response.Write "&nbsp;&nbsp;Usub - "&rs2("NAV_PKEY")&"<br>"
rs2.MoveNext
Loop
else
Response.Write "Ingen Links i denne kategori!"
end if

rs.movenext
Loop
else
response.write "Ingen felter"
end if

men den tager jo kun den første sub og ikke sub i sub

oki nu virker det

' Hent data fra databasen
Set rsEntries = Rs.Execute("Select * from navigation_menu")

Do
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rsEntries("NAV_PKEY")
  arrRE = arrRE & "," & rsEntries("NAV_PARENT")
  arrSU = arrSU & "," & rsEntries("NAV_TITLE")
  rsEntries.MoveNext
Loop while not rsEntries.eof

' Lav arrays med data
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")

Rs.Close

' Funktion som undersøger for svar
Function Threads(intID)   
  For m = 1 to Ubound(arrID)
    ' Hvis svar til det indlæg som funktionen er kaldt med
    If Cint(arrRE(m)) = Cint(intID) Then
      ' Tilføj til liste og kald funktionen for at undersøge for svar
      Threads = Threads & "<ul><li>" & arrSU(m) & Threads(arrID(m)) & "</li></ul>"   
    End If       
Next
End Function

' Kald funktionen med alle hovedindlæg
Response.Write Threads(0)

men jeg kan ikke finde ud af at få en tæller ind så jeg kan se hvor mange underkategorier der er ?

Du må lade Treads lave en optælling, og så bruge den, når du returnerer fra funktionskaldet.

yep det ved jeg men hvordan gør jeg ?

Function Treads(intID)
strSQL = "Select * from navigation_menu where Nav_Parent = " & intID & ""
Set rsEntries = Rs.Execute(strSQL)
taeller = 1
while not rsEntries.EOF do
  taeller = taeller + Treads(rsEntries("NAV_PKEY")
  rsEntris.Movenext
wend
set rsEntries = NULL
End Function

Den giver dig tallene. Så kan du jo selv opbygge en tekststreng deri, hvis du også skal have teksterne ud.

the_bma_man >> Hvordan skal jeg lige sætte det ind ?

halooo

Luk >>