Qualcuno può aiutarmi?, ho trovato questo script pe rl'invio di email a più destinatari, ma il server mi da questo errore
prevista fine istruzione
x = x +1
ecco il codice
<%
'Mi collego al db ed estraggo gli indirizzi email
ecc.ecc.
'Inserisco dentro la variabile bcc tutti i destinatari
x = 0
do until rs.eof
x = x + 1
if x = 1 then
bcc = rs("email")
else
bcc = bcc & ", " & rs("email")
end if
rs.moveNext
loop
rs.close
Set rs = Nothing
'Invio l'email
Dim miaMail
Set miaMail = Server.CreateObject("CDO.Message")
miaMail.From = "mittente@della.mail"
miaMail.To = "destinatario@della.mail"
miaMail.bcc = bcc
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = "Testo della mail"
miaMail.Send
Set miaMail = Nothing
%>