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

Esqueci Senha

[ GuTo ]

Perguntado por [ GuTo ],

 Share

Pergunta

[ GuTo ]

[ GuTo ]

Postado
Postado

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 para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0
Decio

Decio

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

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

falou

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

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

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

caicai

Postado
Postado
®,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 para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
Decio

Decio

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

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 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,1k
    • Posts
      651,8k
×
×
  • Criar Novo...