<% ' change to address of your own SMTP server strHost = "mail.denesefreeman.com" 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 "shawn@shawnrook.com" ' message subject Mail.Subject = Request("Subject") ' 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 bSuccess = True End If End If %> Shawn Rook - Professional Angler
Shawn Rook Professional Angler
Shawn Rook

Contact Shawn

If you would like to contact Shawn, please fill out the short form below.
He would love to hear from you.

SUBJECT:

YOUR EMAIL ADDRESS:

MESSAGE
Shawn Rook Sponsors
© Shawn Rook - All Rights Reserved
Bass Anglers Network