<%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 %>