KCI-KANBAN/app/models/POBO_boards.asp

<%
Class POBO_boards
    Public Properties

    Private p_id
    Private p_name
    Private p_slug
    Private p_created_at
    Private p_created_by
    Private p_updated_at
    Private p_updated_by

    Private Sub Class_Initialize()
        p_id         = 0
        p_name       = ""
        p_slug       = ""
        p_created_at = #1/1/1970#
        p_created_by = ""
        p_updated_at = #1/1/1970#
        p_updated_by = ""
        Properties = Array("id","name","slug","created_at","created_by","updated_at","updated_by")
    End Sub

    Public Property Get PrimaryKey() : PrimaryKey = "id"     : End Property
    Public Property Get TableName()  : TableName  = "boards" : End Property

    Public Property Get id()    : id    = p_id             : End Property
    Public Property Let id(v)   : p_id  = CDbl(v)          : End Property

    Public Property Get name()  : name   = p_name          : End Property
    Public Property Let name(v) : p_name = CStr(v)         : End Property

    Public Property Get slug()  : slug   = p_slug          : End Property
    Public Property Let slug(v) : p_slug = CStr(v)         : End Property

    Public Property Get created_at()  : created_at   = p_created_at  : End Property
    Public Property Let created_at(v) : p_created_at = CDate(v)      : End Property

    Public Property Get created_by()  : created_by   = p_created_by  : End Property
    Public Property Let created_by(v) : p_created_by = CStr(v)       : End Property

    Public Property Get updated_at()  : updated_at   = p_updated_at  : End Property
    Public Property Let updated_at(v) : p_updated_at = CDate(v)      : End Property

    Public Property Get updated_by()  : updated_by   = p_updated_by  : End Property
    Public Property Let updated_by(v) : p_updated_by = CStr(v)       : End Property
End Class
%>