Dynamisk menu

kik lidt på den her

<%
WriteRecursiveTree 0, 0, Array(1,2,3)

Sub WriteRecursiveTree(ByVal iParent, ByVal iLevel, ByVal aOpened)
  Dim sSQL, oRS
  Set oRS = Server.CreateObject("Adodb.RecordSet")
  sSQL = "SELECT * FROM topic WHERE parent_id = " & iParent
  Do While Not oRS.EOF
      Response.write Replace(Space(3 * iLevel)," ","&nbsp;") & oRS("topic_name") & "<br>"
      If IsElementOfArray(oRS("topic_id"), aOpened) Then
          WriteRecursiveTree oRS("topic_id"), iLevel + 1, aOpened
      End If
  Loop
  oRS.Close
  Set oRS = Nothing

End Sub

Function IsElementOfArray(var,arr)
    Dim element
    IsElementOfArray = False
    If Not IsArray(arr) Then Exit Function

    If IsArray(arr) Then
        For Each element In arr
            If var = element Then
                IsElementOfArray = True
                Exit For
            End If
        Next
    End If
End Function

%>

Det skal lige uddybes lidt mere...

hvis du sender mig databasen kan jeg lave dig et fungerende eksempel

fixxxer@easysoft-studios.dk

http://www.opfinderen.dk/sites/?id=53

Jeg sender det lige...

er sendt

kikker på det så har du et eksempel om 10-15 minutters tid

kan jeg få dig til at smide den i en zip fil, mit outlook synes mdb-filer er for farlige :)

hehe okay ;-)

jeg har snydt lidt og omdøbt navnene på dine kolloner i databasen

de hedder nu (med typebeskrivelsen i []):

topicid    [AUTO]  førhen  id
topicName  [TEKST] førhen  titel
topicText  [NOTAT] førhen  text
topicParent [TAL]  førhen  submenu


så vil kode se sådan ud:


<%
dim Conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

end function

OpenConn("test.mdb")

function FindParents(ByVal FirstNode)
  Dim iResult
  Dim iLast
  Dim iCurrent

  set rs = Conn.Execute("SELECT * FROM test1 WHERE topicID = " & FirstNode)
  iCurrent = rs("topicID")
  Do While not rs("topicParent") = 0
    iResult = rs("topicParent") & "/" & iResult 'use / for to make it look "better" ?
    iLast = rs("topicParent")
    set rs = Conn.Execute("SELECT * FROM test1 WHERE topicID = " & iLast)
  Loop

  FindParents = iResult & iCurrent

end function

aOpened = Split(Request("path"),"/")
' note that this will create an array of strings, not of integers.
' when you compare them with id's from a database, you'll have to
' convert these Strings to Long, or convert the ID from the database to String
' because a String is never equal to a Long

WriteRecursiveTree 0, 0, aOpened

Sub WriteRecursiveTree(ByVal iParent, ByVal iLevel, ByVal aOpened)
  Dim sSQL, oRS
  Set oRS = Server.CreateObject("Adodb.RecordSet")
  sSQL = "SELECT * FROM test1 WHERE topicParent = " & iParent
  oRS.Open sSQL, Conn, 1, 1
  Do While Not oRS.EOF
      Response.write "<a href=""?path=" & FindParents(oRS("topicID")) & """>" & Replace(Space(3 * iLevel)," ","&nbsp;") & oRS("topicName") & "</a><br>"
      If IsElementOfArray(Cstr(oRS("topicID")), aOpened) Then
          WriteRecursiveTree oRS("topicID"), iLevel + 1, aOpened
      End If
    oRS.MoveNext
  Loop
  oRS.Close
  Set oRS = Nothing

End Sub

Function IsElementOfArray(var,arr)
  Dim element
  IsElementOfArray = False
  If Not IsArray(arr) Then Exit Function

  If IsArray(arr) Then
      For Each element In arr
          If var = element Then
              IsElementOfArray = True
              Exit For
          End If
      Next
  End If
End Function

%>

det duer ikke, hvis jeg konventere min submenu til tal, kan jeg ikke bruge "," til at seperer siderne længere...

Netro: du havde fat i noget af det rigtige...!

Nogen der har nogle forslag?

Ja, det var et eksempel, jeg lavede på et tidspunkt. Og det egner sig jo fint til netop menuer.

Der er lidt vejledning omkring rekursive funktioner her:
http://www.html.dk/scripts/asp/00015/

mini-me >> sådan virker mit eks. desværre ikke

lukker fandt ingen l'sning