Ayuda con valores

[sqa212]

Estoy intentando implementar un control de stock en un carro de la compra.

contenidocompra(i,0)=Articulo elegido
contenidocompra(i,1)=Cantidad elegida

Este es el codigo:
'Almacenar los items
for i=lbound(contenidocompra) to ubound(contenidocompra)
if contenidocompra(i,0)<>"" and contenidocompra(i,1)<>"" then
'Mirar precio por unidad
set rsprecio=db.execute("select precio,nombreproducto from productos where idproducto=" & contenidocompra(i,0))
if rsprecio.eof then
response.redirect("error.asp?mensage=" & Server.URLEncode("Error en el proceso."))
end if
precioactual=rsprecio("precio")
sql= "insert into productospedidos (idpedido,idproducto, cantidad,preciounitario) values (" & idpedido & "," & contenidocompra(i,0) & "," & contenidocompra(i,1) & "," & precioactual & ")"
set rsproctospedidos=db.execute(sql)
'a partir de aqui para hacer el inventario
sqlUPDATE = "UPDATE productos SET ventas = ventas + contenidocompra(i,1) WHERE Idproducto=" & contenidocompra(i,0)
'Solucion U goldman para imprimir la sql
response.write(sqlUPDATE)
Response.end
'Fin solucion U goldman
' db.Execute(sqlUPDATE)
'Fin a partir de aqui para hacer el inventario
end if

Si por ejemplo he decicdido comprar el producto 11 esto es lo que obtengo:
UPDATE productos SET ventas = ventas + contenidocompra(i,1) WHERE Idproducto=11

¿Por que obtengo el valor de contenidocompra(i,0) y no puedo obtener el valor de contenidocompra(i,1)?
Si en vez de imprimir la sql la ejecuto obtengo este error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] La función 'contenidocompra' no está definida en la expresión.
/web/procesar.asp, line 134