<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% if Session("Approval") = "15916941253" then %>

All Forums  Admin Section  Moderator Configuration

<% if request("Forum") = "" then txtMessage = "select a forum to edit moderators for that forum" else if request("userid") = "" then txtMessage = "Select a user to grant/revoke moderator powers for that user. Users in bold are currently moderators of this forum." else if Request("action") = "" then txtMessage = "Select an action for this user" else txtMessage = "Action Successful" end if end if end if %>

">Moderator Configuration<%if txtMessage <> "" Then%> <%=txtMessage%><%End If%> <% if Request("ForumID") = "" then %> <% '## Forum_SQL strSql = "SELECT " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT " strSql = strSql & " FROM " & strTablePrefix & "FORUM " strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.CAT_ID ASC, " & strTablePrefix & "FORUM.F_SUBJECT ASC;" set rs = my_Conn.Execute(strSql) do until rs.EOF %> "><%=rs("F_SUBJECT")%> <% rs.MoveNext loop %> <% else if Request("action") = "" then if Request("UserID") = "" then '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "Members.MEMBER_ID, " & strMemberTablePrefix & "Members.M_NAME " strSql = strSql & " FROM " & strMemberTablePrefix & "Members " strSql = strSql & " WHERE " & strMemberTablePrefix & "Members.M_LEVEL > 1 " strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 strSql = strSql & " ORDER BY " & strMemberTablePrefix & "Members.M_NAME ASC;" set rs = my_Conn.Execute(strSql) %> <% do until rs.EOF %> <% if chkForumModerator(Request("ForumID"), rs("M_NAME")) then %><% end if %>&UserID=<%=rs("MEMBER_ID")%>"><%=rs("M_NAME")%><%If chkForumModerator(Request("ForumID"), rs("M_NAME")) Then%><%End If%> <% rs.MoveNext loop %> <% else '## Forum_SQL strSql = "SELECT " & strTablePrefix & "Moderator.FORUM_ID, " & strTablePrefix & "Moderator.MEMBER_ID, " & strTablePrefix & "Moderator.MOD_TYPE " strSql = strSql & " FROM " & strTablePrefix & "Moderator " strSql = strSql & " WHERE " & strTablePrefix & "Moderator.MEMBER_ID = " & Request("UserID") & " " strSql = strSql & " AND " & strTablePrefix & "Moderator.FORUM_ID = " & Request("ForumID") & " " set rs = my_Conn.Execute(strSql) if rs.EOF then %> The selected user is not a moderator of the selected forum If you would like to make this user the moderator of this forum, &UserID=<%=Request("UserID")%>&action=1">click here. <% else %> The selected user is currently a moderator of the selected forum If you would like to remove this user's moderator status in this forum, &UserID=<%=Request("UserID")%>&action=2">click here. <% end if end if else select case Request("action") case 1 '## Forum_SQL strSql = "INSERT INTO " & strTablePrefix & "MODERATOR " strSql = strSql & "(FORUM_ID" strSql = strSql & ", MEMBER_ID" strSql = strSql & ") VALUES (" strSql = strSql & Request("ForumID") strSql = strSql & ", " & Request("UserID") strSql = strSql & ")" my_Conn.Execute strSql %> The selected user is now a moderator of the selected forum Back to Moderator Options <% case 2 '## Forum_SQL strSql = "DELETE FROM " & strTablePrefix & "Moderator " strSql = strSql & " WHERE " & strTablePrefix & "Moderator.FORUM_ID = " & Request("ForumID") & " " strSql = strSql & " AND " & strTablePrefix & "Moderator.MEMBER_ID = " & Request("UserID") my_Conn.Execute strSql %> The selected user's moderator status in the selected forum has been removed Back to Moderator Options <% end select end if end if %>

<% else %> <% Response.Redirect "admin_login.asp" %> <% end iF %>