<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "412, 457" strThisBackPage = "config" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'PURGE CUSTOMER RECORDS '----------------------------------------------- datTwoWeeksAgo = DateAdd("d", -14, now) strQuery = strDeleteStatementSyntax & " tblCactuShopMailingList WHERE ML_Authorized <> 'y' and ML_Date <= " & strDateDelimiter & ReverseFormatYear(datTwoWeeksAgo) & strDateDelimiter Call ExecuteSQL(strQuery, numCursorType, objRecordSet) strResultText = GetString("ContentText_PurgeSuccessful") %>

<% WriteString("PageTitle_PurgeUnauthorizedEmails") %> <% =strResultText %>