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.