<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Mailing List
'**
'** Copyright 2001-2004 Bruce Corkhill All Rights Reserved.
'**
'** This program is free software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may use parts of this program in your own private work, but you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** You should have received a copy of the License along with this program;
'** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'**
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.webwizguide.info/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** info@webwizguide.info
'**
'** or at: -
'**
'** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'****************************************************************************************
'Set the response buffer to true
Response.Buffer = True
'If the session variable is False or does not exsist then redirect the user to the unauthorised user page
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True OR Session("blnSuperAdmin") = False then
'Reset Server Variables
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
'Redirect to unathorised user page
Response.Redirect"unauthorised_user_page.htm"
End If
Dim intNoOfDays 'Holds the number of days to delete posts from
Dim lngDelMemberID
Dim lngNoMemDeleted
'If this is a postback delete accounts
If Request.Form("postBack") Then
lngNoMemDeleted = 0
'get the number of days to delete from
intNoOfDays = CInt(Request.Form("days"))
'Initalise the strSQL variable with an SQL statement to get the topic from the database
strSQL = "SELECT * FROM " & strDbTable & "Members "
strSQL = strSQL & "WHERE " & strDbTable & "Members.[Date] < " & strDatabaseDateFunction & " - " & intNoOfDays & " "
If strDatabaseType = "SQLServer" Then
strSQL = strSQL & " AND " & strDbTable & "Members.Active = 0"
Else
strSQL = strSQL & " AND " & strDbTable & "Members.Active = False"
End If
strSQL = strSQL & ";"
'Set the cursor type property of the record set to Dynamic so we can navigate through the record set
rsCommon.CursorType = 2
'Set set the lock type of the recordset to optomistic while the record is deleted
rsCommon.LockType = 3
'Query the database
rsCommon.Open strSQL, adoCon
'Loop through all the members to delete
Do While NOT rsCommon.EOF
'Get the author ID
lngDelMemberID = CLng(rsCommon("Mail_ID"))
'Delete the user from mem cat table
strSQL = "DELETE FROM " & strDbTable & "MemCat WHERE Mail_ID =" & lngDelMemberID & ";"
'Execute SQL
adoCon.Execute(strSQL)
'Delete RS
rsCommon.Delete
'Move next record
rsCommon.MoveNext
'Total number of member deleted
lngNoMemDeleted = lngNoMemDeleted + 1
Loop
End If
'Reset Server Objects
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
Batch Delete Un-activated Members
This option allows you to delete the accounts of those members that never activated their Mailing List Membership
<%
'If post back tell the number of members deleted
If Request.Form("postBack") Then
Response.Write(" " & lngNoMemDeleted & " Un-active member(s) have been removed from the database.