Hola…estoy adaptando algo que encontré por internet, un carrito de la compra. He llegado a los array y la verdad es que no los entiendo bien. Espero que me ayudéis… Mi pregunta.
La ayuda dice que “el carro consta de 25 parejas de valores de 0 a 24”
If IsArray(Session("nombresesion")) = false Then
Dim nombresesion(24,1)
nombresesion(0,0)=código
nombresesion(0,1)=cantidad
………..
Me he guiado por la supuesta lógica y para introducir un dato más en el array hice esto: seguro que es una burrada…
If IsArray(Session("nombresesion")) = false Then
Dim nombresesion(24,1,1)
nombresesion(0,0,0)=código
nombresesion(0,1,0)=cantidad
nombresesion(0,0,1)=color
siguiendo con la página llego a este paso, los 0 en negrita los añadí, y me dio un error de intervalo.
'si esta en el carro cambiamos la cantidad si es valida
for i=0 to ubound(nombresesion)
if nombresesion (i,0,0)=codigo then………………………….en esta línea da error de intervalo.
nombresesion (i,1,0)=cantidad
nombresesion (i,0,1)=color
enelcarro=true
end if
next
'si no esta en el carro busca la primera posición libre y lo añade
if not enelcarro then
for i=0 to ubound(nombresesion)
if nombresesion (i,0,0)="" and nombresesion (i,1,0)="" and nombresesion (i,0,1)="" and not(enelcarro) then
nombresesion (i,0,0)=codigo
if cantidad>0 then
resto =cantidad mod pack
if resto = 0 then
nombresesion (i,1,0)=cantidad
else
cantidad=pack
end if
nombresesion (i,0,1)=color
cantidad=pack
garetex(i,1,0)=cantidad
end if
enelcarro=true
end if
next
end if
session("nombresesion ")=nombresesion
if enelcarro then
response.redirect "vercarro.asp"
else%>
…………………………..error si no se cumple
