Ayuda con Array por favor

[joelkarr]

Bueno, dentro de esto no engo problemas en redimensionar u montar el ultimo registro, pero claro pierdo los anteriores , ahora cuando uso el preserve me da este "error:No coinciden los tipos"

y de verdad he hecho todo lo posible y no le veo la vuelta, alguien que quizas lo pueda ver , me podria indicar por favor



if Session("Pedidos")<>1 then
Response.Write("Solo pedidos <> 1")
dim Factura()
n=0
redim Factura(n,4)
Session("Pedidos")=1
Session("Cont")=0
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
end if
if Session("Pedidos")=1 then
Factura=Session("Factura")

Num2=Session("Cont")
n=Num2+1
Response.Write(n)
Redim Factura(n,4)
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
Response.Write(ubound(Factura))


end if