Problema em Loop

[shumi 0]

Galera to com um probleminha em um loop.

Quando eu cadastro os produtos ele cadastra produtos duplicados, triplicados e etc...

Tipo tenho um cadastro que o user cadastra 19 produtos da empresa e 7 produtos do concorrente.

e no banco triplica os produtos tanto do concorrente quanto o nosso...

estranho né?

 

veja como está:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd IfDim Conexcao,sql,RSacao = Request.Form("acao")cliente = Request.Form("cliente")campanha = Request.Form("campanha")nosso_produto = Request.Form("nosso_produto")concorrente_produto = Request.Form("concorrente_produto")Response.Expires = 0nosso_produtoo = SPLIT(nosso_produto,",")quantidadee = SPLIT(quantidade,",")FOR I = LBOUND(nosso_produtoo) TO UBOUND(nosso_produtoo)	   sSQL = "insert into produtos(acao,campanha,cliente,nosso_produto) Values ('"& acao &"','"& campanha & "','"& cliente &"','"& nosso_produtoo(I) &"')"	Conexcao.Execute sSQL,intRetornoNextconcorrente_produtoo = SPLIT(concorrente_produto,",")For F = LBOUND(concorrente_produtoo) TO UBOUND(concorrente_produtoo)    sSQL = "insert into produtos_concorrente(acao,campanha,cliente,concorrente_produto) Values ('"& acao &"','"& campanha & "','"& cliente &"','"& concorrente_produtoo(F) &"')"	Conexcao.Execute sSQL,intRetornoNextResponse.redirect("ficha_tecnica_campanha.asp?cliente="&cliente&"&campanha="&campanha&"&acao="&acao)set RS=nothingConexcao.closeSet Conexcao=nothing%>

Acredito que seja problema no meu next, mas não sei resolver.

como que consigo solucionar isso?

Valeu Mestres!

[rafa-martin 2]

pq aqui:FOR I = LBOUND(nosso_produtoo) TO UBOUND(nosso_produtoo) sSQL = "insert into produtos(acao,campanha,cliente,nosso_produto) Values ('"& acao &"','"& campanha & "','"& cliente &"','"& nosso_produtoo(I) &"')" Conexcao.Execute sSQL,intRetornoNextconcorrente_produtoo = SPLIT(concorrente_produto,",")For F = LBOUND(concorrente_produtoo) TO UBOUND(concorrente_produtoo) sSQL = "insert into produtos_concorrente(acao,campanha,cliente,concorrente_produto) Values ('"& acao &"','"& campanha & "','"& cliente &"','"& concorrente_produtoo(F) &"')" Conexcao.Execute sSQL,intRetornoNextvocê não faz um for só?

[shumi 0]

com 1 for somente o produto do cliente fica certinho, não se duplica, mas o do concorrente só cadastra o 1º produto 19 vezes.Ps. 19 é a quantidade de produtos do cliente.