Sobre ARRAYS - arreglos

[gadget]

hola masters...

cómo pongo los valores de un recordset dentro de un array?

Si tengo un SELECT del que obtengo una lista de correos electrónicos que cumplen una condición, cómo pongo todos esos valores dentro de un arreglo? cuál es la sintaxis?


Mi arreglo es:
Dim lista_correos()

SELECT....
SET RsEMAILS...

.
.
.

como asigno esos correos al arreglo y cómo los listo uno por uno después?

gracias

[u_goldman]

'Para ingresarlos al array
Dim arrEmails()

For i=0 to rs.recordcount - 1
If i=0 Then
Redim arrEmails(i)
arrEmails(i)= rs("campo")
Else
Redim Preserve arrEmails(i)
arrEmails(i)= rs("campo")
End If
rs.MoveNext
Next


'Para mostrarlos
For i=0 to Ubound(arrEmails)
Response.Write arrEmails(i) & "<br>"
Next

Salu2,