Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcelinho

Tem alguem disponivel a me r ae?

Por , em ASP Clássico

Recommended Posts

marcelinho    0

marcelinho
Postado

e ai galera beleza?

 

eu to precisando de uma ajudinha para fazer esse lembrete de senha

 

eu tenho uma pagina de login e senha e um link com o lembrete de senha

 

ai o usuario clica no lembrete de senha:

 

lembrete.asp:

 

nessa pagina tem so o login....onde ele poe o login dele...ai ele vai em enviar

 

ai eu tenho uma outra pagina a email.asp

 

que era pra receber esse login, ai eu rodo um select junto com a sintaxe where para ver se o login é o mesmo que eu tenho na tabela(access) se for ele envia o email para a pessoa com a senha...mais nem ta dando certo deu um erro assim:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

No value given for one or more required parameters.

/projeto/ipeel/email.asp, line 15

 

olha meu codigo:

 

 

 

<html><head><title>Enviado</title></head><body><%dim objMail'Leitura de variaveisnLogin = request.form("login")'Rodar um select na tabela tbAlunosnSQL = "Select * from tbAlunos where login=" &nLoginset rsD = Session("Conn").Execute(nSQL)if not rsD.eof and not rsD.bof then  nID = rsD("id")  nNome = rsD("nome")  nSobrenome = rsD("sobrenome")  nTelefone = rsD("telefone")  nEmail = rsD("email")  nNome_pai = rsD("nome_pai")  nLogin2 = rsD("login")  nLogin_pai = rsD("login_pai")  nSenha_pai = rsD("senha_pai")  nSenha = rsD("senha")end if   'Enviando e-mail á pessoaSet objMail = Server.CreateObject("CDONTS.newmail")objMail.from = "ipeel@ipeel.com.br"objMail.to = nEmailobjMail.subject = "Senha para entrar no ipeel"objMail.bodyformat = 1objMail.MailFormat = 1objMail.Body = "A sua Senha é:"&nSenhaobjMail.sendset objMail = nothingresponse.write "Sua senha foi enviada por email<br>Obrigado!"%></body></html>

 

 

se puderem me ajudar valeuu

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

jcdesigner    0

jcdesigner
Postado

Kra usa este aqui, é o mesmo que uso funciona beleza, já tá mastigado e só engolir. O componente de envio de e-mail é o aspemail, mas se usar outro é só configurar na parte de enviar o e-mail kquer coisa estamos ai.

 

PS. Se você tiver alguma coisa que seja parecida com um contador individual (que conte os acessos que um usuario cadastrado em um BD, realizou) me manda ai tô tentando há alguns dias fazer mas não funciona nem a p.

 

Abraços.

 

 

<%Response.Buffer=True%>

 

<html>

<body>

<%

'************************** ATENÇÃO ***********************

'VOCÊ TEM QUE CRIAR UM MDB COM UMA TABELA COM NOME "Usuarios" e os campos "Email" e "Password"

 

email = Trim(Request.Form("email"))

If Len(email) < 1 Then

%>

 

<center><font color="blue" size="2" face="Verdana, Arial, Helvetica, sans-serif">Esqueceu a senha?</font><p>

<table>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><form method="post"></font>

<tr>

<td><center>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Digite

seu <b>Email</b> </font></center></td>

</tr>

<tr>

<td><center>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<input type="text" name="email">

</font></center></td>

</tr>

<tr>

<td><center>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<input type="submit" value="Submit">

</font></center></td>

</tr>

</table>

</form>

</center>

 

<%

Else

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & server.MapPath("/loja.mdb")

 

sql = "SELECT email, senha, usuario FROM Clientes WHERE email = '"&email&"'"

Set RS = Conn.Execute(sql)

 

If RS.EOF Then

Response.write "<p><br><br><br><center>Email Inválido!</center>"

 

Else

senha = RS("senha")

usuario = RS("usuario")

Call Send(email, senha, usuario)

Response.Write "<p><br><br><br><center>Sua senha foi enviada para seu e-mail!</center>"

 

RS.Close

Conn.Close

Set RS = Nothing

Set Conn = Nothing

End If

End If

 

Sub Send(email, senha, usuario)

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.seuprovedor.com.br"

Mail.From = "email@email.com.br"

Mail.AddAddress email

Mail.Subject = "Lembrete de senha."

Mail.Body ="SENHA : " & senha & vbcrlf & "USUÁRIO : " & usuario & vbcrlf & vbcrlf & vbcrlf _

& "*** Mensagem Automatica ***"

 

Mail.Send

Set Mail = Nothing

End Sub

%>

 

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito