If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=tahoma SIZE=2>"
i=0
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine(i) = TS.ReadLine
i=i+1
loop
End If
Y luego para recorrer
For i=0 to Ubound(StrLine)
Reposnse.Write StrLine(i)&"<br>"
Next
Como puedes ver guardamos cada linea en un arreglo y despues lo recorrimos
Saludos
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>