<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Abacist Group Website" Mailer.FromAddress= "bill.aiken@abacistgroup.com" Mailer.RemoteHost = "mrelay.perfora.net" Mailer.AddRecipient "Bill Aiken", "bill.aiken@abacistgroup.com" Mailer.Subject = "Newsletter Subscription" strMsgHeader = "Form Information Follows: " & vbCrLf for i = 1 to Request.Form.Count strMsgInfo = strMsgInfo & Request.Form.Key(i) & " - " & Request.Form.Item(i) & vbCrLf next strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter if Mailer.SendMail then Response.Write "Thank you. Your subscription is complete." else Response.Write "Subscription NOT complete. There was an error. Error was " & Mailer.Response end if set Mailer = Nothing %>

 To return to the Newsletter Subscription page » Click Here

To download your free copy of the report

"New Tools for New Times" by CFO Research Services » Click Here

To learn more about Our Services » Click Here