A mi me sirve este codigo..
<%
const Lectura = 1
dim obj
dim archivo
set obj = Server.CreateObject("Scripting.FileSystemObje ct")
set archivo = obj.OpenTextFile(Server.MapPath("archivo.txt& quot;),Lectura)
do until archivo.AtEndOfStream
response.write archivo.ReadLine & "<br>"
loop
%>
en fin, otra opción
saludos
