Que tal si adaptas este:
<% Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email =
'" & request.form("email") & "
'"
rs_usuarios.Open rs_usuarios.Source, MM_loarabe_dsn_STRING %>
<% if rs_usuarios.eof then %>
Usuario Desconocido!
rs_usuarios.close
<% else %>
<% Set Mail = Server.CreateObject("SoftArtisans.SMTPMail")
Mail.FromName = "loarabe.com"
Mail.FromAddress= "
[email protected]"
Mail.RemoteHost = "mail.loarabe.com"
Mail.AddRecipient "nombre del destinatario", "" & request.form("email") & ""
Mail.AddBCC "" & nombre_destinatario_2 & "", "" & email_destinatario_2 & ""
Mail.Subject = "Recuperacion de contraseña"
Mail.contenttype = "text/html"
Mail.BodyText = "Tu Nick es "& rs_usuario("nick") & ""
if Mail.SendMail then %>
<% response.redirect "conf_Recu_password.asp" %>
<% else %>
<div align="center" class="nota">El Envío Falló, Por Favor Intenta de Nuevo</div>
rs_usuarios.close %>
<% end if %>