Function OneVisibleForum(FORUM_ID)
	' Is there at least one visible forum under this parent?
	OneVisibleForum = false 
	strSQL = "SELECT F.FORUM_ID, F.F_PRIVATEFORUMS, F.F_PASSWORD_NEW " & _
				 "FROM " & strTablePrefix & "FORUM F " & _
			 	 "WHERE F.F_PARENT = " & FORUM_ID & " AND F.F_TYPE = 0;" 
	set rs = my_Conn.Execute(strSQL)
	if not rs.eof then
		do until rs.eof
			intPrivateForum = rs("F_PRIVATEFORUMS")
			strPasswordNew = rs("F_PASSWORD_NEW")
			intForumID = rs("FORUM_ID")
			intMemberID = getMemberID(strDBNTUserName)
			if intMemberID = 0 then intMemberID = -1
			if chkDisplayForum(intPrivateForum, strPasswordNew, intForumID, intMemberID) then
				OneVisibleForum = true
				exit do
			end if
			rs.movenext
		loop
	end if
	set rs = nothing
end Function

sub ListSubForums(FORUM_ID)

	If Not OneVisibleForum(FORUM_ID) then Exit Sub