I've had this mod for some time now. I found it very convenient for
me as an admin to quickly identify who belongs to certain Private
Forums. It also enables those in the Private Forums to quickly
identify who is part of that membership.
I have used this code in 3.1 and 3.3 so the concept for installation
is the same.
Screenshot:
Demo:
There is none, all of my Private Forums are hidden.
Code: (Ease of Installation 1 (1 Easiest - 10 Hardest))
default.asp
==============
Find this code around line 524:
formatStr(ForumDescription) & _
"</font></td>" & vbNewline
REPLACE it with this code:
formatStr(ForumDescription)
' ######################################################################################################################
' Show Allowed Members - adapted from Iron Heart @ http://www.someplacesomewhere.com
' - modified by Dayve @ http://www.burningsoulsforum.com
Dim privateMembers, privateCount
strSql = "SELECT DISTINCT M_NAME, FORUM_MEMBERS.MEMBER_ID FROM " & strTablePrefix & "ALLOWED_MEMBERS, "
strSql = strSql & strTablePrefix & "MEMBERS "
strSql = strSql & " WHERE FORUM_ALLOWED_MEMBERS.MEMBER_ID = FORUM_MEMBERS.MEMBER_ID AND FORUM_ALLOWED_MEMBERS.FORUM_ID = " & ForumID
strSql = strSql & " ORDER BY M_NAME ASC"
response.write " "
set rsPrivate = my_conn.Execute (strSql)
if rsPrivate.BOF or rsPrivate.EOF then
' Do Nothing
else
privateMembers = ""
privateCount = 0
rsPrivate.MoveFirst
privateMembers = " <a href=""pop_profile.asp?mode=display&id="& rsPrivate("MEMBER_ID") & """>" & rsPrivate("M_NAME")
privateCount = privateCount + 1
rsPrivate.MoveNext
do until rsPrivate.EOF
privateMembers = privateMembers & "</a> #187 "
if strUseExtendedProfile then
privateMembers = privateMembers & "<a href=""pop_profile.asp?mode=display&id="& rsPrivate("MEMBER_ID") & """>"
privateCount = privateCount + 1
else
privateMembers = privateMembers & "<a href=""JavaScript:OpenWindow2('pop_profile.asp?mode=display&id=" & rsPrivate("MEMBER_ID") & "')"">"
privateCount = privateCount + 1
end if
privateMembers = privateMembers & rsPrivate("M_NAME")
rsPrivate.MoveNext
loop
privateMembers = privateMembers & "</a>"
response.write "<b>[" & privateCount & "]" & " #187</b>" & privateMembers
end if
' end Show Allowed Members
'###################################################################################################################
Response.write "</font></td>" & vbNewline