Can anyone fix this Mod so that it allows for Private Forums. This is the mod that shows the count() of active topics in the Navigation menu next to the Active link. This is the code out of inc_header.dim ActiveTopicCount
ActiveTopicCount = -1
if IsEmpty(Session(strCookieURL & "last_here_date")) then
Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
if not IsNull(Session(strCookieURL & "last_here_date")) then
if not blnHiddenForums then
'## Forum_SQL - Get ActiveTopicCount from DB
strSql = "SELECT COUNT(" & strTablePrefix & "TOPICS.T_LAST_POST) AS NUM_ACTIVE "
strSql = strSql & "FROM " & strTablePrefix & "TOPICS "
strSql = strSql & "WHERE (((" & strTablePrefix & "TOPICS.T_LAST_POST)>'"& Session(strCookieURL & "last_here_date") & "'))"
strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS <= 1"
set rs = my_Conn.Execute(strSql)
if not rs.EOF then
ActiveTopicCount = rs("NUM_ACTIVE")
else
ActiveTopicCount = 0
end if
end if
end if
And this is how it is called in subforumnavigation: if ActiveTopicCount > 0 then
Response.Write " <a href=""active.asp?Group=1""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics </a></acronym>" & vbNewline & _
" (<font color=""" & strDefaultFontColor & """>" & ActiveTopicCount & "</font>)" & vbNewline & _
" |" & vbNewline
else
Response.Write " <a href=""active.asp?Group=1""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics</a></acronym>" & vbNewline & _
" |" & vbNewline
end if
Currently if a member logs in it will show a count of all active topics on the board regardless of their access and when they go to active.asp it will only show the topics they have access to.