Salve a tutti.
Il seguente script funziona. Ma vorrei che si visualizzasse il messaggio di attesa "Attendere!! etc " MENTRE il sistema invia le email; invece questo è visualizzato solo alla fine dell'invio della newsletter, quando insomma non serve piu' :rollo: .....
Il codice è il seguente: (server aruba)


<% Server.ScriptTimeout = 10600 %>

<%
'Invio messaggi con CDOSYS


strFrom = Request.Form("From")
strSubject = Request.Form("subject")
strBody = Request.Form("body")



Set objRec = Server.CreateObject ("ADODB.Recordset")


'apertura database
objRec.Open "mailing_List", objConn, adOpenKeyset, _
adLockReadOnly, adCmdTable


Response.Write("<center><h3>ATTENDERE!!Invio messaggi in corso...</h3></center>")



'scorro gli indirizzi
While Not objRec.EOF

invioA = objRec("email")
invioDa = "xx@xxx.it"



'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf
'on error resume next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
'Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
'Flds(cdoSendUserName) = "xxxx"
'Flds(cdoSendPassword) = "xxxxx"
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = strsubject
.htmlbody = strbody
'Set iBP = iMsg.AddAttachment(App.Path & "\file1.txt")
.Send
End With



Set iMsg = nothing
Set iConf = nothing

'conferma invio
Response.Write "Messaggio inviato a " & objRec("EMail") & "!
"

'prossimo record
objRec.MoveNext
WEND

objRec.close
set objRec = nothing

objConn.close
set objConn = nothing

Response.Write("<center><h3>Messaggi inviati!</h3><center>")
%>