<%if request.queryString("mode") = "view" then filePath = request.queryString("path") dim fs,f,ts set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(request.QueryString("file")) THEN Set f=fs.GetFile(request.QueryString("file")) Set ts=f.OpenAsTextStream(1) Response.Write(ts.ReadAll) ts.Close set ts=nothing set f=nothing end if set fs=nothing else %>This is the Inspiration page.
Here you can find a selection of short stories that I have found interesting or inspiring.
Some are stories I've been told, some are ones people have sent me. <%end if%>

List of Stories

<%Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set storyPath=MyFileObject.GetFolder(server.mapPath("stories")) For each files in storyPath.files%> "><%=Left(files.name,(inStr(files.name,".txt")-1))%>
<%next%>