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
