<%
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
torna all'indice dei
forum | login | <%if username <> "" then Response.Write("log out | ") end if%>registrazione | help |
ultimi topics |
cerca