<% '*********************************************************************** '** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved '** '** By using this program, you are agreeing to the terms of the '** GNU General Public License. '** '** 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 MaxWebPortal must remain intact '** in the scripts and in the outputted HTML. '** The "powered by" text/logo with a link back to '** http://www.maxwebportal.com in the footer of the pages MUST '** remain visible when the pages are viewed on the internet or intranet. '** '** Support can be obtained from support forums at: '** http://www.maxwebportal.com '** '** Email: maxwebportal@hotmail.com '** ICQ: 148111300 '*********************************************************************** %> <%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %>

Home  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("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.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("Forum"), rs("M_NAME")) then %><% end if %>&UserID=<%=rs("MEMBER_ID")%>"><%=rs("M_NAME")%><%If chkForumModerator(Request("Forum"), 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("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">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("Forum") 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("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 %>

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