<% '################################################################################# '## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen '## '## 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. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## 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. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# '################################################################################# '## MOD FILE NOTES '## '## Modified 19 Dec 2000 by work mule '## This mod is a modified version of DA_Simulator's admin_moderator.asp MOD '## '## Compatibility Notes - v3.1 SR3 Final '## '## Please Note: The code in this file has been modified! '## Be advised that this is not part of the official Snitz Forum core code. '## '################################################################################# %> <% if Session(strCookieURL & "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." '## My message :) txtMessage = "Select a forum to edit the moderator list for that forum. Users with checked boxes 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("Forum") = "" 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." & strDBNTSQLName 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." & strDBNTSQLName & " ASC;" set rs = my_Conn.Execute(strSql) %> <% do until rs.EOF %> <% if chkForumModerator(Request("Forum"), rs(strDBNTSQLName)) then %><% end if %>&UserID=<%=rs("MEMBER_ID")%>&UserName=<%=rs(strDBNTSQLName)%>"><%=rs(strDBNTSQLName)%><%If chkForumModerator(Request("Forum"), rs(strDBNTSQLName)) Then%><%End If%> <% rs.MoveNext loop %> <% else '## Forum_SQL strSql = "SELECT " & strTablePrefix & "MODERATOR.FORUM_ID, " & strTablePrefix & "MODERATOR.MEMBER_ID, " & strTablePrefix & "MODERATOR.MOD_TYPE , " & strTablePrefix & "MODERATOR.MEMBER_NAME " strSql = strSql & " FROM " & strTablePrefix & "MODERATOR " strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & Request("UserID") & " " strSql = strSql & " AND " & strTablePrefix & "MODERATOR.FORUM_ID = " & Request("Forum") & " " 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&UserName=<%=Request("UserName")%>">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 & ", MEMBER_NAME " strSql = strSql & ") VALUES (" strSql = strSql & Request("Forum") strSql = strSql & ", " & Request("UserID") strSql = strSql & ", '" & chkstring(Request("UserName"),"SQLString") 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("Forum") & " " 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 %>

<% WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=scriptname" End IF %>