<% function envia_mail(fromName,fromAdd,name,mail,body,subject) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = fromName Mailer.FromAddress = fromAdd Mailer.RemoteHost = "smtp.esope.com.br" Mailer.AddRecipient name, mail Mailer.Subject = subject Mailer.ContentType = "text/html" Mailer.BodyText = body if Mailer.SendMail then envia_mail = 1 else envia_mail = Mailer.Response end if end function %>