includedynamic.asp

<% whichfile="bookscifi.asp" Call ReadDisplayFile(whichfile) response.write "

" whichfile="bookhorror.asp" Call ReadDisplayFile(whichfile) response.write "

" whichfile="/learn/test/bookmarketing.asp" Call ReadDisplayFile(whichfile) response.write "

" %> <% 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 %>