<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"'") If rs.EOF = True Then Response.Write "Email inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
Enviu De Senha Esquecida
#1
Posted 28/12/2003, 09:45
#2
Posted 28/12/2003, 09:53
Segundo:Vc permite q cadastrem com logins iguais no seu site?(vc é doido)
Cara se vc permitir, arrume isso para q naum permita.
E tbm ele naum esta buscando o login, esta buscando ´o email.
E é impossivel buscar a o logine a senha, pois se ele eskeceu a senha como vai poder buscar pela senha?
Flows
#3
Posted 28/12/2003, 10:07
#4
Posted 28/12/2003, 10:09
#5
Posted 28/12/2003, 10:19
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Esqueci Minha Senha</title> <script src="icons/script.js"></SCRIPT> <LINK href="icons/padrao.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <script language=javascript> <!--Abre function AbreJanela(pagina,janela,w,h,scrolling,top,left) { if (!scrolling) { scrolling='auto' } if (top) { top=',top='+top } if (left) { left=',left='+left } resultado = window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no'+top+left)} --> </SCRIPT> <body background="../zanelati_r41_c7.gif"> <script language=JavaScript1.2> function valida(){ var login = document.formcontato.login.value; var email = document.formcontato.email.value; if ( login == '' ){ alert('Campo login em branco.'); document.formcontato.login.focus(); return false; } if ( email == '' ){ alert('Campo email em branco.'); document.formcontato.email.focus(); return false; } formcontato.envia.disabled=true; return true; } </SCRIPT> <TABLE align=center width="296"> <TR> <TD class=TD width="274"> <p align="left"><font face="Verdana" size="1">Esqueci minha Senha me mande por e-mail</font> <p> </p> <FORM action=enviar_senha.asp id=formcontato method=GET name=enviar onsubmit="return valida();" target="x"><font face="Verdana" size="1">Login de Cadastro:<BR><INPUT class=campo maxLength=20 name=login size=27><BR>E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> <BR></font></FORM></TD></TR> </TABLE> <p><font color="#FFFFFF" size="1" face="Verdana">1</font></p> <div align="center"> <center> <table border="0" width="62%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <p align="center"><font face="Verdana" size="1">Obs: Caso não consiga se lembrar do seu login de cadastro ou senha, </font><font face="Verdana" size="2"> me mande um <a href="mailto:sitedozanelati@ig.com.br"><font color="#FF0000">e-mail </font></a>ou vá até <a href="fale_conosco.asp" target="x"><font color="#FF0000">fale conosco.</font></a></font></td> </tr> </table> </center> </div> </body> </html>
#6
Posted 28/12/2003, 10:35
It's Very Easy
Mude o q esta d vermelho....
<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
login = request.QueryString("login")
email=request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"' AND campologin='"&login&"'")
If rs.EOF = True Then
Response.Write "Email e/ou login inválido!"
Else
Set meuMail = CreateObject("CDONTS.NewMail")
sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")
meuMail.From = "sitedozanelati@ig.com.br"
meuMail.To = rs("email")
meuMail.Subject = "Envio de Senha"
meuMail.BodyFormat = 0
meuMail.MailFormat = 0
meuMail.Body = sCorpo
meuMail.Send
Set meuMail = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Confirma Mensagem</title>
</head>
<body background="../zanelati_r41_c7.gif">
<div align="center">
<center><table border="0" width="55%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center">
<font face="Verdana" size="2" color="#FFFFFF">1</font></td>
</tr>
<tr>
<td width="100%" align="center">
<p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para
Seu e-mail com Sucesso</font></td>
</tr>
<tr>
<td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que
Sua Senha é de Responsabilidade Tua.</font></td>
</tr>
<tr>
<td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Flows
#7
Posted 28/12/2003, 10:49
Microsoft JET Database Engine erro '80040e10'
No value given for one or more required parameters.
/sitedozanelati/login2/esqueci_senha.asp, line 45
o quer dizer este campologin
Projetos e muito mais....Valeu
Ricardo Zanelati
#8
Posted 28/12/2003, 10:58
Onde fica armazenado os logins do usuario no bd.
pq vc entrou com o outro login?
só por causa do warn?
Edição feita por: crazybaby, 28/12/2003, 11:02.
#9
Posted 28/12/2003, 11:16
Entrei com outro login para poder responder já pedi desculpas
Projetos e muito mais....Valeu
Ricardo Zanelati
#10
Posted 28/12/2003, 11:22
Vc mudou o 'campologin' certinho?
Bom era pra dar certo.
Os dados estaum passado corretamente por QueryString(pla url)?
vc esta digitando certinho mesmo?tanto as letras maiusculas minusculas, espaços...
#11
Posted 28/12/2003, 11:25
<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString login = request.QueryString("login") email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"' AND username='"&login&"'") If rs.EOF = True Then Response.Write "Email e/ou login inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
Edição feita por: Matrix2003, 28/12/2003, 11:28.
Projetos e muito mais....Valeu
Ricardo Zanelati
#12
Posted 28/12/2003, 11:56
tenta ai, que aki deu certo!
<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(caminho do arquivo de dados!!)c:\endereço do arquivo.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
login = request.QueryString("login")
email=request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"' AND username='"&login&"'")
If rs.EOF = True Then
Response.Write "Email e/ou login inválido!"
Else
Set meuMail = CreateObject("CDONTS.NewMail")
sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")
meuMail.From = "seuemail@seuprovedor.com.br"
meuMail.To = rs("email")
meuMail.Subject = "Envio de Senha"
meuMail.BodyFormat = 0
meuMail.MailFormat = 0
meuMail.Body = sCorpo
meuMail.Send
Set meuMail = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Confirma Mensagem</title>
</head>
<body background="../zanelati_r41_c7.gif">
<div align="center">
<center><table border="0" width="55%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center">
<font face="Verdana" size="2" color="#FFFFFF">1</font></td>
</tr>
<tr>
<td width="100%" align="center">
<p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para
Seu e-mail com Sucesso</font></td>
</tr>
<tr>
<td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que
Sua Senha é de Responsabilidade Tua.</font></td>
</tr>
<tr>
<td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
#13
Posted 28/12/2003, 12:55
já mandei um email para o elido vou esperar quem tiver uma solução e esteja passando por isto post ai
Projetos e muito mais....Valeu
Ricardo Zanelati
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)