Lembrete de Senha!

Vagner Nunes · Abril 14, 2009

Prezados,

Boa tarde.

Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada.

Como posso fazer isso?

Sds,

Vagner Nunes

Rafael Spilki · Abril 14, 2009

Poste o que você tem pronto!

Vagner Nunes · Abril 15, 2009

O problema é este: não consegui nem ter idéia direito, mas comecei a fazer alguma coisa sim, porém está no meu servico.

Estou utilizando, um código que insere registro no banco e dispara um e-mail ao mesmo tempo. Foi até voce quem me ajudou. Estou no caminho certo utilizando a mesma idéia do INSERT?

Vou postar amanhã.

Sds,

Rafael Spilki · Abril 15, 2009

Pegue a lógica que indicquei no outro tópico e comece a trabalhar...

De barbada não vai vir... não é porque é simples pros outros que não vai ser pra você tb... é fácil... além do que, se você der uma procuradinha no google encontrará milhoes de exemplos... mas o mínimo de esforço terás que ter!

[]'s Rafael Spilki

Vagner Nunes · Abril 15, 2009

Estou utilizando este exemplo abaixo, porém não cosegui coisa funcionar.

<!--#include file="Connections/Conexao.asp" -->
<%
Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao
vsolicitante = Request("solicitante")
vsetor = Request("setor")
vpedido = Request("pedido")
vquantidade = Request("quantidade")
vunidade = Request("unidade")
vsituacao = Request("situacao")
strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')"

If request.querystring("op") = 1 then
   Set mail = CreateObject("CDONTS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = "administrativo@cesat.br" ' e-mail de quem vai receber a mensagem 
   mail.CC = "administrativo@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "Solicitação de Materiais - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "Setor: " & request.form("setor") & vbCrLf & "Pedido: " & request.form("pedido") & vbCrLf & "Quantidade: " & request.form("quantidade")& vbCrLf & "-" & request.form("unidade")
   mail.Send 
   Set mail = Nothing 
else

end if
Set ObjRs = objConn.Execute(strQuery)
%>

Sds,

Vagner Nunes

bareta · Abril 15, 2009

Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada.

cara ai não precisa nem fala nada né.... verifica o e-mail e manda a msg com os dados....

usa outro componente porque cdonts não funciona mais.

Vagner Nunes · Abril 15, 2009

Prezados,

Estava dando uma vasculhada no google e achei um código, tentei adequar as minhas necessidades, porém está apresentando o seguinte erro:

Microsoft VBScript compilation error '800a0401'
Expected end of statement
/curriculo/teste_pos.asp, line 55

O meu banco se chama curriculos.mdb, o tabela é a academico, e os campos são email, login e senha.

Segue código logo abaixo:

<%@ LANGUAGE="VBSCRIPT" %>

<% 
%>

<% Option Explicit %>
<% 
Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
'database path.
DATA_PATH=Server.Mappath("membersdb.mdb")
' Cria e inicia a conexao
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM MEMBERS WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span></p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("username")
pass = objrs.Fields("password")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@dominio.com"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _

sendmail.Importance = 3
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Sds,

Vagner Nunes

bareta · Abril 15, 2009

quote name='bareta' date='15/04/2009 - 11:26' post='541513'
cara ai não precisa nem fala nada né.... verifica o e-mail e manda a msg com os dados....
usa outro componente porque cdonts não funciona mais.

Vagner Nunes · Abril 16, 2009

Não to entendendo o que foi citado, poderia me explicar melhor, eu utilizo o cdonts na Locaweb e funciona perfeitamente.

Segue abaixo o código já com os meus campos escritos:

<%@ LANGUAGE="VBSCRIPT" %>

<% 
%>

<% Option Explicit %>
<% 
Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
'database path.
DATA_PATH=Server.Mappath("curriculos.mdb")
' Cria e inicia a conexao
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span></p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@dominio.com"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _

sendmail.Importance = 3
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

bareta · Abril 16, 2009

e qual o erro desse código????

Vagner Nunes · Abril 16, 2009

O erro que aparece é o seguinte:

Microsoft VBScript compilation error '800a0401'
Expected end of statement
/curriculo/teste_pos.asp, line 53
sendmail.Importance = 3
^

Sds,

Vagner Nunes

bareta · Abril 16, 2009

destaque para:

O CDOsys é o componente de envio de e-mails da Microsoft em servidores Windows. É a versão mais atualizada do antigo CDOnts, que não é mais suportado nos novos servidores.
Para enviar e-mails através de um formulário no ambiente Locaweb, siga os passos abaixo:

http://wiki.locaweb.com.br/pt-br/Cdosys

Vagner Nunes · Abril 17, 2009

Prezado,

Então este erro é por causa do CDonts? Eu não entendo, onde trabalho os componentes são todos o cdonts e funcionar normalmente no servidor da Locaweb, será que vou ter que modificar todos os componentes, corre o risco de não funcionar mais?

Sds,

Vagner Nunes · Abril 22, 2009

Alguém pode me dizer se tem algo errado neste código:

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="Connections/Conexao.asp" -->

<% 
Dim objDC, objRS, email, user, pass, sendmail
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span> </p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "InformaÃ§Ãµes de Login"

sendmail.Body = "InformaÃ§Ãµes de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Pois está apresentando o Erro:

Erro de compilação do Microsoft VBScript erro '800a0401'
Fim da instrução esperado
/curriculo/teste_pos.asp, line 48
sendmail.Send
^

LordVader BR · Abril 23, 2009

Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "InformaÃ§Ãµes de Login"

sendmail.Body = "InformaÃ§Ãµes de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send

O erro esta aparecendo na linha 48 certo? sendmail.Send ?

Note que lá em cima você esta setando este objeto para utilizar cdonts...

Como o bareta disse... tente utilizar o cdosys... é bom pra remover todas as duvidas se é problema de componente de servidor ou não... :)

Vagner Nunes · Abril 23, 2009

Mesmo trocando para CDOSYS apresenta o mesmo erro, todos os códigos de envio de e-mail eu utilizo o CDONTS em outros formulário e funciona beleza aqui.

Sds,

Vagner Nunes

bareta · Abril 23, 2009

posta o codigo com cdosys ai

Vagner Nunes · Abril 23, 2009

Cara, eu me enrolei todo aqui, com este CDOSYS, segue código que estou trabalhando:

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="Connections/Conexao.asp" -->

<% 
Dim objDC, objRS, email, user, pass, sendmail
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span> </p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "InformaÃ§Ãµes de Login"

sendmail.Body = "InformaÃ§Ãµes de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Segue abaixo o código do CDOSYS, mas não estou entendendo nada deste componente:

<%
email = request.Form("email")

msg = "Nome: '"&(request.Form("nome"))&"'<br>"
msg = msg&"Email: '"&(request.Form("email"))&"'<br>"
msg = msg&"Telefone: '"&(request.Form("telefone"))&"'<br>"
msg = msg&"Mensagem: '"&(request.Form("mensagem"))&"'<br>"

'DEFININDO EMAIL

HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<title>Mensagem enviada pelo site</title>"
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "" & msg
HTML = HTML & "</body>" 
HTML = HTML & "</html>" 

'Cria o objeto para o enviar e-mail
Set objCDO = Server.CreateObject("CDO.Message")
'Cria o objeto de configuração do SMTP
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
With objCDOSYSCon
'SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mbmetais.com.br"
'Porta do SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Porta do CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'Validação Email - Autenticação
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mbmetais@mbmetais.com.br" 
'Senha
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 
'Atualiza
.Fields.update
End With
'Atualiza as configurações do CDOSYS para enviar o e-mail
Set objCDO.Configuration = objCDOSYSCon
With objCDO
'Remetente do e-mail
.From = "" & email
'Destinatário do e-mail
.To = "mbmetais@mbmetais.com.br"
'Assunto
.Subject = "teste"
'Conteúdo da mensagem (Se for apenas texto, mude para TextBody)
.HTMLBody = "" & HTML
'Envia o e-mail
.Send
End With
'Destrói os objetos
Set objCDO = Nothing
Set objCDOSYSCon = Nothing
%>

Entrar

Lembrete de Senha!

Pergunta

Link para o comentário

Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns