asp-classic-unified-framework/app/controllers/ErrorController.asp

<%
Class ErrorController_Class
    Private m_useLayout
    
    Private Sub Class_Initialize()
        m_useLayout = True
    End Sub

    Public Property Get useLayout
        useLayout = m_useLayout
    End Property

    Public Property Let useLayout(v)
        m_useLayout = v
    End Property
    
    Public Sub Index()
        Response.Write "Index called"
    End Sub

    Public Sub NotFound()
    Response.Status = "404 Not Found"
%>
<!--#include file="../Views/Error/NotFound.asp" -->
<%
    End Sub

End Class

Dim ErrorController_Class__Singleton
Function ErrorController()
    If IsEmpty(ErrorController_Class__Singleton) Then
        Set ErrorController_Class__Singleton = New ErrorController_Class
    End If
    Set ErrorController = ErrorController_Class__Singleton
End Function
%>