Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 MOD: Private Forum Members Listing for 3.4
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

dayve
Forum Moderator

USA
5820 Posts

Posted - 14 September 2002 :  13:25:15  Show Profile  Visit dayve's Homepage
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



Edited by - dayve on 14 September 2002 13:28:23

kwhipp
Junior Member

USA
407 Posts

Posted - 14 September 2002 :  17:24:07  Show Profile  Visit kwhipp's Homepage  Send kwhipp an AOL message  Send kwhipp an ICQ Message  Send kwhipp a Yahoo! Message
Very nice!

- Kevin
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.23 seconds. Powered By: Snitz Forums 2000 Version 3.4.07