no me funciono
este es mi codigo miren lo que trato de hacer es que me actualice varios registros a la vez
boton = Request.form("b1")
boton = boton & Request.form("b2")
'boton = boton & Request.form("b3")
cod_curso = Request.form("cod_curso")
Select Case (boton)
Case "Borrar":
txtSql="Delete * From Ventas Where Id In("&Request.Form("Id")&")"
Set Rs=Con.Execute(txtSql)
Mensaje = "Se borraron los registros"
Case "Actualizar":
txtSql="Update tpm_nivelesmatriz Set cod_curso = "&cod_curso&" Where Id In("&Request.Form("Id")&")"
set Rs=oConn.Execute(txtSQL)
Mensaje = "Se marcaron los registros como nuevos"
End Select