Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
If IsConnected = False Then
ToastMessageShow(" No Internet Connection",False)
Return
Else
ToastMessageShow(" Connecting - Sending Data",False)
End If
Dim j As HttpJob
Dim ms As OutputStream
Dim out2 As OutputStream = StartJob(j,ms, Tag)
WriteInt( ListOfCommands.Size, out2)
For Each Command As DBCommand In ListOfCommands
WriteObject( Command.Name, out2)
WriteList(Command.Parameters, out2)
Next
out2.Close
j.PostBytes(link & "?method=batch", ms.ToBytesArray)
End Sub