il breve codice che segue, dovrebbe prendere le email da un database access, controllare il campo data se corrisponde alla data odierna, e quindi inviare le email ai rispettivi destinatari, dopodiché mi dovrebbe visualizzare - n. tot email inviate. Invece, pur non generando alcun errore di script, mi visualizza - zero email inviate - e in effetti non invia nulla. Qualcuno mi può dare un aiuto?? grazie.


<%

dim db
set db=server.createobject("ADODB.Connection")



db.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\inetpub\webs\miositoit\mdb-database\db.mdb"



db.open

dim strSQL
dim ddate

strSQL = "SELECT * FROM info WHERE date='" & date() & "'" ' edit 20/05/2003

dim objup
set objup = server.createobject("ADODB.RecordSet")
objup.open strSQL, db, 1, 3

dim objemail

dim count
dim people
count =0

dim message

do while not objup.EOF

message = objup("message") & vbCrLf & vbCRLF & "-- questo messaggio ti viene inviato da:"

Set objEmail = Server.CreateObject("CDONTS.NewMail")
objEmail.to = objup("email")
objEmail.From = "autore msg<nomeautore@email.it>"
objEmail.subject = "c'è un messaggio per te " & date()
objEmail.body = message
objEmail.send
set objEmail = nothing

people = people & " " & objup("name")
count = count + 1

objup.movenext
loop

response.write(count & " messaggi inviati a: " & people & " il: ")
response.write(date())


set db=nothing

%>