Corretta visualizzazione messaggio di attesa

[AxW3b]

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>")
%>

[agenti]

il messaggio di attesa lo puoi fare se utilizzi ajax.....
o se usi un iframe
oppure puoi usarlo con javascript nel momento del submit della email.

[AxW3b]

Originariamente inviato da agenti
il messaggio di attesa lo puoi fare se utilizzi ajax.....
o se usi un iframe
oppure puoi usarlo con javascript nel momento del submit della email.

grazie per la risp
però praticamente lo script non arriva mai alla fine. Se metto un db di 10 indirizzi va, l'ho testato su uno di 10570 e non va... Cioè non arriva mai alla fine, non da ne errore e ne niente (ho messo il timeout quasi infinito lol) però resta la pagina del form... Da cosa può dipendere? Un email sbagliato? Ho messo anche il comando Resume se trova errori...

[agenti]

per quel tipo di invio devi usare la paginazione ...