Tipos incompatíveis: 'codigo'

[xatria 0]

ae onde esta o erro??

 

Tipo de erro:

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

Tipos incompatíveis: 'codigo'

/pedido.asp, line 289

 

a linha 289 é a

ASP [/tr][tr]codigo(i) = request.Form("txt_codigo"&i&"")[/tr]

 

HELP-me please now

 

ASP [/tr][tr]for i = 0 to conta

codigo = 0

codigo(i) = request.Form("txt_codigo"&i&"")

quantidade(i) = request.Form("txt_quantidade"&i&"")

preco(i) = request.Form("txt_preco"&i&"")

desconto(i) = request.Form("txt_desconto"&i&"")

conta2 = 0

dados = split (codigo(i), ",")

For o = LBound(dados) To UBound(dados)

conta2 = conta2 + 1

if conta2 = 3 then

codigo_produto(i) = dados(o)

conta2 = 0

else

descarta = dados(o)

end if

next

[/tr]

:wacko: :huh: :(

[xatria 0]

ninguem sabe?

[arr 0]

você declarou o array do codigo?Dim codigo(50)

[xatria 0]

KD o povo ke intende de asp ai ??? ninguem sabe resolver é?

[Penna 0]

ASP [/tr][tr]for i = 0 to conta

codigo = 0

codigo(i) = request.Form("txt_codigo") & i

quantidade(i) = request.Form("txt_quantidade") & i

preco(i) = request.Form("txt_preco") & i

desconto(i) = request.Form("txt_desconto") & i

conta2 = 0

dados = split (codigo(i), ",")

For o = LBound(dados) To UBound(dados)

conta2 = conta2 + 1

if conta2 = 3 then

codigo_produto(i) = dados(o)

conta2 = 0

else

descarta = dados(o)

end if

next

[/tr]

[Salgado 4]

KD o povo ke intende de asp ai ??? ninguem sabe resolver é?

Calma ai, ninguém é OBRIGADO a saber, e muito menos a responder!

 

Verifique seu código, porque você está fazendo esse laço FOR e atribuindo o Valor "0" a variável "codigo" em cada passo? E outra você tem uma Var "codigo' e um Array "codigo" para que?, sem contar que isso dá o erro.