Borrar registros de BD

[haven]

Ya esta , ya ha salido

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("ID")


		Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open dsn

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


		end if
%>

Creo que estará así bien??
Un saludo