<html>
<body>

<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FS.OpenTextFile(Server.MapPath("text") & "\text.txt",1)
While not rs.AtEndOfStream
      Response.Write RS.ReadLine
Response.Write("<br>")
Wend
%>

</body>
</html>
Published in: ASP
Download

Related snippets