ASPBlogBrainOrdure/app/models/POBO_Categories.asp

<%
' Auto-generated POBO for table [Categories]
' Generated on 5/2/2026 9:48:11 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_Categories
    ' Public array of all property names
    Public Properties

    Private pCategoryID
    Private pDescription
    Private pName
    Private pSlug

    Private Sub Class_Initialize()
        pCategoryID = 0
        pDescription = Null
        pName = Null
        pSlug = Null
        Properties = Array("CategoryID","Description","Name","Slug")
    End Sub

    Public Property Get PrimaryKey()
        PrimaryKey = "CategoryID"
    End Property

    Public Property Get TableName()
        TableName = "Categories"
    End Property

    Public Property Get CategoryID()
        CategoryID = pCategoryID
    End Property

    Public Property Let CategoryID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pCategoryID = CDbl(val)
        Else
            pCategoryID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Categories.CategoryID", "Invalid value for CategoryID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Description()
        Description = pDescription
    End Property

    Public Property Let Description(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pDescription = CDbl(val)
        Else
            pDescription = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Categories.Description", "Invalid value for Description: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Name()
        Name = pName
    End Property

    Public Property Let Name(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pName = CDbl(val)
        Else
            pName = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Categories.Name", "Invalid value for Name: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Slug()
        Slug = pSlug
    End Property

    Public Property Let Slug(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pSlug = CDbl(val)
        Else
            pSlug = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Categories.Slug", "Invalid value for Slug: " & Err.Description
        End If
        On Error GoTo 0
    End Property

End Class
%>