<%option explicit%>
<%
Const ForReading=1
Dim fso,ts,file,i
file=Request.QueryString("file")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile( Server.MapPath(file), ForReading)
%>
<%=file%>
<%
While Not ts.AtEndOfStream
i=i+1
Response.Write "" & i & ". " & Server.HTMLEncode(ts.readline) & "
"
Wend
Set ts=Nothing
Set fso=Nothing
%>