dim paymentid as int
Dim List1 As List
List1.Initialize
List1.AddAll(Array As Int(3,6,9))
For i = 0 To List1.Size - 1
Dim number As Int
number = List1.Get(i)
Dim cmd2 As DBCommand
cmd2.Initialize
cmd2.Name = "update_orders"
cmd2.Parameters = Array As Object(paymentid,number)
reqManager.ExecuteCommand(cmd2, "update_orders")
Next
Next