<% strHost = "smtp.fibertel.com.ar" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.Username = "info.ciotti.com.ar" Mail.Password ="ciotti02" Mail.From = Request("mail") Mail.FromName = Request("nombre") Mail.AddAddress Request("To") Mail.Subject = "Formulario de contacto" cuerpo="Nombre y apellido: "& Request("nombre")& VBNEWLINE cuerpo=cuerpo&"-------------"& VBNEWLINE cuerpo= cuerpo& "E-mail: "& Request("mail")& VBNEWLINE cuerpo=cuerpo&"-------------"& VBNEWLINE cuerpo= cuerpo & "Teléfono: " & Request("tel")& VBNEWLINE cuerpo=cuerpo&"-------------"& VBNEWLINE& VBNEWLINE cuerpo= cuerpo &"Comentarios: "& VBNEWLINE cuerpo= cuerpo & Request("comentario") Mail.Body =cuerpo bSucess=False Mail.Send If Err <> 0 Then strErr = Err.Description else bSuccess = True End If Response.Redirect "gracias.htm" %>