<% on Error Resume Next
Response.Expires = 0
ID = Request.QueryString("ID")
If ID = "" then
Response.redirect "default.asp"
End If
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
whichfile=ID & ".asp"
tp=left(whichfile,1)
select case tp
case "p"
Response.Redirect("ppix.asp?tfile="&ID)
end select
ID = Request.QueryString("ID")
%>
<%
dim hdp, flnk
dbpath="/2009/04/27/p.txt"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath(dbpath))
%>
<%
WHILE NOT MyTextFile.AtEndOfStream
hdp= MyTextFile.ReadLine
flnk= MyTextFile.ReadLine
%>
