%@LANGUAGE="VBSCRIPT" %>
<% ' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP If Request("enviar") = 1 Then If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.Username = Request("usuario") Mail.Password = Request("passwd") Mail.AddAddress Request("destinatario") Mail.From = "noreply@ferozowindows.com.ar" Mail.FromName = "Ferozo Windows Edition" Mail.Subject = "E-mail de prueba" Mail.Body = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition" Mail.Send If Err <> 0 Then Response.Write "Ha ocurrido un error: " & Err.Description End If Set Mail = Nothing Else ' Respuesta en caso de que no se completen todos los datos Response.Write("Complete todos los campos para ejecutar el ejemplo") End If End If %>