Nevermind, I managed to do it:
Dim objRSPosudbe, niz, i
niz = Split(Request.Form("Vrati"), ",")
Set objRSPosudbe = Server.CreateObject("ADODB.Recordset")
objRSPosudbe.Open "Posudbe", objConn, , adLockOptimistic, adCmdTable
For i = LBound(niz) to UBound(niz)
Do While Not objRSPosudbe.EOF
If Trim(niz(i)) = Cstr(objRSPosudbe.Fields("ID").Value) Then
objRSPosudbe.Delete
objRSPosudbe.MoveFirst
Exit Do
Else
objRSPosudbe.MoveNext
End If
Loop
Next
objRSPosudbe.Close
Set objRSPosudbe = Nothing
objConn.Close
Set objConn = Nothing