Lee todas las lineas de un archivo de texto
<%
Set fs = CreateObject("scripting.FileSystemObject")
Set wfile = fs.openTextFile("c:Mydirmyfile.txt")
counter=0
do while not wfile.AtEndOfStream
counter=counter+1
singleline=wfile.readline
response.write (counter & singleline & "<br>")
loop
wfile.close
Set wfile=nothing
Set fs=nothing
%>