KCI-KANBAN/app/controllers/HomeController.asp

<%
Class HomeController_Class
    Private m_useLayout
    Private m_title

    Private Sub Class_Initialize()
        m_useLayout = True
        m_title = "Home"
    End Sub

    Public Property Get useLayout
        useLayout = m_useLayout
    End Property

    Public Property Let useLayout(v)
        m_useLayout = v
    End Property

    Public Property Get Title
        Title = m_title
    End Property

    Public Property Let Title(v)
        m_title = v
    End Property

    Public Sub index()
        If Not KeycloakRequireLogin("") Then Exit Sub
        Dim totalBoards   : totalBoards   = boards_Repository().Count()
        Dim totalCards    : totalCards    = cards_Repository().Count()
        Dim boardSummaries : Set boardSummaries = boards_Repository().GetBoardSummaries()
    %>
    <!--#include file="../views/Home/index.asp" -->
    <%
        Set boardSummaries = Nothing
    End Sub

End Class

Dim HomeController_Class__Singleton
Function HomeController()
    If IsEmpty(HomeController_Class__Singleton) Then
        Set HomeController_Class__Singleton = New HomeController_Class
    End If
    Set HomeController = HomeController_Class__Singleton
End Function
%>