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

Confirmação Ativa De Cadastro

Guest - Ricardo -

Perguntado por Guest - Ricardo -,

 Share

Pergunta

Guest - Ricardo -

Guest - Ricardo -

Postado
Postado (editado)

Olá Pessoal,

Segue abaixo um exemplo de confirmação ativa de cadastro é bem interessante para quem deseja implementar uma newsletter

Este é o formulario para colocar o nome e email

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<p>&nbsp;</p>
<form name="form1" method="post" action="confirmacao_ativa1.asp">
  <table width="574" border="0" align="center" bgcolor="#eaeaea">
    <tr> 
      <td colspan="2"> 
        <div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b> 
          <input type="hidden" name="ip" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">
          Receba nosso boletim 
          <input type="hidden" name="data" value="<%=now%>">
          <input type="hidden" name="disponivel" value="não">
          </b></font></div>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="283"> 
        <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Nome:</font></div>
      </td>
      <td width="281"> 
        <input type="text" name="nome" size="40">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="283"> 
        <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Email:</font></div>
      </td>
      <td width="281"> 
        <input type="text" name="email" size="40">
      </td>
    </tr>
    <tr> 
      <td colspan="2"> 
        <div align="center"> 
          <input type="submit" name="Submit" value="Cadastrar">
        </div>
      </td>
    </tr>
  </table>
</form>
<p align="center">&nbsp;</p>

</body>
</html>

Agora segue o código do arquivo confirmacao_ativa1.asp
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
set conexao=server.CreateObject("Adodb.Connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\login\dados\confirmacao_ativa.mdb"
%>
<%
vnome = request.form("nome")
vemail = request.form("email") 
vip = request.form("ip")
vdata = request.form("data")
vdisponivel = request.form("disponivel")

strsql = "select * from cadastro where email = '"& vemail &"'"
set rs = conexao.execute(strsql)

if not rs.eof then
Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>"
response.end
end if

sql = "insert into cadastro (nome,email,ip,data,disponivel) values ('"& vnome &"','"& vemail &"','"& vip &"','"& vdata &"','"& vdisponivel &"')"
conexao.execute(sql)

HTML = HTML & "<html>"
	HTML = HTML & "<head>"
	HTML = HTML & "<title>Confirmação Ativa de Cadastro</title>"
	HTML = HTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
	HTML = HTML & "</head>"
	HTML = HTML & ""
	HTML = HTML & "<bgcolor='#ffffff' text='#ffffff'>"
    HTML = HTML & "<font face='verdana' size='2'>Você solicitou o cadastro de teste de newsletter através do ip "& vip &" em "& vdata &"<br> Para confirmar o seu cadastro </font><a href='http://www.ondesta.locaweb.com.br/spam/confirma.asp?email="&vemail&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>"
	HTML = HTML & "</body>"
HTML = HTML & "</html>"

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = remetente
Mailer.FromAddress= "abuse@locaweb.com.br"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient nome,vemail
Mailer.ContentType = "text/html"' formatação html 
Mailer.Subject = "Confirmação de Cadastro"
Mailer.BodyText = HTML 
Mailer.SendMail

Set Mailer = Nothing 


conexao.close
set conexao = nothing
%>


<p><font size="2" face="Verdana, Arial, sans-serif">Prezado <%=vnome%> ,</font></p>
<p><font size="2" face="Verdana, Arial, sans-serif">Seu cadastro ainda n&atilde;o 
  foi efetivado , para confirm&aacute;-lo , acesse o email <%=vemail%> e clique 
  sobre link para confirmar este cadastro.</font></p>
<p><font size="2" face="Verdana, Arial, sans-serif">Este politica &eacute; feita 
  , para que ningu&eacute;m utilize o seu email de m&aacute; f&eacute;. </font></p>
<p><font face="Verdana, Arial, sans-serif" size="2">Equipe Anti Spam</font></p>
<p>&nbsp;</p>
</body>
</html>

Lembre que o campo disponivel vai para o banco com o valor não e so terá o valor sim quando o usuario acessar o email dele e clicar no link

OU SEJA SÓ ENVIE O EMAIL PARA OS USUARIOS QUE TIVEREM O VALOR SIM NO CAMPO DISPONIVEL

UM ABRAÇO A TODOS

RICARDO

Editado: Use as tags code ou quote quando for postar códigos

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest Raffael

Guest Raffael

Postado
Postado

Oi, Ricardo.

Referente a este script, e quanto ao script de confirmacao que voce não descreve aqui, localizado aqui:

HTML = HTML & "<font face='verdana' size='2'>Você solicitou o cadastro de teste de newsletter através do ip "& vip &" em "& vdata &"<br> Para confirmar o seu cadastro </font><a href='http://www.ondesta.locaweb.com.br/spam/confirma.asp?email="&vemail&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>"

Esse script é necessário para finalizar a confirmação. Poderia colocar aqui para nós, for favor?

Obrigado

Raffael

Link para o comentário
Compartilhar em outros sites
  • 0
CMachado

CMachado

Postado
Postado

Ai vai o script de confirmação....

Lembramdo que aqui estou usando o campo

Ativo = 1 "Usuario ativado"

Ativo = 0 "Usuario não ativado"

Espero que ajude... biggrin.gif


<!--#include file="conexao.asp"--> 

<%
ID_Usuario = request.querystring("id_usuario")

Dim conexao
call abre_conexao

sql = "select * from Cadastro where ID_Usuario = " & ID_Usuario
set tab = Conexao.Execute(sql)

if tab("Ativo") = 1 then



response.write "Seu cadastro já está ativo. <br><br><a href='http://www.seusite.com/login.asp'>Clique aqui para efetuar login !!</br></br>"

elseif tab("Ativo") = 0 then
Ativo = 1

sql_atualiza = "UPDATE Cadastro SET "
sql_atualiza = sql_atualiza & "Ativo = " & Ativo & ""
sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario

set tab_atualiza = Conexao.Execute(sql_atualiza)

response.write "Seu cadastro foi ativado com sucesso. Obrigado.<br><br><a href='http://www.seusite.com/login.asp'>Clique aqui para efetuar login !!</br></br>"

end if

%>

Link para o comentário
Compartilhar em outros sites

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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