AI-ASP-CLASSIC/Core/Controllers/HomeController.asp

<%
Class HomeController
    Private m_App

    Public Sub Init(ByRef app, ByRef routeParams)
        Set m_App = app
    End Sub

    Public Sub Execute()
        ' Nothing to prepare beyond what App already exposes.
    End Sub

    Public Property Get App()
        Set App = m_App
    End Property

    Public Property Get ServiceSummary()
        Dim serviceNames
        Dim output
        Dim index

        serviceNames = m_App.ServiceNames()

        If UBound(serviceNames) < 0 Then
            ServiceSummary = "None"
            Exit Property
        End If

        output = ""

        For index = 0 To UBound(serviceNames)
            If Len(output) > 0 Then
                output = output & ", "
            End If
            output = output & Server.HTMLEncode(CStr(serviceNames(index)))
        Next

        ServiceSummary = output
    End Property
End Class
%>