Actualizar varios registros con id distintos a la vez en base de datos

[iuliano]

No me funciona, lo que he hecho es cambiar los nombres de los request y poner el for así:
<%
'Recogemos los valores del formulario


numero=Request.Form("numerotelefono")
model= Request.Form("modelo")
IME= Request.Form("IMEI")
tarjetasim= Request.Form("numerotarjetasim")
Comp= Request.Form("compania")
codpuk= Request.Form("PUK")
Depart= Request.Form("Departamento")
Deleg= Request.Form("Delegacion")
codpin= Request.Form("PIN")
Obser= Request.Form("Observaciones")
Nom= Request.Form("nombre")
baj= Request.Form("baja")
Stoc= Request.Form("Stock")
Fechacomp= Request.Form("Fechacompra")
Fechabaj= Request.Form("Fechabaja")
perman= Request.Form("permanencia")
tipocontr= Request.Form("tipocontrato")
tecnolog= Request.Form("tecnologia")


'Instanciamos y abrimos nuestro objeto conexion
SET oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={MySQL ODBC 3.51 Driver};Server:localhost;Port=3306;Database=docume ntacion;Uid=root;Pwd="
SET rs = Server.CreateObject("ADODB.Recordset")

'Ahora creamos la sentencia SQL
for each control in request.form
for indice=1 to request.form(control).count
vecnumero=SPLIT(request.form(control)(indice), ",")
For i=0 to Ubound(vecnumero)
sSQL="Update telefonia set numerotelefono='" &numero& "' where(numerotelefono ='" & vecNumero(i) & "')"
sSQL="Update telefonia set modelo='" &model& "' where(numerotelefono ='" & vecNumero(i) & "')"

Next
next
next



set rs = oConn.Execute(sSQL)


%>