quote:

---

Originally posted by HuwR

What version are you using ? I'm pretty sure we would know if this was a problem

---

function chkForumAccessNew(fPrivateForums,fFPasswordNew,fForum_Subject,fForum_ID,UserNum)
	if MemberID = UserNum then
		if mLev < 1 then
			chkForumAccessNew = false
		elseif mLev = 3 then
			chkForumAccessNew = true
		elseif mLev = 4 then
			chkForumAccessNew = true
			exit function
		end if
	end if

	dim Users
	dim MatchFound

	Select case fPrivateForums
		case 0
			chkForumAccessNew = true
		case 1, 6 '## Allowed Members List
			if isAllowedMember(fForum_ID,UserNum) = 1 then
				chkForumAccessNew = true
			else
				chkForumAccessNew = false
			end if
		case 2 '## password
			select case Request.Cookies(strUniqueID & "Forum")("PRIVATE_" & fForum_Subject)
				case fFPasswordNew
					chkForumAccessNew = true
				case else
					chkForumAccessNew = false
			end select
		case 3 '## Either Password or Allowed Members List
			if isAllowedMember(fForum_ID,UserNum) = 1 then
				chkForumAccessNew = true
			else
				chkForumAccessNew = false
			end if
			if not(chkForumAccessNew) then 
				select case Request.Cookies(strUniqueID & "Forum")("PRIVATE_" & fForum_Subject)
					case fFPasswordNew
						chkForumAccessNew = true
					case else
						chkForumAccessNew = false
				end select
			end if
		case 7 '## Members or Password
			if Usernum = -1 or Usernum = "" then
				select case Request.Cookies(strUniqueID & "Forum")("PRIVATE_" & fForum_Subject)
					case fFPasswordNew
						chkForumAccessNew = true
					case else
						chkForumAccessNew = false
				end select
			else
	                        chkForumAccessNew = true
			end if
			
		case 4, 5 '## Members only
			if Usernum = -1 or Usernum = "" then
				chkForumAccessNew = false
			else
				chkForumAccessNew = true
			end if
		case 8, 9 '## NT Global Groups
			test="test db"
			chkForumAccessNew = false
			if strAuthType="db" then
				chkForumAccessNew = true
			end if
			NTGroupSTR = Split(Session(strCookieURL & "strNTGroupsSTR"), ", ")
			for j = 0 to ubound(NTGroupSTR)
				NTGroupDBSTR = Split(fFPasswordNew, ", ")
				for i = 0 to ubound(NTGroupDBSTR)
					if NTGroupDBSTR(i) = NTGroupSTR(j) then
						chkForumAccessNew = True
						exit function
					end if
				next
			next
		case else
			chkForumAccessNew = true
	end select
end function