Tengo este codigo que funciona, pero muestra el error cuando el archivo de texto esta en otra carpeta y no en la raiz:
El subíndice está fuera del intervalo: '[number: 0]'
Código:
archivo = "archivo.txt"
archivo = Server.MapPath("carpeta/"&archivo) ' Mal
archivo = Server.MapPath(archivo) ' bien
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(archivo, 1, false)
Do While objStream.AtEndOfStream <> true
line= objStream.ReadLine
Response.Write(line)
line = split(line, ";")
Response.write(line(0))
Response.Write("<br>")
Response.write(line(1))
Response.Write("<br>")
Response.write(line(2))
Response.Write("<br>")
Response.write(line(3))
Response.Write("<br>")
Response.write(line(4))
Response.Write("<br>")
Loop
objStream.Close()
Set objStream = nothing
Set objFSO = nothing
%>
Solo lee la primera linea para la segunda muestra el error.