 |
 |
 |
| INICIO | | | SERVICIOS | | | DESCARGAS | | | ACCESO CLIENTES | | | PRINCIPALES PROYECTOS | | | TIENDA ON-LINE | | | PARTNERS | | | MAPA WEB |
ACCESO Teléfono: 94 453 0694 |
<% If request.form("submit") <> "" then //declaramos las variables Dim email,femail email = "Email" femail= Request.Form("correo") Dim ObjMail Set ObjMail = Server.CreateObject("CDONTS.NewMail") //introducir la dirección de correo donde se recibira el formulario ObjMail.To = "admon@red-xxi.com" //Cambia la dirección de e-mail (correo que aparecera como remitente) ObjMail.From = femail //titulo que aparecera como subject del mensaje puedes elegir el titulo que quieras ObjMail.Subject = "Petición de contraseña del usuario" & femail ObjMail.Body = "El usuario cuyo correo es " & femail & "ha pedido que se le envie su contraseña." ObjMail.Send Set ObjMail = Nothing Set email = Nothing Set femail = Nothing //redireccionamos a una página de confirmación de envio Response.Write "Gracias. En unos minutos recibirá su contraseña en su cuenta de email." else %> <% End If %> |