<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' 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:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim rsCommon2 'Holds a secound recordset for the page Dim strMode 'holds the mode of the page, set to true if changes are to be made to the database Dim strMode2 'Holds if this is a sub forum Dim strForumName 'Holds the name of the forum Dim strForumDescription 'Holds the discription of the forum Dim strForumPassword 'Holds the forum password Dim strForumCode 'Holds a security code for the forum if it is password protected Dim strCatName 'Holds the name of the category Dim intCatID 'Holds the ID number of the category Dim intSelCatID 'Holds the selected cat id Dim intSubID 'Holds the sub forum ID Dim blnLocked Dim blnHide Dim intShowTopicsFrom 'Holds the amount of time to show topics in Dim intUserGroupID 'Holds the group ID Dim intMainForumID 'Holds the ID of the main forum is sub forum mode Dim strUserCode 'Holds user code Dim intForumOrderNum 'Holds the forum order number 'Initilise variables intCatID = 0 intShowTopicsFrom = 0 intForumID = 0 blnLocked = False blnHide = False intForumOrderNum = 0 'Read in the details intForumID = CInt(Request.QueryString("FID")) strForumPassword = LCase(Request.Form("password")) strMode = Request("mode") strMode2 = Request("sub") 'Intialise the ADO recordset object Set rsCommon2 = Server.CreateObject("ADODB.Recordset") 'If this is a post back update the database If (strMode = "edit" OR strMode = "new") AND Request.Form("postBack") AND blnDemoMode = False Then 'If this is a sub forum do things a little different If strMode2 = "true" Then 'Read in the sub ID intMainForumID = CInt(Request.Form("mainForum")) intSubID = intMainForumID 'Get the Cat ID for this sub forum from the database strSQL = "SELECT " & strDbTable & "Forum.Cat_ID From " & strDbTable & "Forum WHERE " & strDbTable & "Forum.Forum_ID= " & intMainForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If there is a record get the Cat ID If NOT rsCommon.EOF Then intCatID = CInt(rsCommon("Cat_ID")) 'Reset rsCommon rsCommon.Close 'Else main forums Else 'Set the sub ID to 0 intSubID = 0 'Read in the cat ID for main forums intCatID = CInt(Request.Form("cat")) 'If this is an edit then update any sub forums If strMode = "edit" Then 'If there are any sub forums we need to update the Cat ID for them strSQL = "UPDATE " & strDbTable & "Forum " & _ "SET Cat_ID = " & intCatID & " " & _ "WHERE (Sub_ID = " & intForumID & ");" 'Write to database adoCon.Execute(strSQL) End If End If 'If this is new we need a different query and also need to get the number of forum in cat for forum order If strMode = "new" Then 'SQL to colunt the number of forum in this cat strSQL = "SELECT Count(" & strDbTable & "Forum.Forum_ID) AS forumCount " & _ "FROM " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Forum.Cat_ID = " & intCatID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Get the number of forums in cat If NOT rsCommon.EOF Then intForumOrderNum = CInt(rsCommon("forumCount")) + 1 'Close recordset rsCommon.Close 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.* " & _ "From " & strDbTable & "Forum " & _ "ORDER BY " & strDbTable & "Forum.Forum_ID DESC;" 'Else use a different query if we are updating Else strSQL = "SELECT " & strDbTable & "Forum.Cat_ID, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_description, " & strDbTable & "Forum.Locked, " & strDbTable & "Forum.Hide, " & strDbTable & "Forum.Show_topics, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Forum_code " & _ "From " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Forum.Forum_ID = " & intForumID & ";" End If 'Set the cursor type property of the record set to Forward Only rsCommon.CursorType = 0 'Set the Lock Type for the records so that the record set is only locked when it is updated rsCommon.LockType = 3 'Query the database rsCommon.Open strSQL, adoCon With rsCommon 'If this is a new one add new If strMode = "new" Then .AddNew 'Update the recordset .Fields("Cat_ID") = intCatID .Fields("Sub_ID") = intSubID If strMode = "new" Then .Fields("Forum_Order") = intForumOrderNum If strMode = "new" Then .Fields("Last_post_author_ID") = lngLoggedInUserID 'Changed to use the admins logged in ID number to prevent errors of forums not displaying if the built in admin account is deleted If strMode = "new" Then .Fields("Last_post_date") = internationalDateTime("2001-01-01 00:00:00") .Fields("Forum_name") = Request.Form("forumName") .Fields("Forum_description") = Request.Form("description") .Fields("Locked") = CBool(Request.Form("locked")) .Fields("Hide") = CBool(Request.Form("hide")) .Fields("Show_topics") = CInt(Request.Form("showTopics")) 'See if there is a password if not the filed must be null If Request.Form("remove") Then .Fields("Password") = null .Fields("Forum_code") = null 'Add the new or updated password and usercode to the database ElseIf strForumPassword <> "" Then 'Encrypt the forum password strForumPassword = HashEncode(strForumPassword) 'Calculate a code for the forum strForumCode = userCode(strForumName) 'Place in recordset .Fields("Password") = strForumPassword .Fields("Forum_code") = strForumCode End If 'Update the database with the new user's details .Update End With 'Re-run the query to read in the updated recordset from the database 'We need to do this to get the new forum ID rsCommon.Requery 'Read in the new forum ID intForumID = CInt(rsCommon("Forum_ID")) 'Close RS rsCommon.Close 'Set the permissions for this forum 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Group.Group_ID, " & strDbTable & "Group.Name, " & strDbTable & "Group.Starting_group FROM " & strDbTable & "Group ORDER BY " & strDbTable & "Group.Group_ID 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 intUserGroupID = CInt(rsCommon("Group_ID")) 'Due to some issues when updating from previous versions delete permission before reseting strSQL = "DELETE " & strDbTable & "Permissions FROM " & strDbTable & "Permissions WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";" 'Write to database adoCon.Execute(strSQL) '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") = CBool(Request.Form("read" & intUserGroupID)) .Fields("Post") = CBool(Request.Form("topic" & intUserGroupID)) .Fields("Priority_posts") = CBool(Request.Form("sticky" & intUserGroupID)) .Fields("Reply_posts") = CBool(Request.Form("reply" & intUserGroupID)) .Fields("Edit_posts") = CBool(Request.Form("edit" & intUserGroupID)) .Fields("Delete_posts") = CBool(Request.Form("delete" & intUserGroupID)) .Fields("Poll_create") = CBool(Request.Form("polls" & intUserGroupID)) .Fields("Vote") = CBool(Request.Form("vote" & intUserGroupID)) .Fields("Display_post") = CBool(Request.Form("approve" & intUserGroupID)) .Fields("Moderate") = CBool(Request.Form("moderator" & intUserGroupID)) .Fields("Calendar_event") = CBool(Request.Form("calEvent" & intUserGroupID)) .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 'If this is a new forum go back to the main forums page If strMode = "new" Then 'Release server varaibles Set rsCommon2 = Nothing Call closeDatabase() Response.Redirect("admin_view_forums.asp" & strQsSID1) End If End If 'If this is an edit read in the forum details If strMode = "edit" Then 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.* " & _ "From " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Forum.Forum_ID=" & intForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon If NOT rsCommon.EOF Then 'Read in the forums from the recordset intCatID = CInt(rsCommon("Cat_ID")) intSubID = CInt(rsCommon("Sub_ID")) strForumName = rsCommon("Forum_name") strForumDescription = rsCommon("Forum_description") intForumID = CInt(rsCommon("Forum_ID")) strForumPassword = rsCommon("Password") blnLocked = CBool(rsCommon("Locked")) blnHide = CBool(rsCommon("Hide")) intShowTopicsFrom = CInt(rsCommon("Show_topics")) End If 'Close the rs rsCommon.Close End If 'See if there is a main forum for this forum to be in or if there is a category to place a main forum within If strMode2 = "true" Then 'Read in the main forum name from the database 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name " & _ "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 & "Forum.Forum_Order ASC;" Else 'Read in the category name from the database 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.Cat_name, " & strDbTable & "Category.Cat_ID " & _ "FROM " & strDbTable & "Category " & _ "ORDER BY " & strDbTable & "Category.Cat_order ASC;" End If 'Query the database rsCommon.Open strSQL, adoCon %> Forum Details <% '***** 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 ****** %>

Forum Details


Control Panel Menu
Return to the Forum Administration page

<% 'If there is no main forum or cat then display a message If rsCommon.EOF Then %>
<% 'Sub forum mode If strMode2 = "true" Then %> You must first create a New Forum to place your new Sub Forum in.

Create a New Forum <% 'Main forum mode Else %> You must first enter a Forum Category to place your new Forum in.

Enter a Forum Category <% End If %>
<% Else %>
<% 'If this is a sub forum check a forum is selected If strMode2 = "true" Then %>
Select Main Forum
Select the Main Forum from the drop down list below that you would like this Sub Forum to be in.
<% 'Else this is a main forum so select a category Else %>
Select Forum Category
Select the Category from the drop down list below that you would like this Forum to be in.
<% End If %>
Forum Details
Forum Name*: />
Forum Description*:
Give a brief description of the forum.		 />
Show Topics in the Last:
This is the default time span in which topics containing new posts are shown in the topic list.
Forum Locked:
If the forum is locked posts can not be made in the forum. Useful for maintenance.		 <% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
Hide Forum if no access:
Hide this forum on the boards main page if the user can not access the forum.		 <% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
<% If strForumPassword <> "" Then Response.Write("Change ")%> Password:
If you want this forum password protected place the password here. Otherwise leave it blank.

Please note: A password is required to view posts in a password protected forum, but Topic Subjects will still display in Searches and the Active Users Page, for better security consider using forum permissions in the table below. 		/> <% 'If there is a password ask if they want to remove it If strForumPassword <> "" Then %>
/> Forum is password protected check box to 'Remove Forum Password' <% End If %>


Forum Permissions
Use the grid below to set Permissions for the various Member Groups on this forum.
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 & "Group.Group_ID, " & strDbTable & "Group.Name, " & strDbTable & "Group.Starting_group FROM " & strDbTable & "Group ORDER BY " & strDbTable & "Group.Group_ID 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 intUserGroupID = CInt(rsCommon("Group_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 & ";" 'Query the database rsCommon2.Open strSQL, adoCon 'If no records are returned use default values If rsCommon2.EOF Then %> <% 'Else display the values for this group Else %> <% End If 'Close rsCommon2 rsCommon2.Close 'Move to the next record in the recordset rsCommon.MoveNext Loop 'Close Rs rsCommon.Close %>
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  
<% = rsCommon("Name") %> <% If CBool(rsCommon("Starting_group")) Then Response.Write("
(New members group)") %> <% If intUserGroupID = 2 Then Response.Write("
(Un-registered users)") %>		 2 Then Response.Write(" checked") %> /> <% If intUserGroupID = 1 Then Response.Write(" checked") %> /> 2 Then Response.Write(" checked") %> /> /> /> />
<% = rsCommon("Name") %> <% If CBool(rsCommon("Starting_group")) Then Response.Write("
(New members group)") %> <% If intUserGroupID = 2 Then Response.Write("
(Un-registered users)") %>		 /> /> <% If CBool(rsCommon2("Priority_posts")) Then Response.Write(" checked") %> /> /> value="true"<% If CBool(rsCommon2("Edit_posts")) Then Response.Write(" checked") %> /> value="true"<% If CBool(rsCommon2("Delete_posts")) Then Response.Write(" checked") %> /> /> /> /> /> <% If CBool(rsCommon2("Moderate")) Then Response.Write(" checked") %> />

/>
<% End If 'Reset Server Objects Set rsCommon2 = Nothing Call closeDatabase() %>


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.