Ciao, lo scopo di questo script è di inviare in blocco a tutti gli utenti registrati al sito la propria login e la propria password di accesso all'area riservata.

Lo script funziona correttamente, ma l'email che si riceve non solo contiene la propria login e la propria password, contiene anche quelle degli altri utenti !!!

Dove sbaglio?:

codice:
Session.Timeout = 45

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"


SQL = "SELECT * FROM tbl_login2 "
SQL = SQL & " WHERE ( login1 IS NOT NULL ) "
SQL = SQL & " AND ( login1 <> '' ) "
SQL = SQL & " AND ( esitoEmail IS NOT NULL ) "
SQL = SQL & " AND ( esitoEmail = 0 ) "
SQL = SQL & " LIMIT 10 " 

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objconn

if objRS.eof then
     response.write "ko"
else

while not objRS.eof
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

	messaggio = messaggio & VBcrlf & "LOGIN = " & objRS.fields("login1") & " 
"
	messaggio = messaggio & VBcrlf & "PASSWORD = " & objRS.fields("password1") & " 
"
                messaggio = messaggio & VBcrlf & "E-MAIL = " & objRS.fields("EMail") & "

" 
	   
With objMessage
 .To       = objRS.fields("EMail")
 .From     = "autoreply@com.com"
 .Subject  = "Risposta automatica"
 .HtmlBody = messaggio
 .Send
End With
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Response.write "id:"& objRS.fields("ID") &"-"
Response.write "Nome:"& objRS.fields("Nome") &"-"
Response.write "Il messaggio è stato spedito a:"& objRS.fields("EMail") &"

"

objRS.movenext
wend
end if

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing