KCI-KANBAN/app/models/POBO_cards.asp

<%
Class POBO_cards
    Public Properties

    Private p_id
    Private p_board_id
    Private p_column_id
    Private p_swim_lane_id
    Private p_job_number
    Private p_job_name
    Private p_position
    Private p_created_at
    Private p_created_by
    Private p_updated_at
    Private p_updated_by

    Private Sub Class_Initialize()
        p_id           = 0
        p_board_id     = 0
        p_column_id    = 0
        p_swim_lane_id = 0
        p_job_number   = ""
        p_job_name     = ""
        p_position     = 0
        p_created_at   = #1/1/1970#
        p_created_by   = ""
        p_updated_at   = #1/1/1970#
        p_updated_by   = ""
        Properties = Array("id","board_id","column_id","swim_lane_id","job_number","job_name","position","created_at","created_by","updated_at","updated_by")
    End Sub

    Public Property Get PrimaryKey() : PrimaryKey = "id"    : End Property
    Public Property Get TableName()  : TableName  = "cards" : 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 board_id()     : board_id      = p_board_id     : End Property
    Public Property Let board_id(v)    : p_board_id    = CDbl(v)        : End Property

    Public Property Get column_id()    : column_id     = p_column_id    : End Property
    Public Property Let column_id(v)   : p_column_id   = CDbl(v)        : End Property

    Public Property Get swim_lane_id() : swim_lane_id  = p_swim_lane_id : End Property
    Public Property Let swim_lane_id(v): p_swim_lane_id = CDbl(v)       : End Property

    Public Property Get job_number()   : job_number    = p_job_number   : End Property
    Public Property Let job_number(v)  : p_job_number  = CStr(v)        : End Property

    Public Property Get job_name()     : job_name      = p_job_name     : End Property
    Public Property Let job_name(v)    : p_job_name    = CStr(v)        : End Property

    Public Property Get position()     : position      = p_position     : End Property
    Public Property Let position(v)    : p_position    = CDbl(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
%>