ciclo for con do while

[asp_newbie]

Ciao,
sto cercando di confrontare degli indirizzi email contenuti in un array (letti da file) con quelli contenuti in un db. Ho pensato di utilizzare un ciclo for per la lettura dell'array e un while eof per la scansione del db.
Il problema che riscontro è che fatto il confronto con la prima email dell'array non esegue i successi, cioè il ciclo for legge gli indirizzi ma non riesco a verificarne il confronto con quelle del db.
Mi sono accorto di questo errore semplicemente creando un array con indirizzi doppi.
Posto il codice responsabile della scansione sperando di poterne uscire in qualche modo
Grazie a tutti !!!

for i = 0 to ubound(contenuto_split) - 1
	email = contenuto_split(i)
             response.Write(i&"^"&email&"
")

SQL = "SELECT * FROM MailingList"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, MiaConnection

   Do While NOT rs.EOF	
	If UCase(email) = UCase(rs("Email")) Then
	   response.Write(UCase(email)&"---"&UCase(rs("Email"))&"
")
                email_presente = (email_presente + 1)
     Exit Do
            End If
    rs.MoveNext	
	Loop	
	rs.Close
	Set rs = Nothing

NEXT

[optime]

fatto così è da pazzi. se proprio vuoi un doppio ciclo nidificato, almeno metti quello del db fuori!

[asp_newbie]

bhè è la prima soluzione che ho pensato
...sinceramente non ho capito come portar fuori il ciclo while come passo la variabile email?

[optime]

non ho capito cosa tu debba fare

[simotenax]

allora mia pare di capire che le email contenute nel file siano quelle di contenuto_split; se non lo hai già fatto ti consiglio di inserire tutte le mail del file in un array in modo da accedere una sola volta al file..
diciamo che l'array contenente le email del file sia file_email

SQL = "SELECT * FROM MailingList"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, MiaConnection

do while not rs.eof
	for i = 0 to ubound(file_email) - 1
		If UCase(file_email(i)) = UCase(rs("Email")) Then
			response.Write(UCase(email)&"---"&UCase(rs("Email"))&"
")
			Exit Do
		End If
	next
	rs.MoveNext	
Loop	
rs.Close
Set rs = Nothing

[asp_newbie]

..Grazie ad entrambi per le risposte

Simotenax hai centrato il problema : effetti devo proprio leggere da un array formato da indirizzi letti da file.
Ho provato con il tuo codice ma il problema rimane il medesimo:mi trova solo un'occorrenza, mentre il file contiene doppioni :master:
Ho anche verificato la lettura dell'array mediante response (contenuto_file(i)) e gli indirizzi vengono letti correttamente...

[simotenax]

allora semplicemente togli exit do

[asp_newbie]

stesso risultato
la riga

response.Write(UCase( contenuto_file(i))&"---"&UCase(rs("Email"))&"
")

viene processata solo una volta invece, come dicevo prima, l'array contiente almeno 3 indirizzi uguali tra loro.

[simotenax]

potresti allegare il contenuto del file di testo e magari anche il codice di come lo salvi nell'array??

[asp_newbie]

il file viene letto su server remoto in questo modo:

StrURL="http://www.MioSito.it/email.csv"
if mid(StrURL,1,3)="www" then StrURL="http://"&StrURL
	Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
	objXMLHTTP.Open "GET", StrURL, false
	objXMLHTTP.Send
	contenuto = CStr(objXMLHTTP.ResponseText)
	contenuto_file = split (contenuto,",",-1,1)

mentre il file email.csv contiene i seguenti indirizzi di test (scritti così come vengono letti qui):

Mioindirizzo@email.it,
mioIndirizzo@email.it,
mioindirizzo@email.it,
Tuoindirizzo@email.it,

Grazie