Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

[Resolvido] Lembrete de senha

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Amigos!

 

 

Estou tentando adaptar um código que consegui na internet, mas estou sem exito.

Poderiam me ajudar se a lógica que fiz está correta???

 

SEGUE CODIGO:

<%
   RESPONSE.BUFFER = TRUE 
IF NOT IsEmpty(Request.Form) THEN
%>


<!--#include file="conn.asp" -->
<%		
   
				GerenciadorEmail = Trim(LCase(Request.Form("campoemail")))
		 IF Len(GerenciadorEmail) < 1 THEN

 SET LembreteDeSenhas = Server.CreateObject("ADODB.RECORDSET")
 SET LembreteDeSenhas = CX.Execute("SELECT * FROM table WHERE email= '"& GerenciadorEmail &"'")
  IF LembreteDeSenhas.EOF THEN
%>
<center>
  <table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
	<tr>
	  <td width="6%" height="30"> </td>
	  <td width="44%"> </td>
	  <td width="38%"> </td>
	  <td width="12%"> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td colspan="2"><div align="center">Seu endereço de email informado não confere!</div></td>
	  <td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	  <td> </td>
	  <td> </td>
	</tr>
  </table>
</center>
<%		   
ELSE

 campo01 = LembreteDeSenhas("LoginNome")
 campo02 = LembreteDeSenhas("LoginSenha")
 campo03 = LembreteDeSenhas("LoginUsuario")

 SET eObMail			= Server.CreateObject("CDONTS.NewMail")
	 eObMail.TO		 = GerenciadorEmail
	 eObMail.From	   = "teste <teste@teste.com.br>"
	 eObMail.Subject	= "Seu lembrete de senha: [ "& campo01 &" ]"
	 eObMail.Importance = 2
	 eObMail.BodyFormat = 0
	 eObMail.MailFormat = 0
	 
Lembrete = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Lembrete = Lembrete & "<html>"
Lembrete = Lembrete & "<head>"
Lembrete = Lembrete & "<link href="""& Fontes &""" rel=""stylesheet"" type=""text/css"" />"

Lembrete = Lembrete & "</body>"
Lembrete = Lembrete & "</html>"
		   
	 eObMail.Body = Lembrete
	 eObMail.Send
 SET eObMail = NOTHING			
%>
<table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
  <tr>
	<td width="6%" height="30"> </td>
	<td width="44%"> </td>
	<td width="38%"> </td>
	<td width="12%"> </td>
  </tr>
  <tr>
	<td> </td>
	<td colspan="2"><div align="center">Seus dados foram enviados para seu  email informado.</div></td>
	<td> </td>
  </tr>
  <tr>
	<td> </td>
	<td> </td>
	<td> </td>
	<td> </td>
  </tr>
</table>
<%
END IF
END IF
	 ObjRS.Close
 SET ObjRS = Nothing
 SET LembreteDeSenha = Nothing
%>


<%
ELSE
%>


<link href="lembrete.css" rel="stylesheet" type="text/css">
<form action="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>" method="post" target="_self">
<table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
  <tr>
	<td width="6%" height="30"> </td>
	<td width="44%"> </td>
	<td width="38%"> </td>
	<td width="12%"> </td>
  </tr>
  <tr>
	<td> </td>
	<td><input name="campoemail" type="text" class="BordaInputBranco" onfocus="if (this.value=='seuemail@servidor.com.br') {this.value=''; }" onblur="if (this.value=='') {this.value='seuemail@servidor.com.br'; }" value="seuemail@servidor.com.br" size="38" maxlength="30" />
	</td>
	<td><input type="submit" class="BordaInputBranco" value="Lembrar" /></td>
	<td> </td>
  </tr>
  <tr>
	<td> </td>
	<td> </td>
	<td> </td>
	<td> </td>
  </tr>
</table>
</form>


<%
END IF
%>

 

 

Do jeito que está acredito que está errado, ok

Não sei trabalhar muito bem quando usa se IF, e já li bastante, mas na pratica sou bem burr......

 

 

Obrigado a todos que puderem me ajudar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

teoricamente e visualmente está correto, mais geral algum erro? Eu em particular colocaria assim:

 

<%@ Language="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
GerenciadorEmail = Trim(Request.Form("campoemail"))
IF Len(GerenciadorEmail) < 1 THEN

SET LembreteDeSenhas = Server.CreateObject("ADODB.RECORDSET")
SET LembreteDeSenhas = CX.Execute("SELECT * FROM table WHERE email= '"& GerenciadorEmail &"'")
IF LembreteDeSenhas.EOF THEN
%>
<center>
  <table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
	<tr>
	  <td width="6%" height="30"> </td>
	  <td width="44%"> </td>
	  <td width="38%"> </td>
	  <td width="12%"> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td colspan="2"><div align="center">Seu endereço de email informado não confere!</div></td>
	  <td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	  <td> </td>
	  <td> </td>
	</tr>
  </table>
</center>
<%		  
ELSE

campo01 = LembreteDeSenhas("LoginNome")
campo02 = LembreteDeSenhas("LoginSenha")
campo03 = LembreteDeSenhas("LoginUsuario")

SET eObMail			= Server.CreateObject("CDONTS.NewMail")
	 eObMail.TO		 = GerenciadorEmail
	 eObMail.From	   = "teste <teste@teste.com.br>"
	 eObMail.Subject	= "Seu lembrete de senha: [ "& campo01 &" ]"
	 eObMail.Importance = 2
	 eObMail.BodyFormat = 0
	 eObMail.MailFormat = 0
	
Lembrete = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Lembrete = Lembrete & "<html>"
Lembrete = Lembrete & "<head>"
Lembrete = Lembrete & "<link href="""& Fontes &""" rel=""stylesheet"" type=""text/css"" />"

Lembrete = Lembrete & "</body>"
Lembrete = Lembrete & "</html>"
		  
	 eObMail.Body = Lembrete
	 eObMail.Send
SET eObMail = NOTHING			
%>
<table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
  <tr>
	<td width="6%" height="30"> </td>
	<td width="44%"> </td>
	<td width="38%"> </td>
	<td width="12%"> </td>
  </tr>
  <tr>
	<td> </td>
	<td colspan="2"><div align="center">Seus dados foram enviados para seu  email informado.</div></td>
	<td> </td>
  </tr>
  <tr>
	<td> </td>
	<td> </td>
	<td> </td>
	<td> </td>
  </tr>
</table>
<%
END IF
ObjRS.Close
SET ObjRS = Nothing
SET LembreteDeSenha = Nothing

ELSE
%>
<link href="lembrete.css" rel="stylesheet" type="text/css">
<form action="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>" method="post" target="_self">
<table width="100%" height="97" border="0" cellpadding="2" cellspacing="4">
  <tr>
	<td width="6%" height="30"> </td>
	<td width="44%"> </td>
	<td width="38%"> </td>
	<td width="12%"> </td>
  </tr>
  <tr>
	<td> </td>
	<td><input name="campoemail" type="text" class="BordaInputBranco" onfocus="if (this.value=='seuemail@servidor.com.br') {this.value=''; }" onblur="if (this.value=='') {this.value='seuemail@servidor.com.br'; }" value="seuemail@servidor.com.br" size="38" maxlength="30" />
	</td>
	<td><input type="submit" class="BordaInputBranco" value="Lembrar" /></td>
	<td> </td>
  </tr>
  <tr>
	<td> </td>
	<td> </td>
	<td> </td>
	<td> </td>
  </tr>
</table>
</form>
<%
END IF
%>

Tenho dúvidas dessas linhas:

 

eObMail.Importance = 2

eObMail.BodyFormat = 0

eObMail.MailFormat = 0

 

mais veja ai se gera erros

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

TED, realmente consegui adaptando de mais algumas leituras que fiz aqui, e realmente estou cada vez mais aprendendo a programar com asp...

Não sou expert, mas nas horas vagas, gosto de poder fazer alguma coisa de informatica...

 

 

Obrigado a todos os amigos que estão contribuindo com meu aprendizado...

Pois ainda tenho que aprender muito.

 

 

 

valeu....

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