Jump to content
Fórum Script Brasil
  • 0

Esqueci Senha

[ GuTo ]

Asked by [ GuTo ],

 Share

Question

[ GuTo ]

[ GuTo ]

Posted
Posted

esqueci.htm

<html>

<head>

<title>Chat Canoas</title>

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

<link href="http://www.chatcanoas.pop.com.br/styles.css" rel="stylesheet" type="text/css">

<link href="http://www.chatcanoas.pop.com.br/favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<script language="JavaScript">

<!-- Este script e muito mais você encontra GRÁTIS em -->

<!-- Super JavaScripts - http://www.superjavascripts.kit.net -->

<!--

function checkFields() {

  if (document.formulario.email.value == "") {

    alert("Digite seu e-mail");

formulario.email.focus();

    return false;

  }

    if (document.formulario.email.value.indexOf("@", 0) == -1 || document.formulario.email.value.indexOf(".", 0) == -1 || document.formulario.email.value.length <= 10) {

    alert("Digite um e-mail válido");

formulario.email.focus();

    return false;

  }

}

// -->

</script>

<form name="formulario" action="esqueci.asp" method="post" onsubmit="return checkFields()">

<table align="center" width="135" border="0" bordercolor="#191919" cellspacing="2" cellpadding="1" class="bg1">

  <tr>

    <td align="center" colspan="2"><b>Recuperar Senha</b></td>

  </tr>

  <tr>

    <td align="right">Email:</td>

    <td><input type="text" name="email" size="10" maxlength="50"></td>

  </tr>

  <tr>

    <td align="center" colspan="2"><input class="botao" type="submit" value="Enviar"></td>

  </tr>

</table>

</form>

</body>

</html>

esqueci.asp

<%

Option Explicit

dim db, rs, sql

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

db.open "provider=microsoft.jet.oledb.4.0.data source="& Server.MapPath("dados.mdb")

dim email, apelido

email = trim(request.form("email"))

apelido = rs("apelido")

senha = rs("senha")

%><html>

<head>

<title>Chat Canoas</title>

<base href="http://www.chatcanoas.pop.com.br/">

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

<link href="styles.css" rel="stylesheet" type="text/css">

<link href="favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<%

sql = "select * from membros where email='"&email&"' "

if rs.eof then

%>

<p align="center">Erro!<br>

E-mail não encontrado.<br>

<a href="java script:history.back()"><img src="http://www.chatcanoas.pop.com.br/icons/seta_left.gif" width="10" height="9" border="0">Volte e tente novamente.</a></p>

<%else%>

<%

' Criando o objeto para enviar email

Set objMail = Server.CreateObject("CDONTS.Newmail" )

' Definindo o destino do email

    objMail.To = email

' Remetente do Email

    objMail.From = "chatcanoas@pop.com.br"

' Assunto do Email

    objMail.Subject = "Sua senha"

' A partir de agora vamos formatar a mensagem

' que será postada no corpo do email, esta

' mensagem irá conter as tags HTML comum

htmlemail = htmlemail & "<HTML>"

htmlemail = htmlemail & "<HEAD>"

htmlemail = htmlemail & "<TITLE>ChatCanoas - Recuperação de senha</TITLE>"

htmlemail = htmlemail & "</HEAD>"

htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>"

htmlemail = htmlemail & "<P>Olá "&apelido&"</P>"

htmlemail = htmlemail & "<p>Sua senha é "&senha&"</p>"

htmlemail = htmlemail & "Caso você não tenha solicitado sua senha,<br>"

htmlemail = htmlemail & "igonore este e-mail.<br>"

htmlemail = htmlemail & "Ele pode ter sido solicitado sem querer ou com algum intuito"

htmlemail = htmlemail & "maléfico por outra pessoa.<br><br>"

htmlemail = htmlemail & "Por favor,<br>"

htmlemail = htmlemail & "NÃO RESPONDA ESTE E-MAIL.<br><br>"

htmlemail = htmlemail & "Atenciosamente,<br>"

htmlemail = htmlemail & "[ GuTo ]- Webmaster do ChatCanoas<br>"

htmlemail = htmlemail & "<a href='http://www.chatcanoas.pop.com.br'>www.chatcanoas.pop.com.br</a>"

htmlemail = htmlemail & "</BODY>"

htmlemail = htmlemail & "</HTML>"

' Você pode ver que a mensagem é uma´página HTML Comum

' Agora vamos definir a propriedade Bodyformat como 0 (zero)

' O 0 significa que o corpo da mensagem contém tags em HTML

' Para texto simples utiliza-se 1

    objMail.Bodyformat = 0

' Após definir o corpo da mensagem você define o

' formato da mensagem

    objMail.MailFormat = 0

    objMail.Body = htmlemail

' E enviamos o email

    objMail.SendMail

' Fechando o objeto para envio de email

Set objMail = Nothing

%><p align="center">Senha enviada com sucesso!</p>

<%end if%>

</body>

</html>

<%rs.close

set rs = nothing

conn.close

set conn = nothing%>

Link to comment
Share on other sites

10 answers to this question

Recommended Posts

  • 0
Decio

Decio

Posted
Posted

Qual é o erro que está dando??

Em todo caso , no seu código , você esta atribuindo um valor a uma váriavel a partir de um campo do database , antes de ter dado um 'select', isto vai gerar um erro.

Option Explicit

dim db, rs, sql

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

db.open "provider=microsoft.jet.oledb.4.0.data source="& Server.MapPath("dados.mdb")

dim email, apelido

email = trim(request.form("email"))

apelido = rs("apelido")

senha = rs("senha")%><html>

Link to comment
Share on other sites
  • 0
resopi

resopi

Posted
Posted

:D hehehe posto o codigo ; decrição do erro para q nos possamos te ajudar :D

falou

Link to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

Pois é galera, o problema é q não tá sendo reportado erro algum.

Fiz como o Decio disse, passei as váriaveis pra depois do select, ficando assim...

<%

sql = "select * from membros where email='"&email&"' "

apelido = rs("apelido")

senha = rs("senha")

if rs.eof then

%>

Mas a página continua com erro e não é reportado ainda..

Se alguém puder ajudar... :lol:

Link to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

Alouuuu... alguém aí manja isso e poderia me ajudar???

Link to comment
Share on other sites
  • 0
caicai

caicai

Posted
Posted
®,Oct 8 2003, 12:29 AM] Alouuuu... alguém aí manja isso e poderia me ajudar???

Amigo Tudo bom

Olha examinei os fontes postado e achei varios erros.

Segue os código com os erros que encontrei corigidos

------------------------------------------------------------------

<%

Option Explicit

dim db, rs, sql

dim email, apelido, senha

email = trim(request.form("email"))

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

db.open "Provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("dados.mdb")

sql = "select * from membros where email='"&email&"'"

rs.open sql, db

%><html>

<head>

<title>Chat Canoas</title>

<base href="http://www.chatcanoas.pop.com.br/">

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

<link href="styles.css" rel="stylesheet" type="text/css">

<link href="favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<%

if rs.eof then

%>

<p align="center">Erro!<br>

E-mail não encontrado.<br>

<a href="java script:history.back()"><img src="http://www.chatcanoas.pop.com.br/icons/seta_left.gif" width="10" height="9" border="0">Volte e tente novamente.</a></p>

<%else

apelido = rs("apelido")

senha = rs("senha")

%>

<%

' Criando o objeto para enviar email

Set objMail = Server.CreateObject("CDONTS.Newmail")

' Definindo o destino do email

    objMail.To = email

' Remetente do Email

    objMail.From = "chatcanoas@pop.com.br"

' Assunto do Email

    objMail.Subject = "Sua senha"

' A partir de agora vamos formatar a mensagem

' que será postada no corpo do email, esta

' mensagem irá conter as tags HTML comum

htmlemail = htmlemail & "<HTML>"

htmlemail = htmlemail & "<HEAD>"

htmlemail = htmlemail & "<TITLE>ChatCanoas - Recuperação de senha</TITLE>"

htmlemail = htmlemail & "</HEAD>"

htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>"

htmlemail = htmlemail & "<P>Olá "&apelido&"</P>"

htmlemail = htmlemail & "<p>Sua senha é "&senha&"</p>"

htmlemail = htmlemail & "Caso você não tenha solicitado sua senha,<br>"

htmlemail = htmlemail & "igonore este e-mail.<br>"

htmlemail = htmlemail & "Ele pode ter sido solicitado sem querer ou com algum intuito"

htmlemail = htmlemail & "maléfico por outra pessoa.<br><br>"

htmlemail = htmlemail & "Por favor,<br>"

htmlemail = htmlemail & "NÃO RESPONDA ESTE E-MAIL.<br><br>"

htmlemail = htmlemail & "Atenciosamente,<br>"

htmlemail = htmlemail & "[ GuTo ]- Webmaster do ChatCanoas<br>"

htmlemail = htmlemail & "<a href='http://www.chatcanoas.pop.com.br'>www.chatcanoas.pop.com.br</a>"

htmlemail = htmlemail & "</BODY>"

htmlemail = htmlemail & "</HTML>"

' Você pode ver que a mensagem é uma´página HTML Comum

' Agora vamos definir a propriedade Bodyformat como 0 (zero)

' O 0 significa que o corpo da mensagem contém tags em HTML

' Para texto simples utiliza-se 1

    objMail.Bodyformat = 0

' Após definir o corpo da mensagem você define o

' formato da mensagem

    objMail.MailFormat = 0

    objMail.Body = htmlemail

' E enviamos o email

    objMail.SendMail

' Fechando o objeto para envio de email

Set objMail = Nothing

%><p align="center">Senha enviada com sucesso!</p>

<%end if%>

</body>

</html>

<%rs.close

set rs = nothing

conn.close

set conn = nothing%>

Não testei, qualque coisa poste aqui ou me envia um e-mail

T+

Link to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

ae caicai

no código q você postou só falotou declarar 2 variaveis, dae eu as declarei.

<%dim objMail,htmlemail

' Criando o objeto para enviar email

Set objMail = Server.CreateObject("CDONTS.Newmail")

'bla bla bla...

Mas olha só... testei dae e deu esse erro:
Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

O objeto não dá suporte para a propriedade ou método: 'SendMail'

/sitesdoguto/esqueci.asp, line 81

Como solucionar isso?

Link to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

Olá

Troquei o SendMail apenas por Send e dae apareceu, q o objeto conn não existia na ultima linha da página... claro... ela se chamava db... ficando assim...

</html>

<%rs.close

set rs = nothing

db.close

set db = nothing%>

Bem... depois disso testei e deu a resposta Senha Enviada com sucesso.

Bem... agora quero ver se receberei a senha pelo e-mail... caso cotrário, eu não sei de mais nada... pois tenho um cadastro aki q fiz q envia senha por email, mas dae aparece msg q foi enviada, mas nunca recebi o e-mail... o q poderia ser??

Bem, em todo o caso, vou esperae este e-mail chegar... a principio, agora tudo parece estar OK!

Muito obrigado pela ajuda caicai, te devo uma!

Link to comment
Share on other sites
  • 0
Decio

Decio

Posted
Posted

Olha , este código é o que eu uso para enviar e-mail:

<%

Dim objMail

Dim TheMessage

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = "deciohp@yahoo.com.br"

objMail.From = "deciohp@yahoo.com.br"

objMail.Subject = "Resposta automática."

TheMessage = "Corpo da mensagem"

objMail.Body = TheMessage

objMail.Importance = 2

objMail.bcc = "deciohp@yahoo.com.br"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Send

Set objMail = Nothing

SendMail=0

%>

Se este código não funcionar , é preciso verificar se o seu servidor tem o CDONTS instalado.

Link to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

OK. Recebi o e-mail do meu teste ali da página... o "esquecisenha.asp" funcionou perfeitamente. + uma vez, obrigado caicai.

OK Decio

Vou dar um look no seu código!

Obs.: estou usando a aspecto.net, ótimo servidor de ASP, que trabalha com CDONTS e JMAIL. Recomendo!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...