<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim route, app, statusLine, contentType, body

route = Request.QueryString("route")

Set app = Nothing
On Error Resume Next
Set app = Server.CreateObject("WscMvc.Application")
If Err.Number <> 0 Then
    Err.Clear
    On Error Goto 0
    Response.Status = "500 Internal Server Error"
    Response.ContentType = "text/plain; charset=utf-8"
    Response.Write "Internal Server Error"
    Response.End
End If
On Error Goto 0

statusLine = ""
contentType = ""
body = ""

On Error Resume Next
app.Run route, statusLine, contentType, body
If Err.Number <> 0 Then
    Err.Clear
    On Error Goto 0
    Set app = Nothing
    Response.Status = "500 Internal Server Error"
    Response.ContentType = "text/plain; charset=utf-8"
    Response.Write "Internal Server Error"
    Response.End
End If
On Error Goto 0

Response.Status = statusLine
Response.ContentType = contentType
Response.Write body

Set app = Nothing
%>