<%
strVirtualPath = Request("source")
If fValidPath(strVirtualPath) Then
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
Else
Response.Write("View Source Code -- Access Denied
")
End If
%>