Rekursiv funktion

ups....

her er funktionen :-)

<%
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
%>

strSpace = "&nbsp;"
  do while not rs.eof
    strSpace = strSpace & "&nbsp;"
        response.write strSpace & rs("subject")
        Call ShowReplies(rs("id"),conn)
        rs.movenext
    loop

//>Rune

Jeg har lavet det hvor man overført level vidre og satte to mellemrum ind ved hvert level:



<%
Function ShowReplies(id, conn, level)
  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
        for i = 0 to level
          Response.Write "&nbsp;&nbsp;"
        next
        response.write rs("subject")
        Call ShowReplies(rs("id"),conn,level+1)
        rs.movenext
    loop
   
    response.write "</ul>"
    End if
   
    rs.close
    set rs=nothing
   
End Function
%>


og første gang du kalder functioen rette fra:

Call ShowReplies(MainRS("id"),conn)

Til:

Call ShowReplies(MainRS("id"),conn,0)

Den gør det ikke rigtigt, punkterne "skydes" ikke som de skal i forhold til hinanden, der laves skydning men ikke rigtigt.


mvh
Anne

eagleeye >>

Kan man ikke lave det helt uden <ul> tags


mvh
Anne

hvis kode bruger du??

Jo det kan bare fjernes ...

functionen bliver så, der skal nok også en <br> ind:

<%
Function ShowReplies(id, conn, level)
  SQL = "select * FROM Table1 where REPLYID=" & id & " order by ID"
    Set RS=Conn.Execute(sql)
    If not rs.eof then
 
    do while not rs.eof
        for i = 0 to level
          Response.Write "&nbsp;&nbsp;"
        next
        response.write rs("subject")
        response.write "<br>"
        Call ShowReplies(rs("id"),conn,level+1)
        rs.movenext
    loop
   
    End if
   
    rs.close
    set rs=nothing
   
End Function
%>

hvordan skal de enkelte indryk være ??? det som jeg har vist indrykker med 2 mellemrum pr level.

Subject 1    <----- første level rykkes ikke ind level = 0 i functionen
  Subject 2    <------ indrykket 2 mellemrum, level = 1 i functionen
    Subject 3    <------ indrykket 4 mellemrum, level = 2 i functionen

eagleeye >>

Det var lige det....1000 tak

mvh
Anne