Description: Allows you to browse active topics by category/forum from active.asp.
Implementation:
Step 1
Open active.asp in your text editor. At line 34 is the end of the snitz copyright, right below that, insert the following code (green highlight indicates code to add)
'#################################################################################
'#### Added by stimmy for active forum
Dim UseActiveForum, UseActiveCat, intForumID, intCatID
UseActiveForum = False
UseActiveCat = False
If isNumeric(Request.QueryString("FORUM_ID") Then
intForumID = CLng(Request.QueryString("FORUM_ID")
If intForumID > 0 Then
UseActiveForum = True
End If
End If
If isNumeric(Request.QueryString("CAT_ID") Then
intCatID = CLng(Request.QueryString("CAT_ID")
If intCatID > 0 Then
UseActiveCat = True
End If
End If
%>
<!--#INCLUDE FILE="config.asp"-->
Step 2
Scroll down to about line 307 in active.asp, and add the code below (green highlight indicates added code)
strSql = strSql & ")"
end if
end if
'##### Added by stimmy for active forum
if UseActiveCat then
strsql = strsql & " AND F.CAT_ID=" & intCatID
end if
if UseActiveForum then
strsql = strsql & " AND F.FORUM_ID=" & intForumID
end if
strSql = strSql & ") "
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT, T.T_LAST_POST DESC "
Step 3
Scroll down to about line 500, and replace default.asp with active.asp (code highlighted in green)
.....<a href=""active.asp?CAT_ID=" & Cat_ID & """><fo.....
......bsp;/ <a href=""active.asp?FORUM_ID=" & Forum_ID & """><font ......