<%
SUB ReadDisplayFile(FileToRead)
   whichfile=server.mappath(FileToRead)
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set thisfile = fs.OpenTextFile(whichfile, 1, False)
   tempSTR=thisfile.readall
   response.write tempSTR
   thisfile.Close
   set thisfile=nothing
   set fs=nothing
END SUB
Call ReadDisplayFile(foo)
' Server will ignore ASP commands in dynamic include files 
%>