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