scusa ma io lho applicato in questo modo e non mi funziona... perché?
codice:
Dim ConnCompleanno
Set ConnCompleanno = Server.CreateObject("ADODB.Connection")
connCompleanno.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/utenti.mdb")
Dim rsCompleanno
Set rsCompleanno = Server.CreateObject("ADODB.Recordset")
rsCompleanno.Open "select * from utenti order by id DESC", connCompleanno
Do while NOT RSCompleanno.EOF
dn = rsCompleanno("dn")
giornoCompleanno = day(dn)
meseCompleanno = month(dn)
annoCompleanno = year(date())
dataCompleanno = gionoCompleanno & "/" & meseCompleanno "/" & annoCompleanno
emailCompleanno = rsCompleanno("email")
if emailCompleanno = "" then
emailCompleanno = "webmaster@chiesaemmanuel.com"
end if
if dataCompleanno = date() then
messaggio = "<table style='width: 500px; height: 400px' cellspacing='0' cellpadding='0'><tr><td style='height: 204px' valign='bottom'>
"
messaggio = messaggio & "</td></tr><tr><td style='height: 150px; text-align:justify' valign='top'><span style='font-size:12pt;color:#0074c1'>Buon compleanno da Chiesa Emmanuel.</span>
"
messaggio = messaggio & "Dio benedica grandemente la tua vita.
------------
Chiesa Emmanuel
</td></tr><tr><td style='height: 37px'>
</td></tr></table>"
Set link = Server.CreateObject("CDO.Message")
link.From = "webmaster@chiesaemmanuel.com"
link.To = emailCompleanno
link.Subject = "Chiesa Emmanuel - Buon Compleanno"
link.HTMLBody = messaggio
link.Fields.Update()
link.Send()
Set link = Nothing
end if
rsCompleanno.movenext
Loop
RSCompleanno.Close
Set RSCompleanno=Nothing
connCompleanno.Close
Set connCompleanno=Nothing