<% strVirtualPath = Request("Source") %>

	ASP Script
	Comments
	HTML and Text

      

---

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

---