Exibindo o conteúdo de um txt.

<%

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set listar = fso.OpenTextFile("c:\InetPub\wwwroot\teste.txt",1,0)

Do while listar.AtEndOfStream <> true
conteudo = listar.readline
response.write conteudo & "<br><br>"
Loop

Set fso = Nothing
Set listar = Nothing

%>

Esta matéria foi postada originalmente no ASP4Developers por Francisco Hárley Diniz (site), que na época era "Programador ASP, frequenta o canal #asp da Brasnet (rede de irc).". Hoje, vai saber...