29/03/2004, 20:22
| |||
| |||
| activar cuenta de usuario por mail necesitaria de alguien tan amable. que me explicase o me indique paso a paso como hacer un registro de usuario y una vez que se registre mandar por mail al usuario registrado que active su cuenta o mandar contraseña por mail gracias |
|
29/03/2004, 21:31
| ||||
| ||||
| Ufff. es un poco largo explicar todo, pero haber si tienes alguna experiencia en esto, y lograr entender este codigo, psra que lo utilizes a tu antojo, puedes hacer que recoja los valores desde el Form, y los mande a tu nuevo suscriptor, pero debes destriparlo, un poco, y sarle algunas cosas, perdana pero, pero el hacerlo yo en este momento sería muy largo... si te complicas, avisame y teniendo un tiempito lo hacemos... <% xy = request.querystring("contrato") sqltext2 = "SELECT * FROM tabla1 where contrato='"& xy &"'" 'sqltext2 = "SELECT * FROM tabla1" rst2.Open sqltext2,cnn2 Do While Not rst2.eof rut = rst2("rut") sqltext4 ="SELECT * FROM tabla1 where rut="& rut &"" rst4.Open sqltext4,cnn4,3,3 a =rst4("email") b = rst2("cliente") c = rst4("nombre") de = "[email protected]" asunto ="Un nuevo contrato" cuerpo ="<html><img src=http://www.tupagina.com/images/LOGO3.jpg><p><b><font face=verdana size=1 color=#0066cc>" & c cuerpo1= "</font></b></p><font face=verdana size=1 color=#000000><p>Un nuevo proceso de asignacion ha comenzado Ud. cumple con las condiciones del contrato con</p><p>" & b Cuerpo2 = cuerpo & cuerpo1 & "<p>le invitamos a Aceptar ó Rechazar este contrato directamente en <a href=http://www.tupagina.com>www.tupagina.com</a></p><p><b>El equipo Vmaule.com</b></p><img src=http://www.tupagina.com/imagenes/productores.jpg></html>" Do While Not rst4.eof set mailObj = Server.CreateObject("CDONTS.NewMail") mailObj.BodyFormat = 0 mailObj.MailFormat = 0 'If (rsbody("Format") = "Text") Then 'mailObj.BodyFormat = 1 'mailObj.MailFormat = 1 'Else 'mailObj.BodyFormat = 0 'mailObj.MailFormat = 0 'End If mailObj.From = de 'RSBODY("Email") mailObj.To = a mailObj.Subject = asunto mailObj.Body = c mailObj.Body = cuerpo2 mailObj.Send %> <p><font size="1" face="Verdana">La Informacion solicitada a sido enviada a <b><%=rst4("email")%></b>, Gracias por Utilizar nuestro sistema.</font></p> <% RSt4.movenext loop rst4.close RSt2.movenext loop rst2.close %> </body> </html>
__________________ "Lo importante es nunca dejar de hacerse preguntas" Albert Einstein |
|
30/03/2004, 08:52
| |||
| |||
| Gracias por tu ayuda .pero necesito algo que me explique paso a paso soy novato conoces alguna pagina donde me puedan explicar paso a paso?? |
|
30/03/2004, 11:31
| |||
| |||
| estuve analizando y se podria hacer de la siguiente forma: 1) procesar el formulario que se genere una clave aleatoria esa clave se graba en la bd se envia via email esa clave al usuario el usuario puede luego cambiar esa clave por una que le sea mas sencilla. otra forma seria: procesar el formulario guardar los datos en una bd y mandar activacion por mail al usuario a un link especifico creo que este ultimo requiere menos codigos pero por favorr necesito los codigos soy princpiante gracias |
