B4J Question Try to produce a json string

    Dim map1 As Map = CreateMap("id": "#56765DFSG8219RR", _
    "type": "COLLECTION", _
    "catalog_data":    CreateMap(), _
    "item_data": CreateMap("seen_globally": True), _
    "is_deleted": False)
    
    Dim map2 As Map = CreateMap("id": "#KK165DFSG8219RR", _
    "type": "COLLECTION", _
    "catalog_data":    CreateMap(), _
    "item_data": CreateMap("seen_globally": True), _
    "is_deleted": False)
    
    Dim list1 As List
    list1.Initialize
    list1.Add(map1)
    list1.Add(map2)
    
    Dim map3 As Map = CreateMap("objects": list1)
    
    Log(map3.As(JSON).ToString)

    Dim lstObjects As List
    lstObjects.Initialize
    Dim res1 As ResultSet = SQL.ExecQuery2("SELECT id, type, is_deleted FROM tblProducts WHERE type = ?", Array As String("COLLECTION"))
    Do While res1.NextRow
        Dim id As String = res1.GetString("id")
        Dim strType As String = res1.GetString("type")
        Dim blnDeleted As Boolean
       
        If res1.GetInt("is_deleted") = 1 Then
            blnDeleted = True
        Else
            blnDeleted = False
        End If
       
        ' Get a value for a map using another query
        Dim blnSeen As Boolean
        Dim res2 As ResultSet = SQL.ExecQuery2("SELECT seen_globally FROM tblListings WHERE product_id = ?", Array As String(id))
        Do While res2.NextRow
            If res2.GetInt("seen_globally") = 1 Then
                blnSeen = True
            Else
                blnSeen = False
            End If
        Loop
        res2.Close
       
        Dim Map1 As Map = CreateMap("id": id, _
        "type": strType, _
        "catalog_data": CreateMap(), _
        "item_data": CreateMap("seen_globally": blnSeen), _
        "is_deleted": blnDeleted)
       
        lstObjects.Add(Map1)
    Loop
    res1.Close
   
    Dim MapObjects As Map = CreateMap("objects": lstObjects)
    Log(MapObjects)