For Each Item in Request.form("delete")
Item = Cint(Item)
--Move to first record
If Not RecordSet.BOF Then
RecordSet.MoveFirst
--Find the record we want to delete
Do Until RecordSet.Fields("ID") = Item
RecordSet.MoveNext
Loop
RecordSet.Delete
RecordSet.Requery
end if
Next
RecordSet.Close
Set RecordSet = Nothing
Set cmdDC = Nothing
conContact.Close
Set conContact = Nothing