cancellare tutti i record vecchi di un mese

[Stanislao]

Mi dice messaggio eliminato correttamente e non da errori ma non cancella dal db :master:


riposto tutto il codice

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("data.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")

ddel= DateAdd("m", -1, Now())

sql="delete * from Miniblog where Data_Messaggio= #" & ddel & "#"
rs.Open sql,Conn,3,3

response.Write "Messaggi eliminati correttamente"
				

Set rs=Nothing
Conn.close
Set Conn=Nothing
%>