<%
Option Explicit
Dim sql,rsForums,count,username,cellbgcolor
username = Request.Cookies("pb_username")
%>
<%
sql = "SELECT * FROM forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum ORDER BY forums.level, forumname"
Set rsForums = Server.CreateObject("ADODB.Recordset")
rsForums.Open sql, conn, 3, 3
%>
Philboard
log ind | <%if username <> "" then Response.Write("log ud | ") end if%>ny bruger | hjælp | Sidste emner | søg
<%if username = "" then%>
For at kunne poste her, skal du Registrere
dig som bruger. Hvis du allerede er registreret kan du logge dig ind her.
<%else%>
Du er logget ind, Hvis du vil ud af systemet kan du Logge
af her.
<%end if%>
Vælg et forum<%if username <> "" then Response.Write(", " & username)%>:
| ! |
Forum |
Emner |
Indlæg |
Moderator |
<%
if rsForums.EOF then%>
| Beklager, der er ikke konfigureret noget forum endnu! |
<%
else
cellbgcolor = "#F3F3F3"
rsForums.Movefirst
for count = 1 to 30
if cellbgcolor = "#F3F3F3" then cellbgcolor = "#E5E5E5" else cellbgcolor = "#F3F3F3" end if
%>
 .gif" alt="Brugere fra niveau <%=rsForums("level")%> eller derover kan poste her" width="15" height="15"> |
"><%=rsForums("forumname")%>
<%=rsForums("description")%> |
<%=rsForums("topics")%> |
<%=rsForums("posts")%> |
<%=rsForums("moderator")%> |
<%
rsForums.Movenext
if rsForums.EOF then
exit for
end if
next
end if%>
|
Post Niveuer:
 Niveau 1 - Alle brugere
 Niveau 2 - Udvalgte brugere
 Niveau 3 - Kun administratorer
|
|
<%
rsForums.close
set rsForums = nothing
conn.close
set conn = nothing
%>