Display ASP code on an HTML page

This was a query from a user , they asked how do you display ASP code on an HTML page . Well here is our solution

Code :

<%
'declare our variables
Dim objFSO , objFile , strText
'our page to display
file = Server.MapPath("pagetodisplay.php")
'create an instance of the file system object
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'open the page , for reading
Set objFile = objFSO.OpenTextFile(file , 1 , False)
'while we are not at the end of the file read lines and store in strText
Do While Not objFile.AtEndOfStream
strText = objFile.ReadLine
'display the text
Response.Write Server.HTMLEncode(strText) & "<br>"
Loop
'close
objFile.Close
'destroy objects
Set objFile = Nothing
Set objFSO = Nothing
%>