Sub PerformUpload ()
'Used from the dbutils tutorial modifications may be required
Dim j As JSONGenerator
j.Initialize(DBUtils.ExecuteJSON(SQLObj, "SELECT name FROM people", Null, _
0, Array As String(DBUtils.DB_TEXT, DBUtils.DB_TEXT, DBUtils.DB_INTEGER)))
Dim jString As String
jString = j.ToPrettyString(4)
Log(jString)
'Send a POST request - this is where I'm struggling
Dim job As HttpJob
job.Initialize("SendAssets", Me)
'if your web service requires a parameter then include it
'job.PostString("...", "People=" & jString)
job.PostString("http://myserver/servicething/api/People", jString)
'include the contentType
job.SetContentType("application/json")
ToastMessageShow("Sending...", True)
End Sub