<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = " IP § Site § " Mailer.FromAddress="site@associacaoonline.com.br" Mailer.RemoteHost = "mail-fwd" Dim destinoSal destinoReq="webmaster@associacaoonline.com.br" Mailer.AddRecipient "IpSiteAol", destinoReq Mailer.Subject = "IP Site Aol" texto = texto & "IP: " & vbcrlf& request.servervariables("REMOTE_ADDR") & vbcrlf Mailer.BodyText = texto if Mailer.SendMail then %> <% else %> <% end if Set Mailer=Nothing %>