il codice è il seguente ma dov'è il problema?

dim dataitaliana, giorno, mese, anno
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/miopdb.mdb") & ";pwd=1234"

giorno=datepart("d",date)
mese=datepart("m",date)
anno=datepart("yyyy",date)
dataitaliana=giorno & "/" & mese & "/" & anno

set objRS=server.createObject("ADODB.Recordset")

sql = "DELETE * FROM annunci WHERE datascadenza < #" & dataitaliana & "#"

objConn.Execute(sql)

objRS.Close

set objRS=nothing

objConn.Close
Set objConn = Nothing

:master: