visto

ID = Split(Replace(Request.form("ID"), "'", "''"),",")


non va bene

usa

ListaID = Replace(Request.form("ID"), "'", "''")

e fai una delete ... IN (" & ListaID & ")"...