ASPBlogBrainOrdure/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()
        Dim posts, categories
        Set posts = PostsRepository().FindAllWhere("IsPublished = 1", "PublishedDate DESC", 0, 5)
        Set categories = CategoriesRepository().Find(Empty, "Name")
    %>
    <!--#include file="../views/Home/index.asp" -->
    <%
    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
%>