Sub InsertRecords (Names() As String)
Dim cmdList As List
cmdList.Initialize
For Each Name As String In Names
Dim cmd As DBCommand = CreateCommand("insert_meter_readings", Array(Name))
cmdList.Add(cmd)
Next
Dim j As HttpJob = CreateRequest.ExecuteBatch(cmdList, Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("Inserted successfully!")
Else
Log("Failed to Insert records!")
End If
j.Release
End Sub