Eliminar registro automaticamente por fecha

[Blashak]

buenas Shiryu_Libra probe lo ultimo que me dijiste y me aparece este error.

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not delete from specified tables.
/web/fecha3.asp, line 27

mi codigo

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

set oConn = Server.Createobject("Adodb.Connection")


oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
set resultado = oConn.execute("select * from anuncio")
do while not resultado.eof
ams=resultado("Fecha")

if ams < fecha_tope then

id=resultado("ID")
sqm = ("delete from anuncio where Fecha between #" & fecha_tope & "# and #" & date() & "#")

oConn.execute(sqm)
response.write(ams)
'response.write(id)

else
response.write("sd")
'response.write(id)
end if

resultado.movenext
loop


con respecto a lo que me preguntaste yo quiero eliminar los registros que tengan de 30 dias para adelante. por eso le doy a fecha_tope el valor -30.

Saludos