11 replies to this topic

[Célio-Ctba]

O email com a chave ele está mandando normal, mas antes de fazer a validação, preciso acertar o cadastro pois não está inserindo as informações no banco, aqui vai a parte do cód com relação ao banco:

<%
'verifica SE nenhum campo ficou vazio e se o botao submit foi clicado
'caso tenha campos em branco e o submit nao for clicado da msg em branco

If (Request.Form("nome") = "" OR Request.Form("email") = "" OR Request.Form("Cadastra") = "") Then

msg = ""

    'caso o botao tenha sido clicado e um dos campos estiverem em branco da msg de erro
    
    If (Request.Form("Cadastra") = "Enviar") Then
    msg = "Os dados não foram informados corretamente"
    End If


'SENAO executa o código abaixo cadastra no bd e da msg de sucesso

Else

Caminho = "Provider=Microsoft.Jet.OLEDB.4.0; "&_
"Data Source=d:\espirro.com\dados\banco.mdb;"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Caminho

Set registros = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM email"
registros.Open (SQL), Conexao, 1, 3

   'If (SQL = request.form("email"))  Then GOSTARIA DE FAZER ESTA VERIFICAÇÃO MAS Ñ SEI SE É AQUI
   'msg = "Este email já foi cadastrado!!!"
   
   
registros.AddNew
registros("nome") = Request.Form("nome")  'pega o campo nome do formulário
registros("email") = Request.Form("email") 'pega o campo nome do formulário
registros("status") = false   'seta o campo status como falso no banco de dados 
registros("verificacao") = strsenha  'pega o resultado de uma função de geração de chaves TAMBÉM ESTA DANDO ERRO - Item cannot be found in the collection corresponding to the requested name or ordinal
'registros(date())Aqui gostaria de pegar a data do cadastro 
  'registros(time())Aqui gostaria de pegar a hora do cadastro
registros.Update

registros.Close
Conexao.Close

msg = "Obrigado por se cadastrar em nossa news"

End If
%>

[getpaulo]

Vamos por partes:


Set registros = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM email WHERE email = " & Resquest.Form("email")
registros.Open (SQL), Conexao, 1, 3

If not regitros.EOF then
msg = "Este email já foi cadastrado!!!"
end if


registros.AddNew
registros("nome") = Request.Form("nome") 'pega o campo nome do formulário
registros("email") = Request.Form("email") 'pega o campo nome do formulário
registros("status") = false 'seta o campo status como falso no banco de dados
registros("verificacao") = strsenha 'pega o resultado de uma função de geração de chaves TAMBÉM ESTA DANDO ERRO - Item cannot be found in the collection corresponding to the requested name or ordinal
registros("data") = date(Now())
registros("hora") = time(Now())
registros.Update

[Célio-Ctba]

Agora está dando mensagem de erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Resquest'

/cod_teste/cadastra_email.asp, line 39

A linha é esta:

SQL = "SELECT * FROM email WHERE email = " & Resquest.Form("email")

Tentei mudar para:

SQL = "SELECT * FROM email WHERE email = '" & Resquest.Form("email") & "'"

mas continuou o mesmo erro

[Generation]

Resquest é diferente do correto Request

[Célio-Ctba]

É verdade, reSquest não vai mesmo rs...

Ok passado este problema o q está pegando agora é o da linha de baixo, o erro é este:

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/cod_teste/cadastra_email.asp, line 54

A linha 54 é esta:

registros("verificacao") = strsenha  'pega o resultado de uma função de geração de chaves

[Generation]

O Campo verificacao existe com esse nome na tabela do banco de dados ?

[Maracuja]

Conselho: utilize um update.

[Célio-Ctba]

é verdade o nome do campo na tabela estava com um caractere errado.
Arrumei esse campo, e não deu mais erro, mas ele não cadastrou este campo:

registros("verificacao") = strsenha  'pega o resultado de uma função de geração de chaves

Este campo ficou vazio na tabela, será q tem a ver esta função estar em baixo do cód de cadstramento?

[getpaulo]

teste a função utilizando um response.Write

[Célio-Ctba]

Sim efetuei este teste com response lá no final do arquivo, tanto funciona que está mandando por email tb, a grande duvida é se ela não está sendo chamada antes de ser executada, pois ela está em baixo do cód de cadastramento.
Penso q ela esteja tentando cadastrar um valor q ainda não recebeu, apesar de estar no mesmo arquivo.

[Generation]

Verifique se voce esta atribuindo corretamente o valor para a variavel, pelo que voce disse ela nao esta recebendo nenhum valor, por isso fica em branco ...

[Célio-Ctba]

A variável recebe valor sim, era o banco q ficava vazio, mas agora já está resolvido, coloquei toda a função lá no ínicio do código, funcionou 100%.

TÓPICO RESOLVIDO.


Mto obrigado a todos!!!!!


Abraços