<% Dim article Dim articleText article = Request("article") if (article ="") then Response.Redirect("/administrator/index.asp") else file = Server.MapPath("articles/features_"&article&".htm") Set filesys = CreateObject("Scripting.FileSystemObject") Set texts = filesys.OpenTextFile(file,1,0) articleText = texts.ReadAll end if %>
<%= articleText %>