<%
'#################################################################################
'## 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 Request.QueryString("mode") = "DeleteReply" then
mLev = cint(ChkUser3(Request.Form("User"), Request.Form("Pass"), Request.Form("REPLY_ID")))
if mLev > 0 then '## is Member
if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("User")) = "1") or (mLev = 1) or (mLev = 4) or (chkForumModerator(Request.Form("FORUM_ID"), session("userid")) = "1") then '## is Allowed
'## Forum_SQL - Delete reply
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.REPLY_ID = " & Request.Form("REPLY_ID")
my_Conn.Execute strSql
'## Forum_SQL - Decrease count of total replies in Forum by 1
strSql = "UPDATE " & strTablePrefix & "FORUM "
strSql = strSql & " SET " & strTablePrefix & "FORUM.F_COUNT = " & strTablePrefix & "FORUM.F_COUNT - " & 1
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_ID")
my_Conn.Execute strSql
'## FORUM_SQL - Decrease count of replies to individual topic by 1
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_REPLIES = " & strTablePrefix & "TOPICS.T_REPLIES - " & 1
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.Form("TOPIC_ID")
my_Conn.Execute strSql
'## FORUM_SQL - Decrease count of total replies in Totals table by 1
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & 1
my_Conn.Execute strSql
%>
Reply Deleted!
(Remember to Refresh your browser.)
<% Else %>
No Permissions to Delete Reply
Go Back to Re-Authenticate
<% end if %>
<% Else %>
No Permissions to Delete Reply
Go Back to Re-Authenticate
<% end if
else
if Request.QueryString("mode") = "DeleteTopic" then
mLev = cint(ChkUser2(Request.Form("User"), Request.Form("Pass")))
if mLev > 0 then '## is Member
if (chkForumModerator(Request.Form("FORUM_ID"), Request.Form("User")) = "1") or (mLev = 4) or (chkForumModerator(Request.Form("FORUM_ID"), session("userid")) = "1") then
delAr = split(Request.Form("TOPIC_ID"), ",")
for i = 0 to ubound(delAr)
'## Forum_SQL - count total number of replies of TOPIC_ID in Reply table
set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT count(" & strTablePrefix & "REPLY.REPLY_ID) AS cnt "
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.TOPIC_ID = " & cint(delAr(i))
rs.Open strSql, my_Conn
risposte = rs("cnt")
rs.close
set rs = nothing
'## Forum_SQL - Delete the actual topics
strSql = "DELETE FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete all replys related to the topics
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.TOPIC_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Update count of replies to a topic in Forum table
strSql = "UPDATE " & strTablePrefix & "FORUM "
strSql = strSql & " SET " & strTablePrefix & "FORUM.F_COUNT = " & strTablePrefix & "FORUM.F_COUNT - " & cint(risposte) + 1
strSql = strSql & " , " & strTablePrefix & "FORUM.F_TOPICS = " & strTablePrefix & "FORUM.F_TOPICS - " & 1
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("FORUM_ID")
my_Conn.Execute strSql
'## Forum_SQL - Update total TOPICS in Totals table
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.T_COUNT = " & strTablePrefix & "TOTALS.T_COUNT - " & 1
strSql = strSql & ", " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & cint(risposte) + 1
my_Conn.Execute strSql
next
%>
Topic Deleted!
<% Else %>
No Permissions to Delete Topic
Go Back to Re-Authenticate
<% end if %>
<% Else %>
No Permissions to Delete Topic
Go Back to Re-Authenticate
<%
end if
else
if Request.QueryString("mode") = "DeleteForum" then
mLev = cint(ChkUser2(Request.Form("User"), Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then
delAr = split(Request.Form("FORUM_ID"), ",")
for i = 0 to ubound(delAr)
'## Forum_SQL - count total number of replies of FORUM_ID in Reply table
set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT count(" & strTablePrefix & "REPLY.REPLY_ID) AS cnt "
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.FORUM_ID = " & cint(delAr(i))
rs.Open strSql, my_Conn
risreply = rs("cnt")
rs.close
set rs = nothing
'## Forum_SQL - Delete all replys related to the topics
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - count total number of Topics of FORUM_ID in Topics table
set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT count(" & strTablePrefix & "TOPICS.TOPIC_ID) AS cnt "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.FORUM_ID = " & cint(delAr(i))
rs.Open strSql, my_Conn
rispost = rs("cnt")
rs.close
set rs = nothing
'## Forum_SQL - Delete the actual topics
strSql = "DELETE FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the moderators
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the actual forums
strSql = "DELETE FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Update total topics and posts in Totals table
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & cint(rispreply + rispost)
strSql = strSql & ", " & strTablePrefix & "TOTALS.T_COUNT = " & strTablePrefix & "TOTALS.T_COUNT - " & cint(respost)
my_Conn.Execute strSql
next
%>
Forum Deleted!
<% Else %>
No Permissions to Delete Forum
Go Back to Re-Authenticate
<% end if %>
<% Else %>
No Permissions to Delete Forum
Go Back to Re-Authenticate
<%
end if
else
if Request.QueryString("mode") = "DeleteCategory" then
mLev = cint(ChkUser2(Request.Form("User"), Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then
delAr = split(Request.Form("CAT_ID"), ",")
for i = 0 to ubound(delAr)
'## Forum_SQL - Delete all replys related to the topics
strSql = "DELETE FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.CAT_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the actual topics
strSql = "DELETE FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.CAT_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the actual forums
strSql = "DELETE FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.CAT_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Delete the actual category
strSql = "DELETE FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & cint(delAr(i))
my_Conn.Execute strSql
'## Forum_SQL - Update total topics and posts in Totals table
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.P_COUNT = " & strTablePrefix & "TOTALS.P_COUNT - " & 1
my_Conn.Execute strSql
next
%>
Category Deleted!
<% else %>
No Permissions to Delete Category
Go Back to Re-Authenticate
<% end if %>
<% else %>
No Permissions to Delete Category
Go Back to Re-Authenticate
<%
end if
else
if Request.QueryString("mode") = "DeleteMember" then
mLev = cint(ChkUser2(Request.Form("User"), Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then
'## Forum_SQL - Select postcount
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_POSTS "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID")
set rs = my_Conn.Execute (strSql)
if (rs("M_POSTS") = 0) then
'## Forum_SQL - Delete the Member - Member has no posts
strSql = "DELETE FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute strSql
else
'## Forum_SQL - disable account - Member has posts, cannot delete just disable account
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 0
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL = ' '"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 1
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME = 'n/a'"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY = ' '"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE = 'deleted'"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE = ' '"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM = ' '"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO = ' '"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ = ' '"
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute strSql
end if
'## Forum_SQL - Remove the member from the moderator table
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute (strSql)
'## Forum_SQL - Update total of Members in Totals table
strSql = "UPDATE " & strTablePrefix & "TOTALS "
strSql = strSql & " SET " & strTablePrefix & "TOTALS.U_COUNT = " & strTablePrefix & "TOTALS.U_COUNT - " & 1
my_Conn.Execute strSql
%>
Member Deleted!
<% else %>
No Permissions to Delete a Member
Go Back to Re-Authenticate
<% end if %>
<% else %>
No Permissions to Delete a Member
Go Back to Re-Authenticate
<%
end if
else
%>
Delete
<% if Request.QueryString("mode") = "Member" then %>
Member
<% else %>
<% if Request.QueryString("mode") = "Category" then %>
Category
<% else %>
<% if Request.QueryString("mode") = "Forum" then %>
Forum
<% else %>
<% if Request.QueryString("mode") = "Topic" then %>
Topic
<% else %>
<% if Request.QueryString("mode") = "Reply" then %>
Reply
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
NOTE:
<% if Request.QueryString("mode") = "Member" then %>
Only Administrators can delete a Member.
<% else %>
<% if Request.QueryString("mode") = "Category" then %>
Only Administrators can delete a Category.
<% else %>
<% if Request.QueryString("mode") = "Forum" then %>
Only Administrators can delete Forums.
<% else %>
<% if Request.QueryString("mode") = "Topic" then %>
Only Moderators and Administrators can delete Topics.
<% else %>
<% if Request.QueryString("mode") = "Reply" then %>
Only the Author, Moderators and Administrators can delete Replies.
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<%
end if
end if
end if
end if
end if
%>