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
