leyendo un txt???????????

[ElAprendiz]

si tienes los mails separados por enter, es decir hacia abajo puedes utilizar el metodo ReadLine, que lee una linea completa

objeto.ReadLine

o puedes crear una funcion para leer un determinado numero de caracteres, siempre y cuando estos esten separados por algun caracter (coma, tab,etc)


pero te recomiendo mejor que utilizes la primera opcion

mira este ejemplo funciona pero no pude hacerlo dentro de un ciclo do..loop, asi que lo puse dentro de un ciclo for...next, si sabes el numero de mails debes colocarlo en la variable c

espero te de alguna idea
Saludos

<%response.buffer="true"
'LECTURA DE UN ARCHIVO DE TEXTO
rutaArchivo = "d:\contactos\contactos.txt"

Set fsLectura = Server.CreateObject("Scripting.FileSystemObject")
Set mArchivo = fsLectura.OpenTextFile(rutaArchivo,1,true)
c=100 ' numero de mails
for i = 1 to c
mail=mArchivo.readline
if len(marchivo.readline)=0 then
exit for
else
response.write mail&"<br>"
marchivo.skipline
end if
next
mArchivo.close
%>