donde guardar los pedidos en un carrito de compra

[fjci]

Hola de nuevo Al Zuwaga.
He intentado con el objeto session y de momento me sale (me guarda el array de dos dimensiones). Pero tengo un problema, además bastante grande.

Introduzco una linea en el array, es decir, introduzco un pedido y lo hace bien. Incluso si vuelvo a hacer otro pedido del mismo producto, me suma las cantidades.

El problema es que no me deja ampliar el array con otra linea, es decir, cuando quiero introducir los datos de otro producto hago esto:
k=ubound(pedido,1)+1
redim preserve pedido(k,4)
pedido(k,0)=Request.Form("cod_mar")'-->guarda el código de la marca
pedido(k,1)=Request.Form("cod_mod")'-->guarda el código del modelo
pedido(k,2)=Request.Form("cod_col")'-->guarda el código del color
pedido(k,3)=cont'-->guarda el nº
pedido(k,4)=cint(Request.Form(nombre))'-->guarda cantidad producto

donde pedido es el array.

Cuando hago esto, el navegador me responde con esto otro:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo

indicando la línea donde pone
redim preserve pedido(k,4)

Entiendo que si quiero introducir un nuevo pedido tengo que redimensionar el array, y para ello con redim preserve, puesto que quiero guardar los datos anteriores.
Para ello guardo en una variable el valor alto del array y le sumo 1, para añadir una nuevo línea. Luego redimensiono el array.

No sé donde está el error y llevo por lo menos tres dias con esto.

Agradecería enormemente una ayuda.
Gracias por todo y un saludo a los miembros del foro.