<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** Session.Timeout = 90 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'If in demo mode redirect If blnDemoMode Then Call closeDatabase() Response.Redirect("admin_web_wiz_forums_premium.asp" & strQsSID1) End If 'Dimension variables Dim intNoOfDays 'Holds the number of days to delete posts from Dim dtmSelectedDate 'get teh number of days to delte from intNoOfDays = CInt(Request.Form("days")) 'set up db dates dtmSelectedDate = internationalDateTime(DateAdd("d", -intNoOfDays, now())) 'If SQL server remove dash (-) from the ISO international date to make SQL Server safe If strDatabaseType = "SQLServer" Then dtmSelectedDate = Replace(dtmSelectedDate, "-", "", 1, -1, 1) 'If acess used # around dates If strDatabaseType = "Access" Then dtmSelectedDate = "#" & dtmSelectedDate & "#" Else dtmSelectedDate = "'" & dtmSelectedDate & "'" End If 'Initalise the strSQL variable with an SQL statement to delete the private messages from the database strSQL = "DELETE FROM " & strDbTable & "PMMessage " strSQL = strSQL & "WHERE " & strDbTable & "PMMessage.PM_Message_date < " & dtmSelectedDate & ";" 'Delete the topics adoCon.Execute(strSQL) 'Reset Server Objects Call closeDatabase() %> Batch Delete Private Messages <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("" & vbCrLf & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

Batch Delete Private Messages


Control Panel Menu





Private Messages have been Deleted.