chegar email

[designmix 0]

Alguem ja fez, Algum sitema para quando cadastra um email no db, verificar se ja exite o email no db.

[Salgado 4]

Alguem ja fez, Algum sitema para quando cadastra um email no db, verificar se ja exite o email no db.

<{POST_SNAPBACK}>

É só fazer um SELECT pelo e-mail antes de inserir, se retornar vazio é pq não existe e pode-se fazer o INSERT

[dark0 0]

isso ae salgado"select * from tabela where campo_email = '"& request("campo_email") &"' "

[designmix 0]

Seria isso

 

estou com erro

Microsoft VBScript runtime error '800a01a8' Object required: '' /teste/enviar_dtp.asp, line 13

ASP

[*]<!--#include FILE="_conn/bib_conexao.asp"-->

[*]

[*]<%

[*]

[*]Dim rs

[*]

[*]Nome = Request.Form("Nome")

[*]Sobrenome = Request.Form("Sobrenome")

[*]Telefone = Request.Form("Telefone")

[*]

[*]rs.Open "SELECT codigo FROM d_clientes WHERE email='"& Request.Form("email") &"'", Conn

[*]if rs.EOF then

[*] Response.write "Não esta cadastrado"

[*]else

[*] Response.write "Já esta cadastrado"

[*]end if

[*]rs.Close

[*]Set rs = Nothing

[*]

[*]Cidade = Request.Form("Cidade")

[*]Estado = Request.Form("Estado")

[*]Pais = Request.Form("Pais")

[*]Login = Request.form("Login")

[*]Senha = Request.Form("Senha")

[*]DataNascimento = Request.Form("DataNascimento")

[*]Profissao = Request.Form("Profissao")

[*]Grupo = Request.Form("Grupo")

[*]Statu = Request.Form("Statu")

[*]

[*]strSQL = "INSERT INTO d_clientes (Nome, Sobrenome, Telefone, Email, Cidade, Estado, Pais, Login, Senha, DataNascimento, Profissao, Grupo, Statu )"

[*]strSQL = strSQL & "values ('"& Nome & "','" & Sobremome & "','" & Telefone & "','" & Email & "','" & Cidade & "','" & Estado & "','" & Pais & "','" & Login & "','" & Senha & "','" & DataNascimento & "','" & Profissao & "','" & Grupo & "','" & Statu & "')"

[*]

[*]Response.Buffer = True

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]strMyEmailAddress = "jaffar@dtp.com.br"

[*]strReturnEmailAddress = Request.Form("Email")

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobrenome: " & Request.Form("Sobrenome") & vbCrLf & vbCrLf

[*]strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("Telefone") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("Cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("Estado") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("Pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("Login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("Senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("DataNascimento") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("Profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("Grupo") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Status do assinante: " & Request.Form("Statu") & vbCrLf & vbCrLf

[*]

[*]If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

[*]strReturnEmailAddress = strMyEmailAddress

[*]End If

[*]

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[*]objCDOMail.From = Request.Form("Nome") & " " & Request.Form("") & " <" & strReturnEmailAddress & ">"

[*]objCDOMail.To = strMyEmailAddress

[*]objCDOMail.Cc = strCCEmailAddress

[*]objCDOMail.Subject = ""

[*]objCDOMail.Body = strBody

[*]objCDOMail.MailFormat = CdoMailFormatText

[*]objCDOMail.Importance = 1

[*]objCDOMail.Send

[*]

[*]

[*]Set objCDOMail = Nothing

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

[dark0 0]

linha 13?

 

ASP

[*]Response.write "Não esta cadastrado"

 

o codigo eh esse mesmo?

[designmix 0]

essa linha é do errors.Open "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"'", Conn

[dark0 0]

cara.. pode ser erro na conexao.. pois objeto requerido..pode ser erro no select.. no final dele, você usa request.form("email")mas.. antes do select, faz um if pra ver se o campo está com valor..

[designmix 0]

Como posso estar fazendo isso de um jeito simple e rapido

[dark0 0]

antes do select, digita:response.write request.form("email")response.endposta aqui o que aparecer na tela

[designmix 0]

me respondeu o email que digiteilocalx@bol.com.br

[Salgado 4]

Troca o inicio do seu código por esse:

ASP

1. <!--#include FILE="_conn/bib_conexao.asp"-->
   
2. 
   
3. <%
   
4. 
   
5. Dim rs
   
6. 
   
7. Nome = Request.Form("Nome")
   
8. Sobrenome = Request.Form("Sobrenome")
   
9. Telefone = Request.Form("Telefone")
   
10. 
    
11. Set rs = Conn.Execute( "SELECT codigo FROM d_clientes WHERE email='"& Request.Form("email") &"';")
    

[designmix 0]

nda ainda esta dando erro Microsoft VBScript runtime error '800a01a8' Object required: '' /teste/enviar_dtp.asp, line 12 que é a linha select

[Salgado 4]

Seu objeto de conexão é "conn" mesmo?

[designmix 0]

aqui esta minha conexao com db que estou chamando no include

 

 

ASP

[*]<%

[*]dim conn

[*]

[*]sub abre_conexao

[*]Set conn = Server.CreateObject("ADODB.Connection")

[*]conn.open "driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=photopro2"

[*]end sub

[*]

[*]Sub fecha_conexao

[*]conn.close

[*]set conn = nothing

[*]end sub

[*]

[*]%>

[Salgado 4]

Certo, está no include, mas você não chama a SUB que abre ela!

[designmix 0]

no fim do script

[dark0 0]

você precisa chamar o "abre conexao" antes de usá-lo..e você usa nessa linha do erro, e no final do script

[designmix 0]

funciono galera... valeu mesmo so maiis uma coisa

 

Coloquei um redirect para voltar para o form mais gostaria de colocar no form que ja tem o cadastro

 

ASP

[*]Call abre_conexao

[*]Set rs = Conn.Execute( "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"';")

[*]if rs.EOF then

[*] Response.write "Enviado com Sucesso"

[*]else

[*] Response.Redirect"form_dtp.asp"

[*]end if

[*]rs.Close

[*]Set rs = Nothing

[*]call fecha_conexao

[dark0 0]

como assim?você quer dar uma mensagem de que o usuario ja existe?coloca no Else um response.write..

[designmix 0]

Isso.. mais o fom e uma outra pagina como voltar a informação para ela ?