<%
Option Explicit
Dim sql,rsEntries,count,forumid,forumname,cellbgcolor,username,forumdescription,noposts,foldergraphic,folderalt,moderator,lockaction,colspan,recordnum,messagecount,lastpage,topicdisplay
username = Request.Cookies("pb_username")
forumid = Request.QueryString("forumid")
recordnum = Request.QueryString("recordnum")
'topicdisplay variable alters amount of topics to display on page
topicdisplay = 20
if recordnum = "" then
recordnum = 0
end if
%>
<%
sql = "SELECT * FROM (forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum) INNER JOIN topics ON forums.forumid = topics.forum WHERE forums.forumid = " & forumid & " ORDER BY topics.lastdate DESC, topics.lasttime DESC"
Set rsEntries = Server.CreateObject("ADODB.Recordset")
rsEntries.Open sql, conn, 3, 3
if rsEntries.EOF then
rsEntries.close
sql = "SELECT * FROM forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum WHERE forumid = " & forumid
rsEntries.Open sql, conn, 3, 3
noposts = True
else
rsEntries.Movefirst
for count = 1 to topicdisplay
rsEntries.Movenext
if count = CInt(recordnum) then
lastpage = True
end if
if rsEntries.EOF then
exit for
end if
next
if not rsEntries.EOF then
messagecount = rsEntries.Recordcount
end if
rsEntries.Movefirst
end if
forumname = rsEntries("forumname")
forumdescription = rsEntries("description")
moderator = rsEntries("moderator")
%>
Philboard
tilbage til forum index | log ind | <%if username <> "" then Response.Write("log ud | ") end if%>ny bruger | hjælp | Sidste emner | søg
Nome's debat forum
| Forum:
<%=forumname%> |
Moderator  <%=moderator%> |
<%if moderator = username then
%>Velkommen <%=username%>, du er moderator for dette forum.
<%
end if%>
<%=forumdescription%>
Nyt emne
<%TopicNav()%>
| |
|
Emne |
Forfatter |
Svar |
Sidste meddelelse | <%
if moderator = username then%>
Slet |
Lås | <%
end if%>
<%if noposts = True then
if moderator = username then colspan = 8 else colspan = 6 end if%>
| >Der er ingen meddelelser i dette forum.Klik
på nyt emne for at oprette en ny streng |
|
|
|
|
|
|
|
<%else
'If viewing a previous set of topics, move to the right position
if recordnum <> 0 then
rsEntries.Move(recordnum)
end if
cellbgcolor = "#F3F3F3"
for count = 1 to topicdisplay
if rsEntries("locked") = True then
foldergraphic = "_locked"
folderalt = "Lukket emne"
lockaction = "unlock"
elseif rsEntries("replies") > 30 then
foldergraphic = "_hot"
folderalt = "Varmt emne"
lockaction = "lock"
else
foldergraphic = "1"
folderalt = "åbent emne"
lockaction = "lock"
end if
if cellbgcolor = "#F3F3F3" then cellbgcolor = "#E5E5E5" else cellbgcolor = "#F3F3F3" end if
%>
 |
 .gif" width="15" height="15"> |
"><%=rsEntries("subject")%> |
<%=rsEntries("by")%> |
<%=rsEntries("replies")%> |
<%=rsEntries("lastdate")%> : <%=rsEntries("lasttime")%> | <%
if moderator = username then%>
)"> |
&action=<%=lockaction%>&forumid=<%=forumid%>&level=moderator"> | <%
end if%>
<%
rsEntries.Movenext
if rsEntries.EOF then
exit for
end if
next
%>
<%TopicNav()%>
<%end if%>
|
 Et åbent emne
 et varmt emne (mere end 30 svar)
 et Lukket emne
|
|
<%
rsEntries.close
set rsEntries = nothing
conn.close
set conn = nothing
%>
<%
Function TopicNav()
if messagecount <> "" or recordnum <> 0 then
Response.Write("")
if recordnum <> 0 then
Response.Write("<< Forrige side ")
else
Response.Write("<< Forrige side ")
end if
if lastpage = False then
Response.Write("Næste side>>")
else
Response.Write("Næste side >>")
end if
Response.Write("")
end if
End Function
%>