questo è il codice --------
<%
'elimino gli annunci vecchi
dim dataitaliana, giorno, mese, anno
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/impiego.mdb") & ";pwd=2256"
giorno=datepart("d",now())
mese=datepart("m",now())
anno=("yyyy", now())
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
%>
i valori del campo datascadenza dei 5 record sono i seguenti
08/07/2004
08/07/2004
08/07/2004
08/07/2004
02/02/2004
l'ultimo dovrebbe cancelllarlo ma invece non lo elimina sapete aiutarmi? Grazie.![]()

Rispondi quotando
