Ancora le date. Errore sulla cancellazione.

[Spyfil]

Ho letto na botta di post sul confronto date.

Vi espongo il problema. Da un db access che non posso modificare tiro fuori un campo data (formato data ora).
Devo confrontare la data con quella attuale. Se è inferiore devo eliminare il record.

Ho provato così:
in una pagina faccio il confronto e in un'altra faccio la cancellazione.
confronto:

function convertDate(theDate)
if isDate(theDate) then
theYear = datePart("yyyy",theDate)
theMonth = datePart("m",theDate)
theDay = datePart("d",theDate)
if theMonth < 10 then theMonth = "0" & theMonth
if theDay < 10 then theDay = "0" & theDay
convertDate = theYear & "/" & theMonth & "/" & theDay
end if
end function
oggi = date()
Data = RSCart("Data")
if convertDate(Data) < convertDate(oggi) then
response.Redirect "deleteOld.asp"

cancellazione (il problema è qui)

sql =" Delete * from Cart where idUtente =" & ID & "AND Data < " & convertDate(oggi)

il problema penso che sia che il campo Data è in formato standard di access e io non so come fare a convertirlo nel formato della funzione convertDate.
Come posso fare?

[littletoro]

puoi postare l'errore che ti dà??
E cmq devi staccare quell'AND Data dall'id...

...where idUtente =" & ID & " AND Data

[Spyfil]

non mi da un errore.
il problema mio è che la condizione che nel confronto fatto nella prima era verificata nella seconda a causa del campo access data/ora non si verifica e quindi non mi cancella le righe.

[Spyfil]

Penso di aver risolto.
Grazie cmq

[santino83_11_04]

Originariamente inviato da Spyfil
Penso di aver risolto.
Grazie cmq

posta come una soluzione è usare anche il datediff cmq

[Spyfil]

Ho ragruppato controllo e cancellazione in una sola pagina.
Sempre usando la funzione di conversione data che ho postato sopra.
prima pagina

if convertDate(Data) < convertDate(oggi) then
response.Redirect "deleteOld.asp"

seconda pagina

'mi connetto al db e mi tiro fuori il valore che mi interessa e lo associo a Data
While Not rec.EOF
'Data è il campo access data/ora
Data = (rec.Fields.Item("Data").Value)
'oggi è Date()
if convertDate(Data) < convertDate(oggi) then
idArticoloCart = (rec.Fields.Item("idArticoloCart").Value)
SQLTWO="Delete * from Cart where idArticoloCart =" & idArticoloCart 
set rs = conn.execute(SQLTWO) 
end if

secondo voi avrò problemi?