Ayuda con Array por favor

[joelkarr]

if Session("Pedidos")<>1 then
dim Factura()
n=0
redim Factura(n,4)
Session("Pedidos")=1 'Aqui creo la variable de Pedido
Session("Cont")=0 'Aqui creo la variable de del Contador para el array
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
Session("Factura")=Factura 'Aqui guardo la variable de Factura el array

elseif Session("Pedidos")=1 then
Factura=Session("Factura") 'Aqui la traigo otra vez de memoria
Num2=Session("Cont")
n=Num2+1
Redim preserve Factura(n,4) y aqui esta el problema el preserve
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
Response.Write(Factura(1,1))
Session("Cont")=n

end if

Ya me duele la cabeza llevo dos dias en esto y nada , le he dado la vuelta mil veces de mil maneras y ya no me acuerdo por donde empece, claro todo esto para no genrar relantamioento en la BD...