Borrar registros de BD

[haven]

Vale ahora si que funciona correctamente

Código:

 <%'Convertimos el formato de fecha al estilo 10/5/2002
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia&"/"&Mes&"/"&Anio

'Con esto borramos los registros que excedan de la fecha Final en 3 días
		FechaFiestas=RS("DateFinal")
		DiferenciaEntreFechafiesta = DateDiff("y", Fecha, FechaFiestas)

		if DiferenciaEntreFechafiesta<-3 then

borrado=RS("DateFinal")



'Con este ejemplo borramos el registro completo, sabiendo que Id son los que han caducado en tres días
		Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open dsn

SQL = "DELETE FROM Events WHERE DateFinal LIKE ('%" & borrado & "%')"
Set RS1 = Conn.Execute(SQL)

		end if
%>

Un saludo amigo