l'inizio e la fine del form devi metterli fuori dal ciclo do until..

nella pagina che processa il form...

dim arrID, i

arrID = Split(Request.Form("id"), ", ", -1, 1)

For i = LBound(arrID)
'qui aggiorni i record

strSQL = "UPDATE tb SET NomeCampo = 'aa' WHERE id = " & arrID(i)

'esegui la stringa
Next