Este es el codigo
<%
Dim UsersRS__value
UsersRS__value = "zx"
if (Request.Form("Email") <> "") then UsersRS__value = Request.Form("Email")
%>
<%
set UsersRS = Server.CreateObject("ADODB.Recordset")
UsersRS.ActiveConnection = MM_ForgottenEmail_STRING
UsersRS.Source = "SELECT Email, nombre, Password FROM Usuarios WHERE Email='" + Replace(UsersRS__value, "'", "''") + "'"
UsersRS.CursorType = 0
UsersRS.CursorLocation = 2
UsersRS.LockType = 3
UsersRS.Open()
UsersRS_numRows = 0
%>
<%
if Request.Form("submit") <> "" then
if UsersRS.eof and UsersRS.bof then
response.redirect "error_email.asp"
else
Dim objmail, mailbody
set objmail=CreateObject("CDONTS.NewMail")
objmail.From="
[email protected]"
objmail.To=Request.Form("Email")
objmail.Subject="Username and Password"
mailbody="Tu Password es:" & vbcrlf
mailbody=mailbody & "Email - " & UsersRS("email") & vbcrlf
mailbody=mailbody & "Password - " & UsersRS("password") & vbcrlf
objmail.Body=mailbody
objmail.Send
set objmail=Nothing
response.redirect "envio_ok.asp"
end if
end if
%>
vale ;)
