Forum |
Access |
New Topics |
Sticky Topics |
Post Reply |
Edit Posts |
Delete Posts |
New Polls |
Poll Vote |
Calendar Event |
Post Approval |
Forum Moderator |
|
<%
'Reset record position holders
intCurrentRecord = 0
intCurrentRecord2 = 0
'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 " & _
"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;"
'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()
'close
rsCommon.Close
'If there are results show them
If isArray(sarryForums) Then
'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))
%>
<% = sarryForums(1,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.Author_ID = " & lngMemberID & " 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
%>
<% = sarryForums(3,intCurrentRecord) %> |
|
|
|
|
|
|
|
|
|
|
|
|
<%
'Else display the values for this group
Else
%>
<% = sarryForums(3,intCurrentRecord) %> |
<% If CBool(rsCommon("View_Forum")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Post")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Priority_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Reply_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Edit_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Delete_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Poll_create")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Vote")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Calendar_event")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Display_post")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Moderate")) Then Response.Write("") Else Response.Write("") %> |
|
<%
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 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 NOT 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.Author_ID = " & lngMemberID & " 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
%>
<% = sarrySubForums(1,intCurrentRecord2) %> |
|
|
|
|
|
|
|
|
|
|
|
<%
'Else display the values for this group
Else
%>
<% = sarrySubForums(1,intCurrentRecord2) %> |
<% If CBool(rsCommon("View_Forum")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Post")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Priority_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Reply_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Edit_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Delete_posts")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Poll_create")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Vote")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Calendar_event")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Display_post")) Then Response.Write("") Else Response.Write("") %> |
<% If CBool(rsCommon("Moderate")) Then Response.Write("") Else Response.Write("") %> |
|
<%
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
%>
Forum Permissions Table |
Access: |
Allows the Member access to the forum |
New Topics: |
Allows the Member to post new topics |
Sticky Topics: |
Allows the Member to post sticky topics that remain at the top of the forum |
Post Reply:
|
Allows the Member to reply to posts |
Edit Posts: |
Allows the Member to edit their posts |
Delete Posts: |
Allows the User to delete their posts, but only if no-one has posted a reply |
New Polls: |
Allows the Member to create new polls |
Poll Vote: |
Allows the Member to vote in polls |
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 Member 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 Member 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 |