(Resolvido) Insert Mutiplicado

[AAAAAOOOOO]

Bom dia a todos, seguinteee..

Estou com um probleminha quando eu vou inserir um registro ele inseri beleza

Mas só que ele duplica o registro, ou seja eu cadastro um email ele cadastra dois idênticos. :wacko:

Segue abaixo o codigo:

If left(Request.Form("email"),1)="a" or left(Request.Form("email"),1)="b" or left(Request.Form("email"),1)="c" or left(Request.Form("email"),1)="d" or left(Request.Form("email"),1)="e" or left(Request.Form("email"),1)="f" then 
        pasta="1"
    elseif left(Request.Form("email"),1)="g" or left(Request.Form("email"),1)="h" or left(Request.Form("email"),1)="i" or left(Request.Form("email"),1)="j" or left(Request.Form("email"),1)="k" or left(Request.Form("email"),1)="l" or left(Request.Form("email"),1)="m" or left(Request.Form("email"),1)="n" or left(Request.Form("email"),1)="o" or left(Request.Form("email"),1)="p" then
        pasta="2"
    elseif left(Request.Form("email"),1)="q" or left(Request.Form("email"),1)="r" or left(Request.Form("email"),1)="s" or left(Request.Form("email"),1)="t" or left(Request.Form("email"),1)="u" or left(Request.Form("email"),1)="v" or left(Request.Form("email"),1)="w" or left(Request.Form("email"),1)="x" or left(Request.Form("email"),1)="y" or left(Request.Form("email"),1)="z" then
        pasta="3"
    end if
    
    If Request.Form("nascimento")="1" Then
        pastanasc="janeiro"
    Elseif Request.Form("nascimento")="2" Then
        pastanasc="fevereiro"    
    Elseif Request.Form("nascimento")="3" Then
        pastanasc="marco"
    Elseif Request.Form("nascimento")="4" Then
        pastanasc="abril"
    Elseif Request.Form("nascimento")="5" Then
        pastanasc="maio"
    Elseif Request.Form("nascimento")="6" Then
        pastanasc="junho"
    Elseif Request.Form("nascimento")="7" Then
        pastanasc="julho"        
    Elseif Request.Form("nascimento")="8" Then
        pastanasc="agosto"
    Elseif Request.Form("nascimento")="9" Then
        pastanasc="setembro"
    Elseif Request.Form("nascimento")="10" Then
        pastanasc="outubro"
    Elseif Request.Form("nascimento")="11" Then
        pastanasc="novembro"
    Elseif Request.Form("nascimento")="12" Then
        pastanasc="dezembro"
    Else
        pasta="1"
    End if

    MM_editQuery = "Insert Into "& MM_editTable &" (pasta,pastanasc," & MM_tableValues & ") values ("&pasta&",'"& pastanasc &"'," & MM_dbValues & ")"

'    Response.Write MM_editQuery
'    Response.End

    If verifica.EOF then Executar = "Sim"
        verifica.close
        Set verifica = Nothing
        
      If (Not MM_abortEdit) Then
        ' execute the insert
    
        Set MM_editCmd = Server.CreateObject("ADODB.Command")
    
        MM_editCmd.ActiveConnection = MM_editConnection
        MM_editCmd.CommandText = MM_editQuery
    
        If Executar = "Sim" Then
            Set Conex = Server.CreateObject("ADODB.Connection")
            Conex.Open MM_editConnection
            Conex.Execute(MM_editQuery)
            Conex.Close
            Set Conex = Nothing
            
            MM_editCmd.Execute
        Else
            Response.Redirect("usuarios_cad_erro.asp")
        End if
        MM_editCmd.ActiveConnection.Close
    
        If (MM_editRedirectUrl <> "") Then
          Response.Redirect(MM_editRedirectUrl)
        End If
      End If

Desde já agradeço.. :rolleyes:

[kuroi]

olha q você ta chamando o executa duas vezes.

aqui: Conex.Execute(MM_editQuery)

e aqui: MM_editCmd.Execute

chame somente uma vez.

[AAAAAOOOOO]

putz como era simples..

valeeu man. Me ajudou bem!!