El codigo que les paso es uno que me funciona de 10, te manda un mail a tu casilla.
Pero vos tenes que estar registrado en la base de datos.
Porque en un html anterior vos ingresaste el numero de dni, el codigo abajo escrito revisa que el dni este en la bd y toma el mail de ese usuario y le manda la contraseña por mail.
Saludos! y espero q les sirva!
<script type="text/javascript" LANGUAGE="JavaScript">
function getParams() {
var idx = document.URL.indexOf('?');
var params = new Array();
if (idx != -1) {
var pairs = document.URL.substring(idx+1, document.URL.length).split('&');
for (var i=0; i<pairs.length; i++) {
nameVal = pairs[i].split('=');
params[nameVal[0]] = nameVal[1];
}
}
return params;
}
params = getParams();
</script>
<body bgcolor="#000000">
<form method="post" action="http://server1.mipagina.com.ar/php/Mail.php">
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(Numerodni)='" & UCase(Request("Numerodni"))&"'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.EOF Then
Response.Write ("No hay registros con ese número de DNI")
else
%>
<input name="receptor" type="hidden" id="receptor" value=
<%
dim ValorMail, com
com = chr(34)
ValorMail = Tabla("Email")
Response.Write (com+ValorMail+com)
%>
>
<input name="Estado" type="hidden" id="Su password es: <% =Tabla("Password") %>" value="Su password es: <% =Tabla("Password") %>">
<input name="Submit" type="Submit" class="style" value="Enviar Contraseña">
<input name="redireccion" type="hidden" id="redireccion" value="http://www.tupagina.com.ar">
<%
End If
Tabla.Close
Conexion.Close
%>
</body>