quote:

---

If Bookie wants to attempt the Access thing, then kewl...

---

Oh boy. That's a lot of pressure. Unfortunately I'm just a novice when it comes to asp. This is a lot more complicated than anything I've ever done. I can't promise anything but if I get the guts to try it, I will.

Bookie

"May the forces of evil become confused on the way to your home."
- George Carlin

quote:

---

Bookie,

Have you downloaded the latest version? If you have, is it working on your site? I'm just curious if this is really an Access problem (it sounds like it is), or something specific to Simonduz's forum.

Cheers!



Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960

---

FROM(...(table1 JOIN table2 ON conditionA) JOIN table3 ON conditionB)
JOIN ...)

	strSql = strSql & " FROM ((" & strTablePrefix & "FORUM " 
	strSql = strSql & "INNER JOIN " & strTablePrefix & "TOPICS ON " 
	strSql = strSql & strTablePrefix & "FORUM.FORUM_ID = " 
	strSql = strSql & strTablePrefix & "TOPICS.FORUM_ID) " 
	strSql = strSql & "INNER JOIN " & strTablePrefix & "MEMBERS ON "
	strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR = " 
	strSql = strSql & strTablePrefix & "MEMBERS.MEMBER_ID) "

FOR SOME REASON THE FUNCTION THAT I KEEP TRYING TO PUT HERE, CAUSES PROBLEMS IN DISPLAYING THIS POST.

I'M GOING TO HAVE CREATE A TEXT FILE, UPLOAD TO MY SERVER, AND POST THIS AS A LINK.

STAY TUNED!

function chkDisplayPrivateForum(fForum_ID)
	if (mlev = 4) then ' If administrator
		chkDisplayPrivateForum = true ' then display all forums -- set to 3 for moderator
		exit function
	end if
	
'////// LEGEND ///////////////////////////////////////////////////////
	' 0 All Visitors
	' 1 Allowed Member List
	' 2 Password Protected
	' 3 Allowed Member List & Password Protected	
	' 4 Members Only
	' 5 Members Only (Hidden)
	' 6 Allowed Member List (Hidden)
	' 7 Members Only & Password Protected
	' 8 NT Global Group
	' 9 NT Global Group
	

	'## Forum_SQL - load the user list
	strSql = "SELECT " & strTablePrefix & "FORUM.F_USERLIST, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS "

	'############### Posting Restrictions ###########################
	strSql = strSql & ", F_HIDDEN "
	'############### Posting Restrictions ###########################

	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE FORUM_ID = " & fForum_ID

	set rsAccess = my_Conn.Execute(strSql)
	select case  rsAccess("F_PRIVATEFORUMS")
	
	 
	case 0, 1, 4, 9 ' Forums with Member lists but not with Passwords...
	'############### Posting Restrictions ###########################
		if rsAccess("F_HIDDEN") = 1 then
			chkDisplayPrivateForum = false
		else
			UserNum = getNewMemberNumber()
			if UserNum = - 1 then
				chkDisplayPrivateForum= false
				exit function
			end if
			if Instr(rsAccess("F_USERLIST"), ", ") > 0 then
				Users = Split(rsAccess("F_USERLIST"), ", ")
			elseif trim(rsAccess("F_USERLIST")) <> "" then ' Only 1 member assigned to forum
				chkDisplayPrivateForum = (cint(rsAccess("F_USERLIST")) = cint(UserNum))
				exit function
			else  ' No members assigned to forum
				chkDisplayPrivateForum = false 
				exit function
			end if
			MatchFound = 0
			for i = 0 to ubound(Users)
				if cint(Users(i)) = cint(UserNum) then
					MatchFound = 1
					exit for
				end if
			next
			if MatchFound = 1 then
				chkDisplayPrivateForum= true
			Else
				chkDisplayPrivateForum= false
			end if 
		end if
		exit function
	'############### Posting Restrictions ###########################

		'chkDisplayPrivateForum = true   ORIGINAL VERSION
		'exit chkDisplayPrivateForum      ORIGINAL ORIGINAL VERSION
		
	case 2, 3, 7 ' Password Protected forums - need function to check each visitors password against the forum password
		chkDisplayPrivateForum= false
		exit function
		
	case 5
		UserNum = getNewMemberNumber()
		if UserNum = - 1 then
			chkDisplayPrivateForum= false
			exit function
		else
			chkDisplayPrivateForum= true
			exit function
		end if
		
	case 6
		UserNum = getNewMemberNumber()
		if UserNum = - 1 then
			chkDisplayPrivateForum= false
			exit function
		end if
		if Instr(rsAccess("F_USERLIST"), ", ") > 0 then
			Users = Split(rsAccess("F_USERLIST"), ", ")
		elseif trim(rsAccess("F_USERLIST")) <> "" then ' Only 1 member assigned to forum
			chkDisplayPrivateForum = (cint(rsAccess("F_USERLIST")) = cint(UserNum))
			exit function
		else  ' No members assigned to forum
			chkDisplayPrivateForum = false 
			exit function
		end if
		MatchFound = 0
		for i = 0 to ubound(Users)
			if cint(Users(i)) = cint(UserNum) then
				MatchFound = 1
				exit for
			end if
		next
		if MatchFound = 1 then
			chkDisplayPrivateForum= true
		Else
			chkDisplayPrivateForum= false
		end if 
		
 	case 8  ' ADDED WITH POSTING RESTRICTIONS SR4
		chkDisplayPrivateForum = false
			if strAuthType ="nt" THEN
				NTGroupSTR = Split(strNTGroupsSTR, ", ")
				for j = 0 to ubound(NTGroupSTR)
					NTGroupDBSTR = Split(rsAccess("F_PASSWORD_NEW"), ", ")
					for i = 0 to ubound(NTGroupDBSTR)
						if NTGroupDBSTR(i) = NTGroupSTR(j) then
							chkDisplayPrivateForum = true
							exit function
						end if
					next
				next
			End if
			
	case else 
			chkDisplayPrivateForum= true
	end select 
end function