Guys,
I made a suggestion to Carefree about adding another check to the Function ChkUser in inc_func_common.asp ...
I just wanted to pass it by you guys to double check that it doesn't interfere with anything that I may have overlooked.
The code involves a check for the intAdminMemberID value. I told him to distinquish between a standard administrator and the forum administrator to alter the ChkUser function to include an additional case so that he could check for this:
if mlev = 5 then
end if
Please look below at case 4 to see if I am correct with my suggestion (Note: I have not tested this):
if (rsCheck("MEMBER_ID") & "" = fAuthor & "") and (cLng(rsCheck("M_LEVEL")) <> 3) then
chkUser = 1 '## Author
else
select case cLng(rsCheck("M_LEVEL"))
case 1
chkUser = 2 '## Normal User
case 2
chkUser = 3 '## Moderator
case 3
chkUser = 4 '## Admin
if rsCheck("MEMBER_ID") = intAdminMemberID then
case 4
chkUser = 5 '## Forum Admin
end if
case else
chkUser = cLng(rsCheck("M_LEVEL"))
end select
end if
intAdminMemberID
Posted - 09 July 2009 : 17:35:43
