<% Dim router : Set router = GetObject("script:"& Server.MapPath("../Core/router.wsc") & "") %> <% ' Response cache headers (moved from mvc.asp - now that MVC is a Windows ' Script Component it cannot hold loose top-level ASP statements like this). Dim cacheYear : cacheYear = GetAppSetting("CacheExpirationYear") If cacheYear = "nothing" Then cacheYear = "2030" Response.ExpiresAbsolute = "01/01/" & cacheYear Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, must-revalidate" ' MVC dispatcher (Windows Script Component). It runs in its own isolated ' script engine, so its dependencies are injected explicitly here rather ' than it reaching into this page's globals itself - see AGENTS.md ' section 69/70 ("Dependencies Must Be Injected"). Dim MVC_Instance Set MVC_Instance = GetObject("script:" & Server.MapPath("../Core/mvc.wsc") & "") Set MVC_Instance.Router = router Set MVC_Instance.ControllerRegistry = ControllerRegistry() Set MVC_Instance.ControllerFactory = ControllerFactory() Set MVC_Instance.Routes = Routes() Function MVC() Set MVC = MVC_Instance End Function %>