Problema com insert no Access

[G23 0]

Bom dia

 

Estou com um problema. Tenho uma página ASP e o insert está duplicando os dados no BD Access.

 

sSQL = "INSERT INTO tb_noticia (noticia, Postado_por, Data, Hora, status)" & " VALUES('" &  R6 & "','" &  R2 & "','" &  R5 & "','" &  R30 & "','Ativo')"

SQL = sSQL


'executa consulta no banco de dados conectado
Set rstCliente = Server.CreateObject("ADODB.Recordset")
rstCliente.Open SQL, conexao_pmr

[xanburzum 169]

antes de inserir faça um SELECT no banco para ver se já existe, olha este exemplo

 

    <% ‘incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao

   ‘no BD através de SQL Select if not rs.eof then

   ‘redireciono para incluir_form.asp?msgeof=1 else

   ‘incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1

   ‘e lá receberá um mensagem de sucesso

   Option explicit

   ‘declaro as var

   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert

   ‘recupero todos os dados

   varlogin=trim(request.form(“login”))

   varsenha=trim(request.form(“senha”))

   varemail=trim(request.form(“email”))

   ‘crio a conexao

   %>

   <!–#include file=”conn/conexao1.asp”–>

   <% ‘abrir a conexao

   call abreconexao

   ‘crio o rsselect para verificar se os dados jah estaun cadastrados

   set rsselect=server.createobject(“ADODB.Recordset”)

   ‘crio o SQLselect

   SQLselect=”SELECT login FROM login WHERE login=’”&varlogin&”‘”

   rsselect.open SQLselect,conexao,1,3

   if not rsselect.eof then

   response.redirect(“incluir_form_treina.asp?msgeof=1″)

   set rsselect=nothing

   else

   ‘crio o rsinsert para inseiri os dados no bd

   set rsinsert=server.createobject(“ADODB.Recordset”)

   ‘crio o SQLinsert pra incluir no bd

   SQLinsert=”INSERT INTO login(login,senha,email) values(‘”&varlogin&”‘,’”&varsenha&”‘,’”&varemail&”‘)”

   rsinsert.open SQLinsert,conexao,1,3

   response.redirect(“administracao_treina.asp?msg=1″)

   set rsinsert=nothing

   end if

   call fechaconexao %>

 

para acessar o artigo completo clique aqui

[G23 0]

xanburzum

 

Obrigado pelo retorno.

 

Eu já tenho uma página que faz algo parecido com esse exemplo que você cedeu. Mas no código que eu postei tem algum erro?

A página que estou construindo se destina a receber Posts de usuátios para alimentar um Marquee de novidades.

 

O que leva à duplicação do registro no bd?