<%
Response.Buffer = True
Response.ContentType = "text/html"

Dim oApplication
Dim oClockService
Dim oRequest
Dim oRouter
Dim oDispatcher
Dim routeMatch
Dim controllerKey
Dim oController
Dim requestFailed
Dim errorDescription
Dim pageTitle
Dim badgeClass
Dim badgeText
Dim viewName

requestFailed = False
errorDescription = ""
controllerKey = ""

Set oApplication = New App
Set oClockService = New ClockService
Set oRequest = New HttpRequest
Set oRouter = New Router
Set oDispatcher = New Dispatcher

oRouter.AddRoute "/", "Home"
oRouter.AddRoute "/greet/{name}", "Greet"
oRouter.AddRoute "/greet/{name}/{id}", "Greet"

' Left switched on deliberately - Default.asp's Match/Dispatch call runs
' under this same On Error Resume Next before checking Err.Number itself.
On Error Resume Next

Call oRequest.Bind(Request)

oApplication.RegisterInstance "clockService", oClockService
oApplication.SetRequest oRequest
oApplication.Boot
%>