<% Option Explicit %> <% Session.Timeout = 90 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Dimension variables Dim intNoOfDays 'Holds the number of days to delete posts from 'get teh number of days to delte from intNoOfDays = CInt(Request.Form("days")) '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 < " & strDatabaseDateFunction & " - " & intNoOfDays & ";" 'Delete the topics adoCon.Execute(strSQL) 'Reset Server Objects Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %> BATCH DELETE PRIVATE MESSAGES

Private Messages have been deleted.