[aspdecoffeehouse] AW: logikfehler in Rekursivem Baum ....

Andreas Rudischhauser \(N\) Wed, 26 Jun 2002 07:54:12 -0700

Ah... Ist mir glaub doch zu heftig

-----Urspr�ngliche Nachricht-----
Von: Andreas Rudischhauser (N) [mailto:[EMAIL PROTECTED]] 
Gesendet: Mittwoch, 26. Juni 2002 17:05
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] AW: logikfehler in Rekursivem Baum ....



ja

-----Urspr�ngliche Nachricht-----
Von: Mansur Esmann [OM] [mailto:[EMAIL PROTECTED]] 
Gesendet: Mittwoch, 26. Juni 2002 16:58
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] logikfehler in Rekursivem Baum ....


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.as
| p


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


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

[aspdecoffeehouse] AW: logikfehler in Rekursivem Baum ....

Antwort per Email an