<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2018 Web Wiz Ltd. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM WEB WIZ LTD. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN WEB WIZ LTD. IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** https://www.webwiz.net/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, England '** https://www.webwiz.net '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim rsCommon2 'Holds a secound recordset for the page Dim intUserGroupID 'Holds the group ID Dim strGroupName 'Holds the name of the group Dim intCatID Dim sarryForums Dim intCurrentRecord Dim sarrySubForums Dim intCurrentRecord2 Dim intSubForumID 'Initlise variables intCatID = 0 'Read in the details intUserGroupID = IntC(Request.QueryString("GID")) 'Intialise the ADO recordset object Set rsCommon2 = Server.CreateObject("ADODB.Recordset") 'If this is a post back update the database If Request.Form("postBack") AND blnDemoMode = False Then 'Check the form ID to prevent XCSRF Call checkFormID(Request.Form("formID")) 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Forum_ID FROM " & strDbTable & "Forum ORDER BY " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Loop through all the categories in the database Do while NOT rsCommon.EOF 'Get the group ID intForumID = CInt(rsCommon("Forum_ID")) 'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* FROM " & strDbTable & "Permissions WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";" 'Set the cursor type property of the record set to Forward Only rsCommon2.CursorType = 0 'Set the Lock Type for the records so that the record set is only locked when it is updated rsCommon2.LockType = 3 'Query the database rsCommon2.Open strSQL, adoCon With rsCommon2 'If no records are returned then add a new record to the database If .EOF Then .AddNew 'Update the recordset .Fields("Group_ID") = intUserGroupID .Fields("Forum_ID") = intForumID .Fields("View_Forum") = BoolC(Request.Form("read" & intForumID)) .Fields("Post") = BoolC(Request.Form("topic" & intForumID)) .Fields("Priority_posts") = BoolC(Request.Form("sticky" & intForumID)) .Fields("Reply_posts") = BoolC(Request.Form("reply" & intForumID)) .Fields("Edit_posts") = BoolC(Request.Form("edit" & intForumID)) .Fields("Delete_posts") = BoolC(Request.Form("delete" & intForumID)) .Fields("Poll_create") = BoolC(Request.Form("polls" & intForumID)) .Fields("Vote") = BoolC(Request.Form("vote" & intForumID)) .Fields("Display_post") = BoolC(Request.Form("approve" & intForumID)) .Fields("Moderate") = BoolC(Request.Form("moderator" & intForumID)) .Fields("Calendar_event") = BoolC(Request.Form("calEvent" & intForumID)) .Fields("Attachments") = False .Fields("Image_upload") = False 'Update the database .Update End With 'Close rsCommon2 rsCommon2.Close 'Move to the next record in the recordset rsCommon.MoveNext Loop rsCommon.Close End If 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Group.* FROM " & strDbTable & "Group WHERE " & strDbTable & "Group.Group_ID = " & intUserGroupID & ";" 'Query the database rsCommon.Open strSQL, adoCon If NOT rsCommon.EOF Then 'Get the category name from the database strGroupName = rsCommon("Name") End If 'Close the rs rsCommon.Close %> Group Permissions <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strGroupName %> Group Permissions


Control Panel Menu
Select an alternate Member Group

<% = strGroupName %> Group Permissions
Use the grid below to set Permissions for the this Member Group on various forums.
What do the different permissions mean?

<% 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_URL " & _ "FROM " & strDbTable & "Category, " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Category.Cat_ID=" & strDbTable & "Forum.Cat_ID AND " & strDbTable & "Forum.Sub_ID=0 " & _ "ORDER BY " & strDbTable & "Category.Cat_order ASC, " & strDbTable & "Category.Cat_ID ASC, " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Read in the row from the db using getrows for better performance If NOT rsCommon.EOF Then sarryForums = rsCommon.GetRows() End If 'close rsCommon.Close 'If no record returned display so If NOT isArray(sarryForums) Then %> <% 'If records returned Else 'Loop round to read in all the forums in the database Do While intCurrentRecord =< Ubound(sarryForums,2) 'Get the forum ID intForumID = CInt(sarryForums(2,intCurrentRecord)) 'If this is a different cat display the cat ID If intCatID <> CInt(sarryForums(0,intCurrentRecord)) Then 'Change the cat ID intCatID = CInt(sarryForums(0,intCurrentRecord)) %> <% End If 'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* " & _ "FROM " & strDbTable & "Permissions " & _ "WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If no records are returned use default values If rsCommon.EOF Then %> <% 'Else display the values for this group Else %> <% End If 'Close rsCommon rsCommon.Close '********* check for sub forums ***************** 'Reset intCurrentRecord2 intCurrentRecord2 = 0 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_URL " & _ "FROM " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Forum.Sub_ID=" & intForumID & " " & _ "ORDER BY " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Place rs in array If NOT rsCommon.EOF Then sarrySubForums = rsCommon.GetRows() Else sarrySubForums = null End If 'close rsCommon.Close 'Read in the row from the db using getrows for better performance If isArray(sarrySubForums) Then 'Loop round to read in all the forums in the database Do While intCurrentRecord2 =< Ubound(sarrySubForums,2) 'Get the forum ID intSubForumID = CInt(sarrySubForums(0,intCurrentRecord2)) 'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* " & _ "FROM " & strDbTable & "Permissions " & _ "WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intSubForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If no records are returned use default values If rsCommon.EOF Then %> <% 'Else display the values for this group Else %> <% End If 'Close rsCommon rsCommon.Close 'Move to the next record in the recordset intCurrentRecord2 = intCurrentRecord2 + 1 Loop End If 'Move to the next record in the recordset intCurrentRecord = intCurrentRecord + 1 Loop End If 'Reset Server Objects Set rsCommon2 = Nothing Call closeDatabase() %>
Member Group Access New Topics Sticky Topics Post Reply Edit Posts Delete Posts New Polls Poll Vote Calendar Event Post Approval Forum Moderator
Check All  
There are presently no Forums created to set permissions on
<% = sarryForums(1,intCurrentRecord) %>
<% = sarryForums(3,intCurrentRecord) %> 2 Then Response.Write(" checked") %> /> /> 2 Then Response.Write(" checked") %> /> 2 Then Response.Write(" checked") %> /> 2 Then Response.Write(" checked") %> />
<% = sarryForums(3,intCurrentRecord) %> /> /> <% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /> /> type="checkbox" id="edit" value="true"<% If CBool(rsCommon("Edit_posts")) Then Response.Write(" checked") %> /> type="checkbox" id="delete" value="true"<% If CBool(rsCommon("Delete_posts")) Then Response.Write(" checked") %> /> /> /> /> /> <% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> />
  <% = sarrySubForums(1,intCurrentRecord2) %> 2 Then Response.Write(" checked") %> /> <% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /> 2 Then Response.Write(" checked") %> /> 2 Then Response.Write(" checked") %> /> 2 Then Response.Write(" checked") %> /> />
  <% = sarrySubForums(1,intCurrentRecord2) %> /> /> <% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /> /> type="checkbox" id="edit" value="true"<% If CBool(rsCommon("Edit_posts")) Then Response.Write(" checked") %> /> type="checkbox" id="delete" value="true"<% If CBool(rsCommon("Delete_posts")) Then Response.Write(" checked") %> /> /> /> /> /> <% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> />

" /> />



Forum Permissions Table
Access: Allows the Group access to the forum
New Topics: Allows the Group to post new topics
Sticky Topics: Allows the Group to post sticky topics that remain at the top of the forum
Post Reply:
 Allows the Group to reply to posts
Edit Posts: Allows the Group to edit their posts
Delete Posts: Allows the Group to delete their posts, but only if no-one has posted a reply
New Polls: Allows the Group to create new polls
Poll Vote: Allows the Group to vote in polls
If you allow Guest Groups to vote in Polls, only cookies prevent Guests from multiple voting.
Calendar Event: Allows the Group to enter Topics into the Calendar system as an event to be displayed in the Calendar.
The Calendar System needs to be enabled from the 'Calendar Settings' Page
Post Approval:
 Requires that posts for this Group need to be approved before they are displayed
If you choose to not let users have there posts displayed, then their posts will first need to be approved by the forum admin/moderator.
Forum Moderator:
 Allows the Group to have Moderator rights in this forum
This will allow the group to be able to delete, edit, move, etc. all posts in this forum, and edit user profiles etc. across the entire board

Please be aware that the Group Permissions can be over ridden by setting permissions on this forum for individual members.
What is the Ladder System?
The Ladder system enables your members to move up forum groups automatically depending on the number of posts they make. Once a member has made the minimum amount of posts for a Ladder User Group that member will be moved up to that user group.

If you select that a user group is a Non Ladder Group, any member of the group will not be effected by the ladder system, this is useful if you wish not to use the Ladder System or for special groups like moderator groups.