11/06/2003, 08:11
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| '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,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |