/asp/freeapps/postcardmentor/admin_deloldcards.asp
<!--#include file="menu.inc"-->
<!--#include file="inccard.asp"-->
<!--#include file="includelogin.asp"-->
<%
Dim oConn
Set oConn = Postcard_GetDatabaseConn()
Dim oRS, dDate
dDate = Now()
dDate = DateAdd( "d", -30, dDate )
oConn.Execute "delete from " & Postcard_GetTablePrefix() & "createdpostcards where createdtime < #" & dDate & "#"
Response.Redirect "admin_default.asp"
Response.Flush
Rwsponse.End
%>