<!-- #INCLUDE FILE="conectores/lfchannel.asp" -->
<%
Dim emailValue, UserValue, PassValue, rs, oConn, OBJ_EMAIL
emailValue = Trim(Request.form("email"))
%>
<%
SQL="SELECT * FROM recuperar where email= '" & emailValue & "'"
set rs=oConn.Execute(SQL)
If not rs.EOF Then
UserValue = Trim(rs("artista"))
PassValue = Trim(rs("password"))
NombreValue = Trim(rs("nombre"))
ApellidoValue = Trim(rs("apellidos"))
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "
[email protected]"
OBJ_EMAIL.To = emailValue
OBJ_EMAIL.Subject = "Recordatorio de Contraseña"
BodyValue = "Hola " & NombreValue & " " & ApellidoValue & ", " + chr(10) + "Datos solicitados." + chr(10) + " Usuario: " & UserValue & " " + chr(10) + " Password: " & PassValue & " " + chr(10) + "Saludos" + chr(10) + "Sistemas"
OBJ_EMAIL.Body = BodyValue
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
Response.Write "<p>Se envió a su correo el usuario y la password. En caso de no recibirlo envié su solicitud al Webmaster</p>"
else
Response.Write "Mail no existente"
end If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
</head>
<body>
<form action="recuperar.asp?recuperado=ok" method="POST" name="email">
<p><input type="text" name="emailValue" size="20"><input type="submit" value="Enviar" name="B1"></p>
</form>
recuperar.asp
</body>
</html>