Sub InsertRecords (Names() As String)
Dim cmdList as List
cmdList.Initialize
For Each Name as String in Names
Dim cmd as DBCommand = CreateCommand("insert_animal", Array(Name, Null))
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!")
End If
j.Release
End Sub