Problema com insert no Access

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

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?