Back
Please use your back button to go back to the site." End If %>
|
Print this page Back |
|
<%
If request("page") <> "" Then
whichfile= "print/" & request("page") & ".inc"
Call ReadDisplayFile(whichfile)
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
Else
response.write "There is not a printable version of this page. Please use your back button to go back to the site." End If %> |
|