The source code for gendisppage.asp:
<html>
<head>
<title>ASP Example Source Code</title>
<meta name="Microsoft Theme" content="bubbles 011">
<meta name="Microsoft Border" content="none, default">
</head>
<body background="../_themes/bubbles/bubkgnd.gif" bgcolor="#FFFFFF" text="#000000" link="#CC0000" vlink="#0099FF" alink="#000000"><!--mstheme--><font face="Arial, Arial, Helvetica">
<!-- Extended_HTMLEncode first uses Server.HTMLEncode, then handles preceding spaces -->
<!-- #include File="ExtendedHTMLEncode.inc" -->
<%
Response.Write "<p><b><font color=""#0000FF"">"
Response.Write Request.QueryString("Desc")
Response.Write "</font></b></p><b>"
Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath(Request.QueryString("File")))
MyFileValue = OpenMyFile.ReadLine
Do While OpenMyFile.AtEndOfStream <> True
MyFileValue = Extended_HTMLEncode(MyFileValue)
Response.Write MyFileValue & "<br>"
MyFileValue = OpenMyFile.ReadLine
loop
OpenMyFile.Close
%>
<!--mstheme--></font></body>
</html>