quote:

---

Your above function looks good, but try to use the Snitz variable naming prefixes

str for string
int for interger
bol for boolian
arr for array


  Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

---

Each to their own I guess Nathan :) I just know I'm not personally going to subscribe to a topic based on its subject line alone, I want to read it first.

As for variable names, well umm, take a look there really isn't that much standarisation going on with most of them now (the prefixes you mention are actually long time Microsoft reccomendations for variable naming conventions), I've just for now used the variable names that matched the surrounding code I was editing.

I've actually personally removed all Admin type links from my pages without any complaints so far from people. To view them I just add an Admin=1 to the querystring of each page, I found i very rarely need them showing except when I was setting up the boards and occasionally again when I was doing a little bit of admin. I'd rather trim 0.01 of a second off the execution time than have them clutter my page up again each to their own !

quote:

---

I thought I saw somewhere else in the code where this is done with a comma delimited list. Can't think right now where that is though

---

You might have been thinking of the bad words function Nikkol, also the Poll Mod uses something like this and then uses split(string) to get the fields out again, think it uses it for keeping track of polls members have voted on.

www.daoc-halo.com



Edited by - Gremlin on 24 March 2002 09:14:57

SELECT
   FORUM_FORUM.F_SUBJECT,
   FORUM_FORUM.F_SUBSCRIPTION,
   FORUM_FORUM.F_STATUS,
   FORUM_FORUM.F_ORDER,
   FORUM_CATEGORY.CAT_STATUS,
   FORUM_CATEGORY.CAT_SUBSCRIPTION,
   FORUM_CATEGORY.CAT_ORDER,
   FORUM_TOPICS.T_SUBJECT,
   FORUM_TOPICS.T_VIEW_COUNT,
   FORUM_TOPICS.FORUM_ID,
   FORUM_TOPICS.T_STATUS,
   FORUM_TOPICS.TOPIC_ID,
   FORUM_TOPICS.T_ISPOLL,
   FORUM_TOPICS.CAT_ID,
   FORUM_TOPICS.T_REPLIES,
   FORUM_TOPICS.T_AUTHOR,
   FORUM_MEMBERS.M_NAME,
   FORUM_TOPICS.T_LAST_POST,
   FORUM_TOPICS.T_LAST_POST_AUTHOR,
   FORUM_SUBSCRIPTIONS.MEMBER_ID
FROM
  (
    FORUM_CATEGORY INNER JOIN 
      (
        FORUM_FORUM INNER JOIN
          (
            FORUM_MEMBERS INNER JOIN
              FORUM_TOPICS
            ON
              FORUM_MEMBERS.MEMBER_ID = FORUM_TOPICS.T_AUTHOR
          )
          ON
          (
            FORUM_FORUM.FORUM_ID = FORUM_TOPICS.FORUM_ID
          )
        AND
          (
            FORUM_FORUM.CAT_ID = FORUM_TOPICS.CAT_ID
          )
        )
        ON
        (
          FORUM_TOPICS.CAT_ID = FORUM_CATEGORY.CAT_ID
        )
      AND
       (
         FORUM_CATEGORY.CAT_ID = FORUM_FORUM.CAT_ID
       )
     )
   LEFT JOIN FORUM_SUBSCRIPTIONS
 ON
 FORUM_MEMBERS.MEMBER_ID = FORUM_SUBSCRIPTIONS.MEMBER_ID 
ORDER BY
   FORUM_CATEGORY.CAT_ORDER,
   FORUM_FORUM.F_ORDER,
   FORUM_TOPICS.T_LAST_POST DESC

quote:

---

added the following into inc_top.asp to builded a pipe delimited sting of all forums the user has access too e.g |23|34|35|45|

---

quote:

---

Why dont you use a two dimentional array to store moderator/forum relationships.

  Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

---

quote:

---

Don't put in inc_top, put it in the top of the files that need it.

---

chkForumModerator(Forum_ID, Session(strCookieURL & "username"))= "1"

If CanModerate = 1

CanModerate = instr(AllowForumList,("|" & fForum_ID & "|",)

quote:

---

Add these two to the list

CheckForUnModeratedPosts <edit> oopsi, forgot this one needs taken care of another way, see my first reply </>
CheckSubscription

It wont be needed in all files, so theres no point in doing it in all files. Add the function to inc_functions and only call it at the top of files that need it.


  Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

Edited by - Nathan on 24 March 2002 02:11:53

---

function chkForumAccess(fForum, UserNum)
	chkForumAccess = false
	
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_LEVEL "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID=" & UserNum

	Set rsCheck = Server.CreateObject("ADODB.Recordset")
	rsCheck.open strSql, my_Conn

	if rsCheck.BOF or rsCheck.EOF then
		chkForumAccess = false
	elseif rsCheck("M_LEVEL") = 3 then
		chkForumAccess = true
		rsCheck.close
		set rsCheck = nothing
		exit function
	end if
	rsCheck.close

if (mlev = 4) then
  chkForumAccess = true
  exit function
end if

quote:

---

The only time this would not be true is in a page that uses inc_top_short.asp. The only pages I can locate that use inc_short are most of the pop_xxxx.asp pages and none of them call this particular function anyway.

---