% ' change to address of your own SMTP server strHost = "mail.example.com" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost ' Enter your email address along with your name (if wanted) ' Example: Mail.AddAddress "you@example.com", John Mail.AddAddress "you@example.com" ' From address Mail.From = Request ("EMail") Mail.FromName = Request ("Name") ' message subject Mail.Subject = "From my website" ' create the message strBody = strBody & Request("Message") & vbcrlf strBody = strBody & Request("IP") & vbcrlf strBody = strBody & Request("User_Agent") & vbcrlf Mail.Body = strBody ' send message Mail.Send %>