Salve ragazzi, sto realizzando una sorta di newsletter. In pratica pesca all'interno del db tutti gli indirizzi email e invia un messaggio preventivamente scritto in una textarea.

Solo che al primo utente del db va tutto bene, ma al secondo utente arriva 1 sola emali con il testo doppio!

Qualcuno sa dirmi come mai?

Questo è il codice:

codice:


<%

		Set RecSet = Server.CreateObject("ADODB.Recordset")
		Visa = "SELECT Email FROM Newsletter"
		RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
		<%	Do Until RecSet.EOF %>

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa
	
invioA 					=  RecSet("Email")
		
invioDa 					=  "info@prova.com"

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT


	
DIM iMsg, Flds, iConf

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) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject = "Newsletter"
   .TextBody = "Newsletter" & vbCrLf & corpoMessaggio & ""
   .Send

End With
   
%>

<% 		RecSet.MoveNext
		Loop
		RecSet.Close 
%> 
<script>
document.location.replace('conferma_invio_newsletter.asp');
</script>