<% Dim strVirtualPath, strFilename strVirtualPath = Request("source") strFilename = Server.MapPath(strVirtualPath) Dim FileObject, oInStream, strOutput Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 ) While NOT oInStream.AtEndOfStream strOutput = oInStream.ReadLine Call PrintLine(strOutput, fCheckLine(strOutput)) Response.Write("
") Wend %>