Forma alternativa para borrar mensajes en 5 días

[mariano_donati]

Hola, me gustaría borrar unos mensajes pasados 5 días luego de que fueron escritos. Probando encontré esta forma, que no es lo original, sino era para ver si funcionaba:

set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open(Application("Conexion"))
set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "TablonMensajes", conexion, 3, 3
RS.Filter = "IddeNegocio = 1"

Do until RS.EOF
if RS("Fecha") < Now() then
RS.Delete()
RS.Update()
RS.Requery()
else
Response.Write(RS("Mensaje"))
RS.MoveNext
end if
Loop

RS.Close()
conexion.Close()
set RS = nothing
set conexion = nothing

Eso funciona correctamente. Me gustaría saber alguna forma alternativa de hacer esto mismo si es que pueden comentarme.
Un saludo, muchas gracias.

[trasgukabi]

Código:

tope = DateAdd("d", -5, date)
conexion.execute "delete from tablonmensajes where fecha<="&tope

me imagino que con esto valdrá.
Un saludo!!!

[mariano_donati]

claro, pero también tengo que mostrar registros, por eso quiero hacer todo en uno. Teniendo en cuenta esto también, vos lo que me aconsejarías sería hacer esta sentencia, y luego hacer el RS de forma común?.
Saludos!.

[trasgukabi]

lo más rápido sería, más o menos:
-cargar rs con .getstring(más rápido, formateo de salida más complicado), o getrows
-cerrar rs
-borrar con delete from
-salida registros.

creo, vaya. seguro que alguien propone más opciones.

Un saludo.

[mariano_donati]

no había pensado en eso, me parece interesante. El tema me parece que está en el orden no?, osea si primero cargo el RS en memoria y luego borro, al momento en que el usuario entra a la página va a ver por una última vez el mensaje, así que voy a invertir el orden si te parece (luego me comentas), primero borro, luego cargo el RS actualizado sin los registros que se pasaron de esa fecha, y luego los envio al navegador.
Me parece la opción más interesante para lograr esto.
Un saludo Trasgukabi, muchas gracias.

[trasgukabi]

ah coño, es verdad. en tu primera propuesta primero mirabas si el registro a presentar era antigüo. si lo era, lo borrabas. Y si no lo era, lo presentabas.

me confundí en mi anterior mensaje. Entonces el orden sería:
-borrar con delete from (filtrando con dateadd)
-cargar rs con .getstring(más rápido, formateo de salida más complicado), o getrows
-cerrar rs
-salida registros.

malas lecturas....malas respuestas. Ésto es una verdad universal....

quisiera que todo el mundo supiera que Mariano es el mejor usuario que hay en este foro. pregunta mucho. Sí. Pero plantea discusiones que le sirven de mucho a la comunidad....(estaría muy bien que muchos de los que pueblan estos campos tomaran ejemplo)