Somando valores de um Array

[rmmtins]

Tenho um formulario com 3 linhas cada uma com 2 campos, são eles Produto e Quantidade.

O campo produto e uma select com varios itens.

Minha questão é a seguinte quando o usuario escolher o mesmo produto em mais de uma linha, as quantidades tem que se somar.

Aqui é onde eu pego as variaveis do formulario e faço a gravação no banco.

<%

'Busca as variáveis

Qtd_Produto = split(request.Form("Qtd_Produto"),",")

Cod_Produto = split(request.Form("Cod_produto"),",")

St_Pedido = 1

Conta = ubound(Qtd_Produto)

'verifica se pelo menos uma linha tem registro a ser inserido

For f = 0 to conta

If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then

If cdbl(Qtd_Produto(f)) > 0 then

InsereRegistro = "sim"

End if

End if

Next

If InsereRegistro = "sim" then ' So executa se tiver um registro a ser inserido

'Insere o registro de pedidos na tabela de pedidos

SQLQuery = "INSERT into dbo.Tb_Out_Pedidos(Cod_Usuario, St_Pedido) values ("&session("cod_usuario")&", "&St_Pedido&")"

Conn_Out.Execute(SQLQuery)

'Busca codigo do pedido inserido

SQLQuery = "SELECT top 1 Cod_Pedido from dbo.Tb_Out_Pedidos order by Cod_Pedido desc"

Set rs_buscacodigo = Conn_Out.Execute(SQLQuery)

Cod_Pedido = rs_buscacodigo.fields("Cod_Pedido")

'Insere os produtos

For f = 0 to conta

If trim(Cod_Produto(f)) <>"" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<>"" and not isnull(Qtd_Produto(f)) then

If cdbl(Qtd_Produto(f)) > 0 then

SQLQuery = "Insert into Tb_Out_Pedidos_Detalhes(Cod_Pedido,Cod_Produto,Qtd_Produto) values ("&Cod_Pedido&","&Cod_Produto(f)&","&Qtd_Produto(f)&")"

Conn_Out.Execute(SQLQuery)

End if

End if

Next

'Insere na tabela o registro da criação do pedido

Desc_Andamento = "Pedido Criado"

Cod_Usuario = session("Cod_Usuario")

SQLQuery = "INSERT into Tb_Out_Pedido_Andamento(Cod_Usuario, Cod_Pedido, Desc_Andamento) values ("&Cod_Usuario&","&Cod_Pedido&",'"&Desc_Andamento&"')"

Conn_Out.Execute(SQLQuery)

%>

Quem puder me ajudar desde já agradeço