Eliminar registro automaticamente por fecha

[JuanRAPerez]

ummmmmm

probalo

<%
fecha_tope = dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"

strSQL = "delete from anuncio where fecha <= #"&Fecha_tope&"#"
set rs = oConn.Execute(strSQL)

rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>

Suerte