leer archivo txt desde pagina asp

[KambaZutra]

Amigos quisiera saber como puedo modificar este codigo

Mi codigo actual lee todos los datos de un txt
los datos de mi texto tiene la sgte forma

45567788
565476578

yo quiero que cada linea se guarde en una variable

mi codigo es el sgte

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName

'nombre del fichero a mostrar
strFileName = Server.MapPath("Archivo.txt")

'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObje ct")

' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=tahoma SIZE=2>"
'Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
Response.Writelin i & " " & Server.HTMLEncode(strLine) & "<br>"
'loop
End If

' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

please ayuda

[urjose]

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>