<%
'Pass the name of the file to the function.
Function getFileContents(strIncludeFile)
Dim objFSO
Dim objText
Dim strPage
'Instantiate the FileSystemObject Object.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Open the file and pass it to a TextStream Object (objText). The
'"MapPath" function of the Server Object is used to get the
'physical path for the file.
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
'Read and return the contents of the file as a string.
getFileContents = objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function
'Check if a html page is requested
if (request.querystring("htmpage")<>"") then
dim fileSystemObject
set fileSystemObject=Server.CreateObject("Scripting.FileSystemObject")
if fileSystemObject.FileExists(request.querystring("htmpage")+".htm") then
Response.Write getFileContents(request.querystring("htmpage")+".htm")
else
Response.write("Pagina niet gevonden!")
end if
else
page = request.querystring("page")
select case page
case ""
%>
<%
case "kleuter"
%>
<%
case "1ste"
%>
<%
case "2de"
%>
<%
case "3de"
%>
<%case "4de"
%>
<%case "5de"
%>
<%case "6de"
%>
<%case "info"
%>
<%case "varia"
%>
<%case "virtueel"
%>
<%case "varialinks"
%>
<%end select
end if
%>
|
<%if session("admin") = true then%>
<%end if%>