Hola aqui dejo un codigo que me encontre
<%@Language=VBScript%>
<%Response.Buffer=True%>
<%
email = Trim(Request.Form("email"))
If Len(email) < 1 Then
Dim Rs%>
'................
<form name="form1" method="post" action="/usuarios.asp">
Introduce tu email
<input type="text" name="email">
<input type="submit" name="Submit" value="Recordar">
<input type="hidden" name="recordar" value="clave">
</form>
'................
<%
'poner conexion a base de datos
sql = "SELECT * FROM basededatos WHERE email = '" & email & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If RS.EOF Then
Response.write "Por favor intentelo de nuevo<hr><a href=""javascript:history.back(-1)"">Atras</a>"
Else
password = RS("clave")
username = RS("usuario")
email address and the password as arguments
Response.Write "Tu clave se envió correctamente. Pronto recibiras en tu email tu clave y nombre de usuario."
Call SendPW(email, clave, usuario)
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
Sub SendPW(email, password, username)
strHost = "smtp.tuservidor.com"
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = strHost
Mail.From = "tuemail"
Mail.FromName = "tunombre"
Mail.AddAddress email
'Asunto del mensaje
Mail.Subject = "Tu clave usuario de tu pagina web"
'Cuerpo del mensaje en HTML
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Tu email: "&email&" <br>Nombre de usuario: "&usuario&" <br>Tu clave: "&clave&"</font><br><br><br><hr>&l t;br><font face=verdana size=2>Entrar area de usuarios: <a href=""http://www.tuweb.com/usuarios.asp"">ENTRAR AL AREA DE LOGGIN: </a>Introduce tu nombre de usuario y Password</p></font></BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End if
End sub
end if%>
espero que sirva.!! :)
