Scholastic Administrator


<% 'NOTE: The articles' content are genarated from the Query String after the ' articles.asp?articles=XXX ' It retrieves the file called articles_XXX.htm from the articles folder Dim article Dim articleText article = Request("article") if (article ="") then Response.Redirect("/administrator/index.asp") else file = Server.MapPath("articles/articles_"&article&".htm") Set filesys = CreateObject("Scripting.FileSystemObject") Set texts = filesys.OpenTextFile(file,1,0) articleText = texts.ReadAll end if %>
<%= articleText %>
<% if (URI="") then URI="/administrator/spring02/index.asp" end if %> <% doFooter(URI) %>