If HttpUtils.IsSuccess(url) Then
Dim Parser As JSONParser
Parser.Initialize(HttpUtils.GetString(url))
Dim m , n As Map
m = Parser.NextObject
The fist time a call the Lattitude I don't past any data this populates "m" it also sets "FirstTimeComplete" from then on I'm passing the data back....
Sub RequestContactsList
ProgressDialogShow("Sending contacts list request...")
Dim strTemp , tempst As String
If FirstTimeComplete Then
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(m)
strTemp = JSONGenerator.ToPrettyString(2)
HttpUtils.PostString("ContactList", LocationLink & "?access_token=" & AccessToken, strTemp)
Else
HttpUtils.Download("ContactList", LocationLink & "?access_token=" & AccessToken)
FirstTimeComplete = True
End If
End Sub