Como eliminar un registro despues de x dias

[bakanzipp]

chiii...no keris naaa...

fecha_tope=dateadd("d",-7,now())

SQL_info="SELECT * FROM info"
set oConn_info = Server.CreateObject("ADODB.Connection")
oConn_info.Open MM_pcte_STRING ' La conexion se encuentra en la carpeta Connections

set rs_info = oConn_info.Execute(SQL_info)

if not rs_info.eof and not rs.bof then
while not rs.eof then
if rs_info("fecha") < fech_tope then
sql="delete from info where id = " & rs("id_tabla)" &";
oConn_info.Execute(sql)
else
'no se ke mas
end if
wend
end if