Public Sub InsertLoggedData As ResumableSub
Dim lstCommands As List
lstCommands.Initialize
Dim comInsert As String = "insert_loggeddata"
Dim cmdInsert As DBCommand = CreateCommand(comInsert, Array(1, 1, DateTime.now, 10, 1))
lstCommands.Add(cmdInsert)
Dim j As HttpJob = CreateRequest.ExecuteBatch(lstCommands, Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("InsertInto LoggedData successful")
Else
Log("InsertInto LoggedData failed: " & LastException)
End If
j.Release
Return j.Success