<% if cStr(page_left_id) = "1" then 'controleren of de page als bestand op de server voorkomt, dit wil zeggen dat er een module moet worden uitgevoerd set fo = CreateObject("Scripting.FileSystemObject") set moduleFolder = fo.GetFolder(server.mappath("modules")) arrModule = split(page_module, ";") for i = 0 to ubound(arrModule) if fo.folderExists(server.MapPath("modules/"&arrModule(i)) )then server.execute("modules/"&arrModule(i)&"/"&arrModule(i)&"-index.asp") end if 'if fo.folderExists(server.MapPath("modules/"&arrModule(i)) )then next 'for i = 0 to ubound(arrModule) if request.QueryString("offset") = "" then if inStr(page_module, "product") = 0 then %> <%=page_content%> <% end if 'if inStr(page_module) <> 0 then end if 'if request.QueryString("offset") = "" then else if request.QueryString("offset") = "" then if inStr(page_module, "product") = 0 then %>
<%=page_content%>
<% end if 'if inStr(page_module) <> 0 then end if 'if request.QueryString("offset") = "" then 'controleren of de page als bestand op de server voorkomt, dit wil zeggen dat er een module moet worden uitgevoerd set fo = CreateObject("Scripting.FileSystemObject") set moduleFolder = fo.GetFolder(server.mappath("modules")) arrModule = split(page_module, ";") for i = 0 to ubound(arrModule) if fo.folderExists(server.MapPath("modules/"&arrModule(i)) )then server.execute("modules/"&arrModule(i)&"/"&arrModule(i)&"-index.asp") end if 'if fo.folderExists(server.MapPath("modules/"&arrModule(i)) )then next 'for i = 0 to ubound(arrModule) end if 'if cStr(page_left_id) = "1" then %>