Devo realizzare un database in access 2007, su Windows server 2003, con quattro campi: nome, cognome, codice, scadenza;
Quello che mi blocca è che alla data di scadenza mi venisse segnalato il report segnalato (con alert o invio email).
In giro ho trovato questo, ma che usa il metodo CDONTS non più valido su Server 2003 :

Dim conn
Dim rs, scadenza, messaggio, testo

Set conn = CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\portal\db\data.mdb"

'numero di giorni prma della scadenza in cui inviare la email
numdays = 15

Set rs = CreateObject("ADODB.Recordset")
'utilizzo la variabile booleana stato per indicare solo gli utenti attivi (0) e non attivi (1)
rs.Open "SELECT * FROM tutenti WHERE stato=0 ORDER BY cognome", conn

scadenza = Date() + numdays
messaggio = "Questo è un messaggio automatico per ricordarti che la tua password scadrà entro" & numdays & " giorni. Ti raccomandiamo di andare sul sito per rinnovarla." & chr(13)
messaggio = messaggio & "Se la tua password scadrà dovrai contattare l'amministratore." & chr(13) & chr(13)
messaggio = messaggio & "Data di scadenza: " & fraunasettimana & chr(13) & chr(13) & "Migliori saluti." & chr(13) & "Nota: questo indirizzo email non esiste: non rispondere o scrivere ad esso."

Do While Not rs.EOF
if rs.fields("pinexpire") = scadenza then
Set link = CreateObject("CDONTS.Newmail")
link.From = "automail@dominio.ext"
link.To = rs.fields("email")
link.Subject = "Attenzione - Scadenza Password"
link.Body = messaggio
link.Send
Set link = Nothing
end if
rs.MoveNext
Loop


rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing


Mentre quest’altro usa il metodo CDOSYS valido per Server 2003. Come posso far funzionare il mio database con le caratteristiche di cui sopra?

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = "mittente@suodominio.zz"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
.AddAttachment server.mappath("/public/test.txt")

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>


Un grazie anticipato a tutti quelli che mi risponderanno.