<% 'Copyright 10-4 ApS, this file may only be used if you own a license and have agreed to the license conditions, see http://www.aspfastforum.com/aspfastforum/ for details %> <% dim strHeading, intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, blnInArchive, _ rstGroups, blnModerator 'resolve the archive status call CheckArchive(blnInArchive) 'resolve Board, Group and Message-ID call CheckBGM(GetDBCon(), intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, intCurrentUserID, blnInArchive) if not intCurrentBoardID>0 then call ServerTransfer("default.asp") if not CheckReadBoard(GetDBCon(), intCurrentUserID, intCurrentBoardID) then call RaisePermissionError() blnModerator = CheckModeratorForBoard(GetDBCon(), intCurrentUserID, intCurrentBoardID) if blnModerator then set rstGroups = ListGroupsForBoardAndUser(GetDBCon(), intCurrentBoardID, intCurrentUserID) else set rstGroups = ListGroupsForBoardAndUserRights(GetDBCon(), intCurrentBoardID, intCurrentUserID, (Request.Cookies("cLICENSE_ID")("anyGroupRights")="yes"), (Request.Cookies("cLICENSE_ID")("anyBoardRights")="yes")) end if strHeading = STR_GROUPS_TITLE if blnInArchive then strHeading = strHeading & " " & STR_GROUPS_ARCHVE if Len(cCHARSET)>0 then Response.CharSet = cCHARSET %> Groups
  <%= strHeading %>
<% call writeGroupsTree(GetDBCon(), rstGroups, intCurrentGroupID, intCurrentUserID, blnInArchive, "m.asp", false) %> <% call ConnectionClose() %>