Erro Cadastro de Produtos

[Roronoa Manolo]

Eaee pessoal, blzz ??

Eu sou novo no forum e nessa Área também, vim aqui porque estou com problemas na minha Loja Virtual =/

Estou utilizando SQL para ASP (Se não me engano é esse o nome), estou utilizando o ACCESS 2003.

É o seguinte que está ocorrendo:

Eu estava utilizando um BD para Testes, após os testes eu troquei pelo real, porém esta dando erros de duplicação.

Os dois Banco de dados estão exatamente iguais e os códigos que funcionavam na versão antiga também estão.

"Script error detected at line 163.

Source line: cmdSQL.Execute()

Description: As alteraçoes solicitadas para a tabela não foram satisfatórias já que criariam valores duplicados no indice, chave primaria ou relação. Altere os dados no campo ou campos que contém os dados duplicados, remova o indice ou redefina o indice para possibilitar entradas duplicadas e tente novamente."

<%

response.Buffer = true

Dim rsCodigos

Dim rsCodigos_cmd

Dim rsCodigos_numRows

Set rsCodigos_cmd = Server.CreateObject ("ADODB.Command")

rsCodigos_cmd.ActiveConnection = MM_bdSisLoja_STRING

rsCodigos_cmd.CommandText = "SELECT * FROM tabCodigos"

rsCodigos_cmd.Prepared = true

Set rsCodigos = rsCodigos_cmd.Execute

rsCodigos_numRows = 0

'2º passo: ajustar o código do produto para cadastrar um novo produto

dim codigo_pro

codigo_pro = rsCodigos.Fields.Item("codigo_pro").Value + 1

rsCodigos.Close()

Set rsCodigos = Nothing

'Preparar o campo de preço

Dim preco_unitario

preco_unitario = request("edtPreco")

preco_unitario = Replace(preco_unitario,".","")

preco_unitario = Replace(preco_unitario,",",".")

'Preparar o campo de resumo

Dim conteudo

Dim conteudo_anterior

conteudo_anterior = Replace(Request.Form("txtContent"),"'","''")

conteudo = ConvertStrHTML(conteudo_anterior)

'3º passo: comando sql de inclusão de um novo produto

Set cmdSQL = Server.CreateObject ("ADODB.Command")

cmdSQL.ActiveConnection = MM_bdSisLoja_STRING

cmdSQL.CommandText = "INSERT INTO tabProdutos " &_

"(codigo_pro, codigo_cat, codigo_mar, descricao_pro, " &_

" preco_pro, resumo_pro, qtde_estoque_pro, " &_

" ativo_pro, principal_pro, img_gde_pro, img_peq_pro)" &_

" VALUES ( " &_

codigo_pro & ", " &_

request("cmbCategoria") & ", " &_

request("cmbMarca") & ", " &_

chr(34) & request("edtDescricao") & chr(34) & ", " &_

preco_unitario & ", " &_

chr(39) & conteudo & chr(39) & ", " &_

request("edtQtdeEstoque") & ", " &_

chr(34) & request("rdgAtivo") & chr(34) & ", " &_

chr(34) & request("rdgPrincipal") & chr(34) & ", " &_

chr(34) & "foto_produto_molde.jpg" & chr(34) & ", " &_

chr(34) & "foto_produto_molde.jpg" & chr(34) &_

")"

cmdSQL.CommandType = 1

cmdSQL.CommandTimeout = 0

cmdSQL.Prepared = true

cmdSQL.Execute()

'4º passo: gravar o novo código do último produto cadastrado

Set cmdSQL = Server.CreateObject ("ADODB.Command")

cmdSQL.ActiveConnection = MM_bdSisLoja_STRING

cmdSQL.CommandText = "UPDATE tabCodigos SET " &_

" codigo_pro = " & codigo_pro

cmdSQL.CommandType = 1

cmdSQL.CommandTimeout = 0

cmdSQL.Prepared = true

cmdSQL.Execute()

response.redirect("cadProdutos_sql.asp?codigo_pro=" & codigo_pro)

%>

Utilizo o Dreamweaver CS4, Win Seven

Por favor me ajudem =S

[bareta]

pelo que entendi o 4° passo não deveria ser um insert ao invez de update ?

da forma atual ele modifica todos os registros nesta tabela para o codigo_pro.

update tabela set campo=valor where campo=valor

[code]