Sub MapToJSON(sm As Map, bEnclose As Boolean) As String
' convert a map to a json string
Dim iCnt As Int
Dim iTot As Int
Dim sb As StringBuilder
sb.Initialize
If bEnclose = True Then sb.Append("{")
' get size of map
iTot = sm.Size - 1
iCnt = 0
For Each mKey As String In sm.Keys
Dim mValue As String = sm.Get(mKey)
sb.Append(QUOTE).Append(mKey).Append(QUOTE).Append(":").Append(QUOTE)
sb.Append(mValue).Append(QUOTE)
If iCnt < iTot Then sb.Append(",")
iCnt = iCnt + 1
Next
If bEnclose = True Then sb.Append("}")
Return sb.ToString
End Sub