Philboard

<% 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

Forum: <%=forumname%>

Moderatore <%=moderator%>

<%if moderator = username then %>

Benvenuto <%=username%>, sei il moderatore di questo forum.

<% end if%>

<%=forumdescription%>

<%TopicNav()%> <% if moderator = username then%> <% end if%> <%if noposts = True then if moderator = username then colspan = 8 else colspan = 6 end if%> <%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 = "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 %> <% if moderator = username then%> <% end if%> <% rsEntries.Movenext if rsEntries.EOF then exit for end if next %>

		Topic	Autore	Risposte	Ultimo messaggio	Delete	Lock
>Non ci sono messaggi in questo forum.
	.gif" width="15" height="15">	"><%=rsEntries("subject")%>	<%=rsEntries("by")%>	<%=rsEntries("replies")%>	<%=rsEntries("lastdate")%> : <%=rsEntries("lasttime")%>	)">	&action=<%=lockaction%>&forumid=<%=forumid%>&level=moderator">

<%TopicNav()%> <%end if%>


topic attivo hot topic (più di 30 risposte) topic chiuso

<% 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("<< prev page ") else Response.Write("<< prev page ") end if if lastpage = False then Response.Write("next page >>") else Response.Write("next page >>") end if Response.Write("") end if End Function %>