function OldisAllowedMember(fForum_ID,fMemberID)
	OldisAllowedMember = 0
	if isDeniedMember(fForum_ID, fMemberID) then exit function
	strSql = "SELECT MEMBER_ID, FORUM_ID FROM " & strTablePrefix & "ALLOWED_MEMBERS "
	strSql = strSql & " WHERE FORUM_ID = " & cLng(fForum_ID)
	strSql = strSql & " AND MEMBER_ID = " & cLng(fMemberID)

	Set rsAllowedMember = Server.CreateObject("ADODB.Recordset")
	rsAllowedMember.open strSql, my_Conn
	blnAM = 0
	if not rsAllowedMember.bof and not rsAllowedMember.eof then blnAM = 1
	rsAllowedMember.close
	set rsAllowedMember = nothing

	'## if the member exists as an allowed member for the forum then return value 1
	if blnAm = 1 then
		OldisAllowedMember = 1
	else

		'## check for usergroup membership
		strGroupsForUser = getGroupMembership(fMemberID,1)
		if strGroupsForUser <> "" then
			'## check to see if the user's groups are a part of this forum
			strSql = "SELECT USERGROUP_ID FROM " & strTablePrefix & "ALLOWED_USERGROUPS "
			strSql = strSql & "WHERE FORUM_ID = " & fForum_ID
			strSql = strSql & " AND PERMS = 0"
			set rsAllowedUserGroups = my_Conn.execute(strSql)
	
			blnAllowed = 0
			Do While Not rsAllowedUserGroups.eof Or OldisAllowedMember <> 1
				intUserGroupID = rsAllowedUserGroups("USERGROUP_ID")
				if InStr("," & strGroupsForUser & ",", "," & intUserGroupID & ",") then OldisAllowedMember = 1
				rsAllowedUserGroups.movenext
			Loop
			rsAllowedUserGroups.close
			set rsAllowedUserGroups = nothing
		end if
	end if
end function

Do While Not rsAllowedUserGroups.eof Or rsAllowedUserGroups.bof Or OldisAllowedMember <> 1

quote:

---

Originally posted by Reinsnitz

You may not realy want to override the deny...

---

quote:

---

Originally posted by Nikkol

Just make all the forums allowed member list and then make a group for each forum (for the example you showed that would be the best solution). You will not need DENY on any of the groups.

---