Dim hoofd As Map = parser.NextObject
Dim items As List = hoofd.Get("categories")
For i = 0 To items.Size-1
Dim rec As Map = items.Get(i)
If i = 0 Then
sb.Append("<tr>").Append(CRLF)
For Each key As String In rec.Keys
Log("key = " & key)
sb.Append("<th>").Append(key).Append("</th>")
Next
sb.Append("</tr>").Append(CRLF)
End If