<%strVirtualPath = Request("source")%>
<%response.write UCase(strVirtualPath) %> Source
<% if strVirtualPath <> "rptserver.asp" then %>
View RPTSERVER.ASP
<%end if%>
<%
strFilename = Server.MapPath(strVirtualPath)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile (strFilename, 1, FALSE, TRUE )
While NOT oInStream.AtEndOfStream
strOutput = oInStream.ReadLine
Call PrintLine(strOutput, fCheckLine(strOutput))
Response.Write("
")
Wend
%>