O código ASP mostrado a seguir está sintaticamente correto. Após sua execução, retornará uma página com cada linha do arquivo teste.txt e a numeração de cada linha. <% Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.OpenTextFile("c: este.txt") contador=0 do while not wfile.AtEndOfFile
contador=contador+1 unicalinha=wfile.readline response.write (contador & unicalinha & " ") loop wfile.close Set wfile=nothing Set fs=nothing %>