Dim FileObject, oInStream
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile (Server.MapPath(Request("source")), 1, FALSE, 0)
On error resume next
While NOT oInStream.AtEndOfStream
     Response.Write Server.HTMLEncode(oInStream.ReadLine)
Wend