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

<%
' Auto-generated Repository for table [Territories]
' Generated on 1/17/2026 2:53:15 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies:
'   - core/lib.DAL.asp (DAL singleton for database access)
'   - core/lib.AutoMapper.asp (Automapper for object mapping)
'   - core/lib.Collections.asp (LinkedList_Class)
'   - core/lib.helpers.asp (KVUnzip, BuildOrderBy, QI, Destroy)


Class TerritoriesRepository_Class

    Public Function FindByID(id)
        Dim sql : sql = "Select [Coordinates], [Description], [Id], [Name] FROM [Territories] WHERE [Id] = ?"
        Dim rs : Set rs = DAL.Query(sql, Array(id))
        If rs.EOF Then
            Err.Raise 1, "TerritoriesRepository_Class", RecordNotFoundException("Id", id)
        Else
            Set FindByID = Automapper.AutoMap(rs, "POBO_Territories")
        End If
        Destroy rs
    End Function

    Public Function GetAll(orderBy)
        Set GetAll = Find(Empty, orderBy)
    End Function

    Public Function Find(where_kvarray, order_string_or_array)
        Dim sql : sql = "Select [Coordinates], [Description], [Id], [Name] FROM [Territories]"
        Dim where_keys, where_values, i
        If Not IsEmpty(where_kvarray) Then
            KVUnzip where_kvarray, where_keys, where_values
            If Not IsEmpty(where_keys) Then
                sql = sql & " WHERE "
                For i = 0 To UBound(where_keys)
                    If i > 0 Then sql = sql & " AND "
                    sql = sql & " " & QI(where_keys(i)) & " = ?"
                Next
            End If
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[Id]")
        Dim rs : Set rs = DAL.Query(sql, where_values)
        Dim list : Set list = new LinkedList_Class
        Do Until rs.EOF
            list.Push Automapper.AutoMap(rs, "POBO_Territories")
            rs.MoveNext
        Loop
        Set Find = list
        Destroy rs
    End Function

    Public Function FindPaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
        Dim sql : sql = "Select [Coordinates], [Description], [Id], [Name] FROM [Territories]"
        Dim where_keys, where_values, i
        If Not IsEmpty(where_kvarray) Then
            KVUnzip where_kvarray, where_keys, where_values
            If Not IsEmpty(where_keys) Then
                sql = sql & " WHERE "
                For i = 0 To UBound(where_keys)
                    If i > 0 Then sql = sql & " AND "
                    sql = sql & " " & QI(where_keys(i)) & " = ?"
                Next
            End If
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[Id]")
        Dim rs : Set rs = DAL.PagedQuery(sql, where_values, per_page, page_num)
        If Not rs.EOF Then
            rs.PageSize     = per_page
            rs.AbsolutePage = page_num
            page_count      = rs.PageCount
            record_count    = rs.RecordCount
        End If
        Set FindPaged = PagedList(rs, per_page)
        Destroy rs
    End Function

    Public Function SearchTablePaged(columns_array, search_value, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
        Dim sql : sql = "Select [Coordinates], [Description], [Id], [Name] FROM [Territories]"
        Dim i, params()
        If IsArray(columns_array) And UBound(columns_array) >= 0 Then
            sql = sql & " WHERE "
            ReDim params(UBound(columns_array))
            For i = 0 To UBound(columns_array)
                If i > 0 Then sql = sql & " OR "
                sql = sql & " " & QI(columns_array(i)) & " LIKE ?"
                params(i) = "%" & search_value & "%"
            Next
        End If
        sql = sql & BuildOrderBy(order_string_or_array, "[Id]")
        Dim rs : Set rs = DAL.PagedQuery(sql, params, per_page, page_num)
        If Not rs.EOF Then
            rs.PageSize     = per_page
            rs.AbsolutePage = page_num
            page_count      = rs.PageCount
            record_count    = rs.RecordCount
        End If
        Set SearchTablePaged = PagedList(rs, per_page)
        Destroy rs
    End Function

    Private Function PagedList(rs, per_page)
        Dim list : Set list = new LinkedList_Class
        Dim x : x = 0
        Do While (per_page <= 0 Or x < per_page) And Not rs.EOF
            list.Push Automapper.AutoMap(rs, "POBO_Territories")
            x = x + 1
            rs.MoveNext
        Loop
        Set PagedList = list
    End Function

    Public Sub AddNew(ByRef model)
        Dim sql : sql = "INSERT INTO [Territories] ([Coordinates], [Description], [Name]) VALUES (?, ?, ?)"
        DAL.[Execute] sql, Array(model.Coordinates, model.Description, model.Name)

        ' Retrieve the newly inserted ID
        On Error Resume Next
        Dim rsId : Set rsId = DAL.Query("SELECT @@IDENTITY AS NewID", Empty)
        If Err.Number <> 0 Then
            ' Fallback for Access databases
            Err.Clear
            Set rsId = DAL.Query("SELECT TOP 1 [Id] FROM [Territories] ORDER BY [Id] DESC", Empty)
        End If
        On Error GoTo 0

        If Not rsId.EOF Then
            If Not IsNull(rsId(0)) Then model.Id = rsId(0)
        End If
        Destroy rsId
    End Sub

    Public Sub Update(model)
        Dim sql : sql = "UPDATE [Territories] SET [Coordinates] = ?, [Description] = ?, [Name] = ? WHERE [Id] = ?"
        DAL.[Execute] sql, Array(model.Coordinates, model.Description, model.Name, model.Id)
    End Sub

    Public Sub Delete(id)
        Dim sql : sql = "DELETE FROM [Territories] WHERE [Id] = ?"
        DAL.[Execute] sql, Array(id)
    End Sub

    Private Function RecordNotFoundException(ByVal field_name, ByVal field_val)
        RecordNotFoundException = "Territories record was not found with " & field_name & " = '" & field_val & "'."
    End Function

    Private Function QI(name)
        QI = "[" & Replace(CStr(name), "]", "]]") & "]"
    End Function

    Private Function BuildOrderBy(orderArg, defaultCol)
        Dim s : s = ""
        If IsEmpty(orderArg) Or IsNull(orderArg) Or orderArg = "" Then
            s = " ORDER BY " & defaultCol & " ASC"
        ElseIf IsArray(orderArg) Then
            Dim i : s = " ORDER BY "
            For i = 0 To UBound(orderArg)
                If i > 0 Then s = s & ", "
                s = s & QI(orderArg(i))
            Next
        Else
            s = " ORDER BY " & QI(orderArg)
        End If
        BuildOrderBy = s
    End Function
End Class

Dim TerritoriesRepository__Singleton
Function TerritoriesRepository()
    If IsEmpty(TerritoriesRepository__Singleton) Then
        Set TerritoriesRepository__Singleton = new TerritoriesRepository_Class
    End If
    Set TerritoriesRepository = TerritoriesRepository__Singleton
End Function
%>