Registro de usuario, envio de mail y link de activacion

lleiguarda · #1 (**permalink**) 12/02/2008, 22:47

Queridos compañeros, necesito crear un sitio con un formulario. El cual el visitante lo completa y al poner enviar automaticamente se le envia un correo con un link para que el usuario cliquee y recien ahi pueda activar la cuenta. Y se pueda logear de no hacer clic en el link que no pueda logearse. Soy novato en esto si tienen los codigos o alguna ayuda se los agradeceré. Saludos a todos!

rene_bustos · #2 (**permalink**) 13/02/2008, 11:13

Que onda claro que aqui te ayudamos
solamente que necesitas comentar acerca de tus conocimientos
para la persona que entre a ver tu pregunta..pues se puda dar idea de los lenguajes que manejas y que tanto los dominas o.k
fuera de eso
para eso estamos, para ayudarnos entre todos

yakare84 · #3 (**permalink**) 21/02/2008, 07:07

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>