<% ' The name of the file to display was passed by a form using GET method
infil = Request.QueryString("file")
If infil <&>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fil = fso.OpenTextFile(infil)
outstring = fil.ReadAll
' PRE tags preserve the format of the file
Response.write "<PRE>" & outstring & "</PRE><BR>"