Registros Duplicados

[DackAle]

E ae galerinha =)

Blzzz ?

Seguinte, to pegando alguns dados e mandando pro banco de dados, isso faz sem problemas, só que todos os registros vão duplicados pro banco de dados ahahhaha

alguém sabe porque ? Acho que to esquecendo de fechar algo, o mais logico..rs

<!--#include file="includes/config.asp"-->
<%
data = date
usuario=trim(request.form("usuario"))
nome=trim(request.form("nome"))
sobrenome=trim(request.form("sobrenome"))
email=trim(request.form("email"))
r_email=trim(request.form("r_email"))
nivel=trim(request.form("nivel"))
ip=Request.ServerVariables("REMOTE_ADDR")
senha2=senha(10)

if instr(email,"@") = 0 then
response.Redirect("admin_erro.asp?erro=2")
end if

if instr(r_email,"@") = 0 then
response.Redirect("admin_erro.asp?erro=2")
end if

if email <> r_email then
response.redirect("admin_erro.asp?erro=6")
end if

SQL="SELECT * FROM admin WHERE email='" & email & "' OR usuario='" & usuario & "'"
RS.open SQL,Conexao
Set RS = Conexao.execute(SQL)

If NOT RS.EOF Then
response.redirect("admin_erro.asp?erro=1")
end if
RS.Close

Function Senha(valores)

Dim chr_Array(35)

chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
do while len(chave) < 10
num = chr_array(Int(35 * Rnd )) 
chave = chave + num 
loop 
Senha = chave
End Function

SQL="INSERT INTO admin " &_
"(usuario,senha,nome,sobrenome,email,nivel,ip,data)" &_
"VALUES ('" &_
usuario & "','" &_
senha2 & "','" &_
nome  & "','" &_
sobrenome & "','" &_
email & "','" &_
nivel & "','" &_
ip & "','" &_
data & "')"
RS.Open SQL,Conexao
Conexao.Execute(SQL)

Set ObjMail = Server.CreateObject("CDONTS.NewMail")

ObjMail.To = "alexandre@b2w.com.br"
ObjMail.From = email
ObjMail.Subject = nome & " sua senha Daryus"

     objMail.Bodyformat = 0

     objMail.MailFormat = 0

     objMail.Body = nome & " sua senha Daryus é " & senha2
ObjMail.Send
Set ObjMail = Nothing
Set RS = Nothing
%>

Qualquer ajuda é bem vinda galera =)

Abraçosss

[cyberalexxx]

Olha o problema aqui:

RS.Open SQL,Conexao

Conexao.Execute(SQL)

A instrução SQL esta sendo executada duas vezes, tire uma

[DackAle]

Valeuuuu =)

Era isso mesmo, falta de atenção.. rsss

Abraçosss

[cyberalexxx]

beleza!! acontece!!