• inc_func_secure.asp
  Find function chkDisplayForum (close to the top) and add the part in red
  

  function chkDisplayForum(fPrivateForums,fFPasswordNew,fForum_ID,UserNum)
  
  	dim strSql
  	dim rsAccess
  	chkDisplayForum = false
  
  	if (mLev = 4) or (mLev = 3 and ModerateAllowed = "Y") then
  		chkDisplayForum = true
  		exit function
  	end if
  
  	select case cLng(fPrivateForums)
  		case 0, 1, 2, 3, 4, 7, 9
  			chkDisplayForum = true
  			exit function
  		case 5
  			if UserNum = -1 then
  				chkDisplayForum = false
  				exit function
  			else
  				chkDisplayForum = true
  				exit function
  			end if
  		case 6
  			if UserNum = -1 then
  				chkDisplayForum = false
  				exit function
  			end if
  			if isAllowedMember(fForum_ID,UserNum) = 1 then
  				chkDisplayForum = true
  			else
  				chkDisplayForum = false
  			end if 
  	 	case 8
  			chkDisplayForum = false
  			if strAuthType ="nt" THEN
  				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
  							chkDisplayForum = true
  							exit function
  						end if
  					next
  				next
  			end if
                  case 10
                          chkDisplayForum = false
                          exit function
  		case else 
  			chkDisplayForum = true
  	end select 
  end function

  
  Find this code in function chkForumAccess and add the part in red.
  

  Select case rsStatus("F_PRIVATEFORUMS")
  				case 0, 10 '## Add 10 for new private forum
  					chkForumAccess = true
  				case 1, 6 '## Allowed Users
  					if isAllowedMember(fForum,UserNum) = 1 then
  						chkForumAccess = true

  
  That's All For inc_func_secure.asp


• post.asp
  Find this code around line 1232
  

  if ForumAuthType = 6 then Response.Write(" selected")
  		Response.Write	">Allowed Member List (Hidden)</option>" & vbNewLine
  		if strNTGroups = "1" then
  			Response.Write	"                	<option value=""9"""
  			if ForumAuthType = 9 then Response.Write(" selected")
  			Response.Write	">NT Global Group</option>" & vbNewLine & _
  					"                	<option value=""8"""
  			if ForumAuthType = 8 then Response.Write(" selected")
  			Response.Write	">NT Global Group (Hidden)</option>" & vbNewLine
  		end if

  
  And add this right after it
  '### ADD code below ###############################################################################################
  Response.Write " <option value=""10"""
  if ForumAuthType = 10 then Response.Write(" selected")
  Response.Write ">Hide Forum on Default</option>" & vbNewLine
  '### END addon ###################################################################################################

quote:

---

Originally posted by dpmcalister

Yet again, someone with just the sort of thing I was about to try and work out. This is excellent, I'll give it a try tomorrow

Thanks.

---