<% function GetNumberThreads(catID) q = "select count(*) as aant from item where categorieid = " & catID set Ars = conn.execute(q) getnumberThreads = Ars("aant") end function function GetLastNewPost(catID) GetLastNewPost = 0 q = "select * from categorie where parentid = "& catID set rs = conn.execute(q) do while not rs.eof if GetLastNewPost < GetLastNewPost(rs.fields("categorieId")) then GetLastNewPost = GetLastNewPost(rs.fields("categorieId")) end if rs.movenext loop if rs.bof AND rs.eof then 'hier komen we in de cat zonder subcats q = "SELECT itemid FROM item WHERE categorieId ="&catID& " order by itemid desc" set rsl = conn.execute(q) GetLastNewPost = int(rsl.fields("itemid")) end if end function '_____________________________________________________________________________________________ function schrijfoverzicht_cat(parentid) %> <% q = "select * from categorie WHERE parentId = "&parentid 'Gewijzigd om enkel de hoofitems te tonen /Nico set rs = conn.execute(q) do while not rs.eof %> <% q = "SELECT * FROM item WHERE itemid="&GetLastNewPost(rs("categorieid")) set lastitem = conn.execute(q) do while not lastitem.eof %> <% loop if lastitem.bof and lastitem.eof then response.Write("") end if rs.movenext loop %>
Forum Laatste post
"><%=rs("title")%>

<%=rs("description")%>

<%=rs("numberPosts")%> Onderwerpen
<%=rs("numberReplies")%> Antwoorden		<%=lastitem.fields("title")%>
<%=toontijdstip(lastitem.fields("lastReplyTime"))%>		Geen laatste post
<% end function '______________________________________________________________________________________________________ function schrijvoverzicht_threads(id) q = "select * from categorie where categorieid = " & id set rs = conn.execute(q) if not rs.eof then categorie = rs("title") else response.Redirect("/forum/index.asp") breadcrumb = categorie %> <% if cstr(session("loginid")) <> "" then %> <%end if%>
<% q = "select lastReplyTime, username,title,itemid,views,numberPosts,numberReplies from item inner join users u on u.userid = item.lastReplyUserid where categorieid = " & id & " ORDER BY `lastReplyTime` DESC" set rs = conn.execute(q) do while not rs.eof %> <%rs.movenext loop%>
TitelGestart doorRepliesViewsLaatste bericht
"><%=rs("title")%> <%=rs("username")%> <%=rs("numberreplies")%> <%=rs("views")%> <%=toontijdstip(rs("lastReplyTime"))%>
<% end function %>