Bueno gente de verdad les estoy muy agradecido por toda la colaboracion prestada, especialmente al amigo Sodalex, el cual me aporto bastantes ideas para realizar este sistema.
He podido realizarlo, y ya perfectamente esta en funcionamiento, aqui les dejo el codigo que hace posible que desde un formulario donde se coloca un email, se puedan enviar las claves de acceso a dicha dirección:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/loarabe_dsn.asp" -->
<%
'---------Recogo el email-------
email=request("email")
' -----Consulta a la BD-------
Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = '"&email&"'"
rs_usuarios.Open rs_usuarios.Source, rs_usuarios.ActiveConnection
nick=rs_usuarios("nick")
clave=rs_usuarios("clave")
%>
' -----Final de la consulta-------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>:::Recuperar Password:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>
<body>
</body>
</html>
'--------------Envio del Email-------------------------------------------
<% Set Mail = Server.CreateObject("SoftArtisans.SMTPMail")
Mail.FromName = "loarabe.com"
Mail.FromAddress= "
[email protected]"
Mail.RemoteHost = "mail.loarabe.com"
Mail.AddRecipient "", "" & request.form("email") & ""
Mail.AddBCC "" & nombre_destinatario_2 & "", "" & email_destinatario_2 & ""
Mail.Subject = "Recuperación de Password"
Mail.contenttype = "text/html"
Mail.BodyText = "Te Recordamos tu datos de Acceso para ingresar a nuestro sistema: <br> Tu Nick es: "& rs_usuarios("nick") & " <br> Tu Clave: "& rs_usuarios("clave") &""
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>
<% end if %>
'-----------------Final del Envio----------------------------------------
<% rs_usuarios.close
rs_usuarios.ActiveConnection.close
%>
'-------------------------------
Muchas Gracias por sus aportes....
Feliz Navidad!!!
