Dim oKeyValueList As List
oKeyValueList.Initialize
... (loop)
oKeyValueList.Add(CreateMap("key":sTestId,"keyvalue":sTestValue)) '100 of these tests
...
Dim sJSONString As String
Dim oJSONGenerator As JSONGenerator
oJSONGenerator.Initialize2(oKeyValueList)
sJSONString=oJSONGenerator.ToString
Msgbox(sJSONString,"json")
Dim jobTestIdValues As HttpJob
jobTestIdValues.Initialize("JobSaveTestIdValues",Me)
jobTestIdValues.Download2("http://www.abc.com/Save", ArrayAsString("sJSON",sJSONString))