SQL = "DELETE FROM SALES_STATUS WHERE ACCOUNT IN (SELECT ACCOUNT FROM ACCOUNTS WHERE (EXPIRES < '" & DateAdd("d",-90,Date()) & "'));"
cn.Execute(SQL)



SQL = "DELETE FROM SALES_STATUS_HISTORY WHERE ACCOUNT IN (SELECT ACCOUNT FROM ACCOUNTS WHERE (EXPIRES < '" & DateAdd("d",-90,Date()) & "'));"

cn.Execute(SQL)



SQL = "INSERT INTO ACCOUNTS_ARCHIVE (ACCOUNT, PASSWORD, LAPASSWORD, TYPE, PL, PLURL, CREATED, EXPIRES, STATUS, SOURCE, UPDATED, ADJA, COMPANY, FIRSTNAME, LASTNAME, WEBSITE, EMAIL, BILLEMAIL, DOMAIN, PHONE, ALTPHONE, FAX, ADDRESS, CITY, STATE, ZIP, COUNTRY, TIMEZONE, PERFORMERS, ENABLED, MOBILEEMAIL, EWEBMIN, EXPIREDEMAIL, NOTE) SELECT ACCOUNT, PASSWORD, LAPASSWORD, TYPE, PL, PLURL, CREATED, EXPIRES, STATUS, SOURCE, UPDATED, ADJA, COMPANY, FIRSTNAME, LASTNAME, WEBSITE, EMAIL, BILLEMAIL, DOMAIN, PHONE, ALTPHONE, FAX, ADDRESS, CITY, STATE, ZIP, COUNTRY, TIMEZONE, PERFORMERS, ENABLED, MOBILEEMAIL, EWEBMIN, EXPIREDEMAIL, NOTE FROM ACCOUNTS WHERE (EXPIRES < '" & DateAdd("d",-90,Date()) & "');"

cn.Execute(SQL)



SQL = "DELETE ACCOUNTS WHERE ( EXPIRES < '" & DateAdd("d",-90,Date()) & "' );"

cn.Execute(SQL)