<% ' cjm: according to Jeff, this should be local host for the production environment. ' Note: this will NOT work on the dev environment however, so we have to test this one ' live apparently. :( strHost = "localhost" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = Mail.FromName + " sends you this." ' message body Mail.Body = Request("Body") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else Response.Redirect("email_confirmation.asp") End If End If %> Kashi® Mighty Bites™


Tell a Friend About Mighty Bites

Help spread the word.

Do you know another mom or dad who might be interested in finding out more about Mighty Bites™ unique blend of brain building nutrients? Simply fill out the information below and click "Send Message".

Don't worry. We would never pass along your personal information. Read more about our privacy policy.

Your Information
Your Name:
Email Address:

Your Friend's Information
Friend's Name:
Email Address:

Optional Message
Write an optional message for your friend: