Ir para conteúdo
Fórum Script Brasil
  • 0

No value given for one or more required parameters.


AAAAAOOOOO

Pergunta

Ola pessoal não estou conseguindo cadastrar meu form em uma base de dados devido a este erro que acontece na primeira string:

crosoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/agenda/cadastro.asp, line 55

If Request.Form("Cadastrar") = "Cadastrar" Then
    Nome = RemoveLixo(Request.Form("Nome"))
    empresa = RemoveLixo(Request.Form("empresa"))
    site = RemoveLixo(Request.Form("site"))
    Endereco = RemoveLixo(Request.Form("Endereco"))
    Numero = RemoveLixo(Request.Form("Numero"))
    Cidade = RemoveLixo(Request.Form("Cidade"))
    Estado = RemoveLixo(Request.Form("Estado"))
    Cep = RemoveLixo(Request.Form("Cep"))
    Fone_1 = RemoveLixo(Request.Form("fone_1"))
    Fone_2 = RemoveLixo(Request.Form("fone_2"))
    Email = RemoveLixo(Request.Form("E_mail"))    
    Email_2 = RemoveLixo(Request.Form("E_mail_2")) 
    Total = RemoveLixo(Request.Form("Total")) 
    fone_1 = RemoveLixo(Request.Form("fone_1"))
    fone_2 = RemoveLixo(Request.Form("fone_2"))
    vencimento = RemoveLixo(Request.Form("vencimento"))
    contrato = RemoveLixo(Request.Form("contrato"))     
    Atividade = RemoveLixo(Request.Form("atividade"))
    Servidor = RemoveLixo(Request.Form("servidor"))
    Login = RemoveLixo(Request.Form("login"))
    Senha = RemoveLixo(Request.Form("senha"))     
    N_contrato = RemoveLixo(Request.Form("n_contrato"))
    Obs = RemoveLixo(Request.Form("obs"))

    If Len(Email) < 3 or Len(Email) > 255 Then
        Erro = "O campo E-MAIL deve estar vazio ou foi preenchido com a quantidade incorreta de caracteres!"
    Else
        If Instr(1, Email, " ") <> 0 Then
            Erro = "O campo E-MAIL foi preenchido com espa&ccedil;os em branco!"
        Else
            If InStr(1, Email, "@", 1) < 2 Then
                Erro = "E-MAIL sem @!"
            Else
                If InStrRev(Email, ".") < InStr(1, Email, "@", 1) + 2 Then
                    Erro = "O campo E-MAIL foi preenchido incorretamente, ou com excesso de caracteres!"
                Else
                    Set rs1 = Conex.Execute("SELECT ID FROM Dados WHERE Email='"& Email &"'")
                    If NOT rs1.EOF Then
                        Erro = "<p>O E-MAIL informado j&aacute; est&aacute; em uso!</p>" & vbcrlf
                    End If
                    rs1.Close
                    Set rs1 = Nothing
                    
                    If Erro = "" Then
                        Campos = "Nome,"
                        Campos = Campos & "Empresa,"
                        Campos = Campos & "Site,"
                        Campos = Campos & "Endereco,"
                        Campos = Campos & "Numero,"
                        Campos = Campos & "Cidade,"
                        Campos = Campos & "Estado,"
                        Campos = Campos & "Cep,"
                        Campos = Campos & "Fone_1,"
                        Campos = Campos & "Fone_2,"
                        Campos = Campos & "E_mail,"
                        Campos = Campos & "E_mail_2,"
                        Campos = Campos & "Total,"
                        Campos = Campos & "Vencimento,"
                        Campos = Campos & "Contrato,"
                        Campos = Campos & "Atividade,"
                        Campos = Campos & "Servidor,"
                        Campos = Campos & "Login,"
                        Campos = Campos & "Senha,"
                        Campos = Campos & "N_contrato,"
                        Campos = Campos & "Obs"
                    
                        Valores = "'"& LMaiuscula(Nome) &"',"
                        Valores = Valores &"'"& Empresa &"',"
                        Valores = Valores &"'"& Site &"',"
                        Valores = Valores &"'"& Endereco &"',"
                        Valores = Valores &"'"& Numero &"',"
                        Valores = Valores &"'"& Cidade &"',"
                        Valores = Valores &"'"& Estado &"',"
                        Valores = Valores &"'"& Cep &"',"
                        Valores = Valores &"'"& Fone_1 &"',"
                        Valores = Valores &"'"& Fone_2 &"',"
                        Valores = Valores &"'"& E_mail &"',"
                        Valores = Valores &"'"& E_mail_2 &"',"
                        Valores = Valores & "'"& Total &"',"
                        Valores = Valores & "'"& Vencimento &"',"
                        Valores = Valores & "'"& Contrato &"',"
                        Valores = Valores & "'"& Atividade &"',"
                        Valores = Valores & "'"& Servidor &"',"
                        Valores = Valores & "'"& Login &"',"
                        Valores = Valores & "'"& Senha &"',"
                        Valores = Valores & "'"& N_contrato &"',"
                        Valores = Valores & "'"& Obs &"'"
                        
                        Conex.Execute("INSERT Dados ("& Campos &") VALUES ("& Valores &")")
                        Session("Aviso") = "<p>SEU CADASTRADO FOI EFETUADO COM SUCESSO!</p>" & vbcrlf
                    End If
                End If
            End If
        End If
    End If

End If

Grato desde já!

Editado por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...