O erro é que quando o email digitado não existe no BD da erro...
E eu gostaria de enviar alem da senha o nome do usuario tambem...
alguém pode arrumar isso para mim por favor...
<html>
<head><title>Enviar nome de usuario e senha</title></head>
<body>
<%
act = request.querystring("act")
%>
<%
if act = "" then%>
<form action="?act=enviar" method="POST">
arquivos%20recebidos/?act=enviar" method="POST">
nome:<input type="text" name="usuario"><br>
e-mail<input type="text" name="email"><br>
<input type="submit">
</form>
<%end if%>
<%
if act="enviar" then
dim dsn
dsn="DBQ=" & Server.Mappath("Clientes") & ";Driver={Microsoft Access Driver (*.mdb)};"
sub close()
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
set conn = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
conn.open dsn
SQL = "SELECT * FROM Clientes WHERE email = '"&request("email")&"' AND '"&request("usuario")&"'"
rs.open sql,conn
email = RS("email")
password = RS("senha")
If RS.EOF Then
Response.write "<center>O usuário não consta no nosso site ou você digitou as informações necessárias de forma incorreta</center>"
else
Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "betoap@MSN.com"
cdoMail.To = email
cdoMail.Subject = "Lembrete de senha."
cdoMail.Body = "Sua senha é: "& password & vbcrlf & vbcrlf & vbcrlf & "*** Mensagem Automatica ***"
cdoMail.Send
Set cdoMail = Nothing
response.write "Senha enviada com sucesso!"
end if
end if
%>
</body>
</html>
Pergunta
Guest Blink
O erro é que quando o email digitado não existe no BD da erro...
E eu gostaria de enviar alem da senha o nome do usuario tambem...
alguém pode arrumar isso para mim por favor...
<html> <head><title>Enviar nome de usuario e senha</title></head> <body> <% act = request.querystring("act") %> <% if act = "" then%> <form action="?act=enviar" method="POST"> arquivos%20recebidos/?act=enviar" method="POST"> nome:<input type="text" name="usuario"><br> e-mail<input type="text" name="email"><br> <input type="submit"> </form> <%end if%> <% if act="enviar" then dim dsn dsn="DBQ=" & Server.Mappath("Clientes") & ";Driver={Microsoft Access Driver (*.mdb)};" sub close() rs.close set rs=nothing conn.close set conn=nothing end sub set conn = server.createobject("ADODB.connection") set rs = server.createobject("ADODB.recordset") conn.open dsn SQL = "SELECT * FROM Clientes WHERE email = '"&request("email")&"' AND '"&request("usuario")&"'" rs.open sql,conn email = RS("email") password = RS("senha") If RS.EOF Then Response.write "<center>O usuário não consta no nosso site ou você digitou as informações necessárias de forma incorreta</center>" else Set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.From = "betoap@MSN.com" cdoMail.To = email cdoMail.Subject = "Lembrete de senha." cdoMail.Body = "Sua senha é: "& password & vbcrlf & vbcrlf & vbcrlf & "*** Mensagem Automatica ***" cdoMail.Send Set cdoMail = Nothing response.write "Senha enviada com sucesso!" end if end if %> </body> </html>Muito obrigado...
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
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.