<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "WWW.NORTHPOINTS.COM"
Mailer.FromAddress= "penzy@nycap.rr.com"
Mailer.RemoteHost = "LOCALHOST"
Mailer.AddRecipient "Jim", "penzy@nycap.rr.com"
Mailer.AddExtraHeader "X-MimeOLE:Produced YOURDOMAIN.com"
Mailer.Subject = "Form Submission"
Mailer.BodyText = "Enter the body of the message here."
if Mailer.SendMail then
Response.Write "Form information submitted..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = Nothing
%>