<% Option Explicit Dim sql,rsEntries,count,cellbgcolor,username,forumdescription,foldergraphic,folderalt,lockaction,colspan username = Request.Cookies("pb_username") %> <% sql = "SELECT * FROM (forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum) INNER JOIN topics ON forums.forumid = topics.forum ORDER BY topics.lastdate DESC, topics.lasttime DESC" Set rsEntries = Server.CreateObject("ADODB.Recordset") rsEntries.Open sql, conn, 3, 3 %> Philboard Tilbage til start | log ind | <%if username <> "" then Response.Write("log ud | ") end if%>Ny bruger | Hjælp
 

Emner

<%if rsEntries.EOF then%> <%else cellbgcolor = "#F3F3F3" rsEntries.Movefirst for count = 1 to 15 if rsEntries("locked") = True then foldergraphic = "_locked" folderalt = "locked topic" lockaction = "unlock" elseif rsEntries("replies") > 30 then foldergraphic = "_hot" folderalt = "hot topic" lockaction = "lock" else foldergraphic = "1" folderalt = "open topic" lockaction = "lock" end if if cellbgcolor = "#F3F3F3" then cellbgcolor = "#E5E5E5" else cellbgcolor = "#F3F3F3" end if %> <% rsEntries.Movenext if rsEntries.EOF then exit for end if next %>
    Emne Forfatter Svar Sidste meddelelse
Der er ingen emner.
<%=folderalt%> .gif" width="15" height="15"> "><%=rsEntries("subject")%> <%=rsEntries("by")%> <%=rsEntries("replies")%> <%=rsEntries("lastdate")%> : <%=rsEntries("lasttime")%>
<%end if%>
open topic an open topic
hot topic a hot topic (more than 30 replies)
closed topic a closed topic 		 
<% rsEntries.close set rsEntries = nothing conn.close set conn = nothing %>