Originariamente inviato da yro
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) )
Response.Write diff & "
"
if diff = 3 and rs_01("tregiorni") = "" then
Response.Write "entrato nell'if" & "
"
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
Response.Write "entrato nell'elseif" & "
"
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
Response.Write "non entrato" & "
"