here goes, not tested this but should be ok.
look in the active user code, it will either be in inc_top.asp, or in a seeperate file called inc_active_users.asp, you are looking for the code that does this
If lcase(Right(strOnlinePathInfo, 9)) = "forum.asp" Then
strOnlineLocation = "<a href=""forum.asp?" & strOnlineQueryString & """>" & Request.QueryString("Forum_Title") & "</a>"
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "default.asp" Then
change it as follows
If lcase(Right(strOnlinePathInfo, 9)) = "forum.asp" Then
if chkForumAccess(Request("FORUM_ID") then
strOnlineLocation = "<a href=""forum.asp?" & strOnlineQueryString & """>" & Request.QueryString("Forum_Title") & "</a>"
else
strOnlineLocation = "Private Forum"
end if
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "default.asp" Then
You will need to do the same around reply.asp and topic.asp, just use the same
if chkForumAccess(Request("FORUM_ID") then