sub callthread( id , byval privlevel )
Set fDB = Server.CreateObject("ppDB.DBAccess")
fDB.Param("subid") = Replace(id, ",",".")
if bshare = "" then
fDB.ExecSP "dp_forum_getsubthreads",true
else
fDB.ExecSP "dp_shareclient_getsubthreads",true
end if
privlevel = privlevel + 1
do while fDB.EOF = false
i = i + 1
Response.Write("<tr class=""" & arClassString(k mod 2) & """><td>")
if bshare = "" then
Response.write("<a href=entrydet.asp?id=" & Replace(fdb.Value("parentid"), ",",".") & "&fid=" & fdb.Value("THEMA_ID") & " onmouseover=popup('" & cstr(i) & "'); onmouseout=popdn('" & cstr(i) & "');>" )
Response.Write(string(privlevel,"-") & fdb.Value("subject")& " , " &fdb.Value("Datum") & "</a><br>")
else
Response.write("<a href=entrydet.asp?share=1&id=" & Replace(fdb.Value("parentid"), ",",".") & "&fid=" & fdb.Value("THEMA_ID") & " onmouseover=popup('" & cstr(i) & "'); onmouseout=popdn('" & cstr(i) & "');>" )
Response.Write(string(privlevel,"-") & fdb.Value("subject")& " , " &fdb.Value("Datum") & "</a><br>")
end if
Response.Write("<div id=divpop><layer><table class=popup border=1 cellspacing=1 cellpadding=2 width=200><tr><th>")
Response.Write(oDB.Value("vorname") & " " & oDB.Value("nachname"))
Response.Write("</th><th>")
Response.Write(Server.HtmlEncode(fdb.Value("subject")))
Response.Write("</th></tr><tr><td colspan=2>")
Response.Write(left( fdb.Value("Inhalt"), 100 ))
Response.Write("</td></tr></table></layer></div>")
Response.Write("</td>")
if cint(session("UGID")) = 0 then Response.Write("<td align=""Right""><a href=""javascript:forumbdel('" & Replace(fdb.Value("parentid"), ",",".") & "');""><img SRC=""../images/delete.gif"" alt=""[ LÖSCHEN ]"" border=""0"" WIDTH=""15"" HEIGHT=""15""></a></td></tr>")
Response.Write("</tr>")
id = Replace(fdb.Value("parentid"), ",",".")
callthread id , privlevel
fDB.NextRow
loop
set fDb= nothing
end sub
