niente da fare...non va!
posto tutto il codice cosi magari cerco di spiegare meglio il problema:

do while not rs_01.EOF

'calcola la differenza tra la data di oggi e quella del campo
subtime=NOW()
data1 = ""&subtime&""
strdurata= "" & rs_01("durata") & ""
strscadenza= "" & rs_01("scadenza") & ""
diff = DateDiff ( "d", (data1), (strscadenza) )


if diff = 3 and rs_01("tregiorni") = "" then


strFrom="xxxx.com"
strFromMail="servizio.clienti@xxxx.com"
strTo= rs_01("nome")
strToMail= rs_01("mail")


Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strFrom & "<" & strFromMail & ">"
objMail.to = strTo & "<" & strToMail & ">"
objMail.Subject = "Avviso di scadenza"
objMail.Body = "testo"
objMail.Importance=0
objmail.MailFormat=0
objMail.bodyFormat=0
objmail.Send()


'aggiunge ok nel campo
rs_01("tregiorni") = "ok"
rs_01.update



elseif diff = 0 and rs_01("zerogiorni") = "" then



strFrom="xxxx.com"
strFromMail="servizio.clienti@xxxx.com"
strTo= rs_01("nome")
strToMail= rs_01("mail")


Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strFrom & "<" & strFromMail & ">"
objMail.to = strTo & "<" & strToMail & ">"
objMail.Subject = "Avviso di scadenza"
objMail.Body = "testo"

objMail.Importance=0
objmail.MailFormat=0
objMail.bodyFormat=0
objmail.Send()

'aggiunge ok al campo
rs_01("zerogiorni") = "ok"
rs_01.update

end if
praticamente quello che voglio fare è questo:
se diff = 3 manda una mail e scrivi ok nel campo tregiorni
e se diff è = 0 manda l'altra mail e scrivi nel campo zerogiorni ok
poi volevo mettere che se il campo zerogiorni o tregiorni è vuoto procedi altrimenti non fa niente!

ma non succene niente, non scrive ok ne manda mail.

non so perche?

idee!
grazie!