Mann 'eh jetzt streng dich an :-))
Ich vermute es liegt daran, da� er f�r jeden child treffer diese nocheinmal
durchgeht ....
Da ich aber nicht �ber die eindeutige ID gehe, sondern auf ReiseID, die
mehrfach vorkommen kann, gibts Probleme und ich blicke es eben auch nicht
mehr ....
NOCH WER?
Mansur
>
> Hi,
>
> ich hab ein logikproblem mit nem rekursiven Baum.
> H�tte jemand Lust sich mal die Funktion anzusehen, um mir einem Hinweis
> zu geben?
>
>
> Gru� Mansur
>
>
> Wenn ja :-)
>
>
>
> der Code:
>
>
> call showTree (reiseID, 0, 0)
>
> private function showTree (element, prnt, level)
>
> if session("openReiseForum")="" then session("openReiseForum")=","
> if Request.QueryString("actionReiseforum")<>"" then
> select case Request.QueryString("actionReiseforum")
> case "open"
> session("openReiseForum") = session("openReiseForum") & _
> Request.QueryString("idForum") & ","
> case "close"
> session("openReiseForum") = replace(session("openReiseForum"), _
> "," & Request.QueryString("idForum") & ",",",")
> end select
> end if
>
> set trs=Server.CreateObject ("ADODB.RecordSet")
> rs.ActiveConnection=con
> rs.LockType = adLockReadOnly
> rs.CursorType = adForwardOnly
> rs.CursorLocation = adUseClient
>
> rs.open "SELECT [frm_ID], [frm_parent], [frm_author],
> [frm_dateCreate], "&_
> "[frm_subject], [frm_ReiseID] FROM [tbl_Reiseforum] WHERE
> [frm_ReiseID] = " &_
> element & " AND [frm_parent] = " & prnt & " ORDER BY [frm_ID],
> [frm_parent]"
>
> while not rs.eof
>
> ID = rs.Fields("frm_ID").value
> parent = rs.Fields("frm_parent").value
> author = rs.Fields("frm_author").value
> dateCreate = rs.Fields("frm_dateCreate").value
> subject = rs.Fields("frm_subject").value
> ReiseID = rs.Fields("frm_ReiseID").value
>
>
> if instr(1, session("openReiseForum"), "," & ID & ",")=0 then
> HTMLNode = DisplayNode ("open", id, parent, author, dateCreate,
> subject, ReiseID, level)
> Response.Write( HTMLNode )
> else
> HTMLNode = DisplayNode ("close", id, parent, author, dateCreate,
> subject, ReiseID, level)
> Response.Write( HTMLNode )
>
> set trsc=Server.CreateObject ("ADODB.RecordSet")
> trsc.ActiveConnection=con
> trsc.LockType = adLockReadOnly
> trsc.CursorType = adForwardOnly
> trsc.CursorLocation = adUseClient
>
> trsc.open "SELECT [frm_ID], [frm_parent], [frm_author],
> [frm_dateCreate], "&_
> "[frm_subject], [frm_ReiseID] FROM [tbl_Reiseforum] WHERE
> [frm_ReiseID] = " &_
> ReiseID & " AND [frm_parent]=" & ID & " ORDER BY [frm_ID],
> [frm_parent];"
>
> while not trsc.eof
> showTree trsc.Fields("frm_ReiseID").value,
> trsc.Fields("frm_parent").value, level+1
> trsc.movenext
> wend
> trsc.close
> end if
> Response.Write("</table>")
>
> trs.movenext
> wend
> trs.close
>
> end function
>
>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
