asp-classic-unified-framework/app/models/POBO_Territories.asp

<%
' Auto-generated POBO for table [Territories]
' Generated on 1/17/2026 2:53:15 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_Territories
    ' Public array of all property names
    Public Properties

    Private pCoordinates
    Private pDescription
    Private pId
    Private pName

    Private Sub Class_Initialize()
        pCoordinates = Null
        pDescription = Null
        pId = 0
        pName = Null
        Properties = Array("Coordinates","Description","Id","Name")
    End Sub

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

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

    Public Property Get Coordinates()
        Coordinates = pCoordinates
    End Property

    Public Property Let Coordinates(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pCoordinates = CDbl(val)
        Else
            pCoordinates = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Territories.Coordinates", "Invalid value for Coordinates: " & 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_Territories.Description", "Invalid value for Description: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Id()
        Id = pId
    End Property

    Public Property Let Id(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pId = CDbl(val)
        Else
            pId = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_Territories.Id", "Invalid value for Id: " & 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_Territories.Name", "Invalid value for Name: " & Err.Description
        End If
        On Error GoTo 0
    End Property

End Class
%>