leer línea por línea un .txt

[ortega]

Necesito leer línea por línea un archivo de texto.

Do while not objTextStream.AtEndOfStream

Response.Write objTextStream.ReadLine
loop

no me funciona, se queda por mucho tiempo abriendo el .asp

Pruebo con
Do While objTextStream.AtEndOfStream <> True

pero sucede lo mismo

[neno35]

Si nos pusieras el codigo q utilizas para la apertura del fichero, quizas te podamos ayudar un poco. Existe el ficher? Q modo utilizas de apertura?

Saludos

[ortega]

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strNombreArchivo = "p.txt"
const fsoLectura = 1

If objFSO.FileExists(strNombreArchivo) then
Set objTextStream = objFSO.OpenTextFile(strNombreArchivo, fsoLectura)
Response.Write "El contenido del archivo es:<br>"
Do while not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine
loop
objTextStream.Close
Set objTextStream = Nothing
Else
Response.Write strNombreArchivo & " No se ha encontrado"
End If

Set objFSO = Nothing

[ortega]

Muchas gracias por la respuesta. El problema era el path que debió ser físico y no virtual, el siguiente cambio me resolvió:
const strNombreArchivo = "c:\Inetpub\wwwroot\p.txt"