Kategori-inddeling (loop)

Hejsa - først lidt teori!

Du skal lave en rekursiv funktion som kan kalde sig selv hele tiden. Forestil dig, at dine børn peger på en forælder (med et id). Dette vil give dig mulighed for at vælge alle børnene ud i et recordset ved at spørge 'efter børn der har 'mit eget id' som fader.

Jeg har noget uddybende kode liggende, men det er sjovere selv at finde ud af tingende. Hvis ikke dette er ledetråd nok, så skriv igen.

Jo tak. Jeg forstår godt selv det meste af princippet i det du forklarer, og jeg har også selv prøvet de sidste par uger - men uden held. jeg går ligsom i stå, når den skal gentage loopet x*antal gange.

Så derfor vil jeg helst give mine point til den som kommer frem med fuldstændig løsning på hvordan dette gøres.

Jeg har lavet et online bookmark system, hvor det er muligt at oprette (og dermed vise) grupper i grupper (eller kategorier i kategorier om du vil).

Al source-koden er frit tilgaengelig lige her: http://www.theill.com/files/marks.zip

Hvis du vil se en demo af systemet, kan du springe paa: http://www.theill.com/ConquerMarks/

theill: Jo det var såmen meget fint, men alt for uoverskuelig og avenceret i forhold til det jeg skal bruge det til. Jeg vil lige vente for at se om der skulle dukke noget bedre op, for derefter også at smide nogle point af til dig.

Her er et eksempel. Hvis replyid er 0, så er det en hovedkategori. Ethvert andet tal henviser til en post hvor id er lig tallet.

/ortrak

<%
Function ShowReplies(id, conn)
  SQL = "select * FROM Table1 where REPLYID=" & id & " order by ID"
    Set RS=Conn.Execute(sql)
    If not rs.eof then
    response.write "<ul>"
   
    do while not rs.eof
        response.write "<li>" & rs("subject")
        Call ShowReplies(rs("id"),conn)
        rs.movenext
    loop
   
    response.write "</ul>"
    End if
   
    rs.close
    set rs=nothing
   
End Function
%>

<%

  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
  SQL="select * from Table1 where replyid=0" & " ORDER BY ID"
  Set MainRS=Conn.Execute(SQL)

      do while not MainRs.Eof

        response.write MainRs("subject")
        Call ShowReplies(MainRS("id"),conn)

    MainRs.movenext
    Loop
   
    Mainrs.close
    conn.Close
    set mainrs=nothing
    set conn=nothing
%>

ortak: Jeg takker mange gange for hjælpen. Det var lige præcis hvad jeg skulle bruge.

Det var så lidt.

/ortrak