Problemas com carrinho

[Marinho 0]

Esta dando erro em inserir peso do produto no carrinho.

 

Erro de tempo de execução do Microsoft VBScript (0x800A0009)

Subscrito fora do intervalo: '[number: 5]'

/asp/loja/inc_carrinho.asp, line 67

'Define Constantes CONST cartpid = 0 CONST cartpname = 1 CONST cartpprice = 2 CONST cartpquantity = 3 CONST cartpimagem = 4CONST cartppeso = 5'Pega Carrinho IF NOT isArray(Session("cart") ) THEN DIM localcart(4,20) ELSE localcart = Session("cart") END IF 'Pega Informações productid = TRIM(Request("id_prod") ) productname = TRIM(Request("nome_prod") ) productprice = TRIM(Request("preco_prod") ) productimagem = TRIM(Request("prod_imagem"))productpeso = Trim (Request("peso"))'Adicionar ao Carrinho IF productid <> "" THEN foundit= false FOR i=o to Ubound (localcart,2) IF localcart(cartpid,i) = productid THEN localcart(cartpquantity,i) = localcart( cartpquantity, i) + 1 foundit = TRUE EXIT FOR END IF NEXT IF NOT foundit THEN FOR i=0 to UBOUND(localcart,2) IF localcart(cartpid,i) = "" THEN localcart(cartpid,i) = productid localcart(cartpname,i) = productname localcart(cartpprice,i) = productprice localcart(cartpquantity,i) = 1 localcart(cartpimagem,i) = productimagemlocalcart(cartppeso,i) = productpeso  << ------------ erro aquiEXIT FOR END IF NEXT END IF END IF 'Atualiza Carrinho IF Request("updateQ") <> "" THEN FOR i=0 to Ubound (localcart,2) newQ = TRIM(Request("pq" & localcart(cartpid,i) ) ) deleteproduct = TRIM(Request.QueryString("productid") ) IF newQ = "" or newQ = "0" or deleteproduct <> "" THEN IF deleteproduct = localcart(cartpid,i) THEN localcart(cartpid,i) = "" END IF ELSE IF isNumeric(newQ) THEN localcart (cartpquantity,i) = newQ END IF END IF NEXT END IF 'Update Sesssion Carrinho Session("cart") = localcart

E gostaria de calcular o total dos pesos também para calcular o frete.

 

Obrigado

[Marinho 0]

Nada galera, ninguém não tem nehuma opnião ?Valeu.

[Marinho 0]

Alguém pode me ajuda ??Obrigado

[shumi 0]

opa cara beleza?Qual é a linha 67?abraços

[Marinho 0]

Isso

 

O erro é aqui

 

localcart(cartppeso,i) = productpeso

[shumi 0]

Cara faz um teste só pra eu ver uma coisa...

<%'Define ConstantesCONST cartpid = 0CONST cartpname = 1CONST cartpprice = 2CONST cartpquantity = 3CONST cartpimagem = 4CONST cartppeso = 2'Pega CarrinhoIF NOT isArray(Session("cart") ) THENDIM localcart(4,20)ELSElocalcart = Session("cart")END IF'Pega Informaçõesproductid = TRIM(Request("id_prod") )productname = TRIM(Request("nome_prod") )productprice = TRIM(Request("preco_prod") )productimagem = TRIM(Request("prod_imagem"))productpeso = Trim (Request("peso"))'Adicionar ao CarrinhoIF productid <> "" THENfoundit= falseFOR i=o to Ubound (localcart,2)	IF localcart(cartpid,i) = productid THENlocalcart(cartpquantity,i) = localcart( cartpquantity, i) + 1foundit = TRUEEXIT FOR	END IFNEXTIF NOT foundit THENFOR i=0 to UBOUND(localcart,2)	IF localcart(cartpid,i) = "" THENlocalcart(cartpid,i) = productidlocalcart(cartpname,i) = productnamelocalcart(cartpprice,i) = productpricelocalcart(cartpquantity,i) = 1localcart(cartpimagem,i) = productimagemlocalcart(cartppeso,i) = productpeso ' << ------------ erro aquiEXIT FOR	END IFNEXTEND IFEND IF'Atualiza CarrinhoIF Request("updateQ") <> "" THENFOR i=0 to Ubound (localcart,2)newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )deleteproduct = TRIM(Request.QueryString("productid") )IF newQ = "" or newQ = "0" or deleteproduct <> "" THENIF deleteproduct = localcart(cartpid,i) THENlocalcart(cartpid,i) = ""END IFELSEIF isNumeric(newQ) THENlocalcart (cartpquantity,i) = newQEND IFEND IFNEXTEND IF'Update Sesssion CarrinhoSession("cart") = localcart%>

e me fala!

 

Abraços

[Marinho 0]

Agora aceitou mas ta colocando os valores tudo como R$ 1,00Ele pegou o VALOR Da CONST cartpprice.Agora esta tendo 2 CONST com o mesmo valor.

[shumi 0]

Tenta assim:

<%'Define ConstantesCONST cartpid = 0CONST cartpname = 1CONST cartpprice = 2CONST cartpquantity = 3CONST cartpimagem = 4CONST cartppeso = 5'Pega CarrinhoIF NOT isArray(Session("cart") ) THENDIM localcart(4,20)ELSElocalcart = Session("cart")END IF'Pega Informaçõesproductid = TRIM(Request("id_prod") )productname = TRIM(Request("nome_prod") )productprice = TRIM(Request("preco_prod") )productimagem = TRIM(Request("prod_imagem"))productpeso = Trim (Request("peso"))'Adicionar ao CarrinhoIF productid <> "" THENfoundit= falseFOR i=o to Ubound (localcart,2)	IF localcart(cartpid,i) = productid THENlocalcart(cartpquantity,i) = localcart( cartpquantity, i) + 1foundit = TRUEEXIT FOR	END IFNEXTIF NOT foundit THENFOR i=0 to UBOUND(localcart,5)	IF localcart(cartpid,i) = "" THENlocalcart(cartpid,i) = productidlocalcart(cartpname,i) = productnamelocalcart(cartpprice,i) = productpricelocalcart(cartpquantity,i) = 1localcart(cartpimagem,i) = productimagemlocalcart(cartppeso,i) = productpeso ' << ------------ erro aquiEXIT FOR	END IFNEXTEND IFEND IF'Atualiza CarrinhoIF Request("updateQ") <> "" THENFOR i=0 to Ubound (localcart,2)newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )deleteproduct = TRIM(Request.QueryString("productid") )IF newQ = "" or newQ = "0" or deleteproduct <> "" THENIF deleteproduct = localcart(cartpid,i) THENlocalcart(cartpid,i) = ""END IFELSEIF isNumeric(newQ) THENlocalcart (cartpquantity,i) = newQEND IFEND IFNEXTEND IF'Update Sesssion CarrinhoSession("cart") = localcart%>

ou assim:

<%'Define ConstantesCONST cartpid = 0CONST cartpname = 1CONST cartpprice = 2CONST cartpquantity = 3CONST cartpimagem = 4CONST cartppeso = 5'Pega CarrinhoIF NOT isArray(Session("cart") ) THENDIM localcart(4,20)ELSElocalcart = Session("cart")END IF'Pega Informaçõesproductid = TRIM(Request("id_prod") )productname = TRIM(Request("nome_prod") )productprice = TRIM(Request("preco_prod") )productimagem = TRIM(Request("prod_imagem"))productpeso = Trim (Request("peso"))'Adicionar ao CarrinhoIF productid <> "" THENfoundit= falseFOR i=o to Ubound (localcart,2)	IF localcart(cartpid,i) = productid THENlocalcart(cartpquantity,i) = localcart( cartpquantity, i) + 1foundit = TRUEEXIT FOR	END IFNEXTIF NOT foundit THENFOR i=0 to UBOUND(localcart,2)	IF localcart(cartpid,i) = "" THENlocalcart(cartpid,i) = productidlocalcart(cartpname,i) = productnamelocalcart(cartpprice,i) = productpricelocalcart(cartpquantity,i) = 1localcart(cartpimagem,i) = productimagemlocalcart(cartppeso,i) = productpeso ' << ------------ erro aquiEXIT FOR	END IFNEXTEND IFEND IF'Atualiza CarrinhoIF Request("updateQ") <> "" THENFOR i=0 to Ubound (localcart,2)newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )deleteproduct = TRIM(Request.QueryString("productid") )IF newQ = "" or newQ = "0" or deleteproduct <> "" THENIF deleteproduct = localcart(cartpid,i) THENlocalcart(cartpid,i) = ""END IFELSEIF isNumeric(newQ) THENlocalcart (cartpquantity,i) = newQEND IFEND IFNEXTEND IF'Update Sesssion CarrinhoSession("cart") = localcart%>

Abraços

[Marinho 0]

achei o erro !Estava aqui.--Pega CarrinhoIF NOT isArray(Session("cart") ) THENDIM localcart(4,20) << -----AquiELSElocalcart = Session("cart")END IFÉ só trocar o valor 4,20 por 5,20.Obrigado pela Ajuda.abraços...--------------------------

[shumi 0]

Parabéns cara!!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Abraços e qualquer coisa estamos ai! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif