Sub btnSendBrowse_Click
Dim JSONList As List
JSONList.Initialize
'get all records and populate map ... TABLE Browse_Links (ID INTEGER PRIMARY KEY, Tag TEXT , Title TEXT, url TEXT)")
'There is 8 Records in this Table
cursor1 = SQL1.ExecQuery("SELECT * FROM Browse_Links")
Dim numRows As Int = cursor1.RowCount
Log (numRows) '### logs 8 records
'For i = 0 To numRows -1 '### FAIL mySQL db NOT updated !
'For i = 0 To 5 '## OK 6 records inserted
'For i = 1 To 6 '## OK 6 records inserted
'For i = 2 To 7 '## FAIL Nil records inserted ##
For i = 3 To 7 '## OK 5 records inserted
Dim mapData As Map
mapData.Initialize
cursor1.Position = i
mapData.put("ID", cursor1.GetInt("ID"))
mapData.put("Tag",cursor1.GetString("Tag") )
mapData.put("Title", cursor1.GetString("Title"))
mapData.put("Url",cursor1.GetString("url"))
JSONList.add(mapData)
'### all records listed correctly
lvwData.AddSingleLine(cursor1.GetInt("ID") & " " & cursor1.GetString("Tag") & " " & cursor1.GetString("Title") & " " & cursor1.GetString("url"))
Next
cursor1.Close
Dim JSONGen1 As JSONGenerator
JSONGen1.Initialize2(JSONList)
Dim JSONstring As String
JSONstring = JSONGen1.ToString
Log (JSONstring) '### log confirms all 8 records included
Dim InsertJob As HttpJob
InsertJob.Initialize("InsertBrowse", Me)
InsertJob.download2("http://myhost.net/scripts/recipes/insert_script.php", Array As String ("Action", "InsertBrowse", "MyJSON", JSONstring))
End Sub