<% config_site_id = -1 page_id = 4 Set RecPage = db.execute("SELECT * FROM page WHERE page_id = "&page_id) if not RecPage.EOF then page_id = RecPage("page_id") page_left_id = RecPage("left_id") page_right_id = RecPage("right_id") page_content = RecPage("content") page_title = RecPage("title") page_name = RecPage("page") page_module = RecPage("module") page_url = RecPage("url") hTitle = RecPage("title") hDescription = RecPage("description") hKeywords = filter_keyword(RecPage("keyword")) found = true end if %>
<% 'PAGE CONTENT '------------------------------------------------------------------------------------------------------------------------------------------- '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 post_page_id <> "" then Set RecPostPage = db.execute("SELECT * FROM page WHERE page_id = "&post_page_id) arrModule = split(RecPostPage("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 post_page_id <> "" then %>