Planes with purpose
Helio Aircraft would like to hear from
you whether you are a current Helio owner/operator or have needs that
Helio might fulfill.


 
 

First Name

Last Name

*

Address

*

City

State

*

Zip

Country

Phone

E-mail

*

How may
Helio help you?

 

   
* Required

 

 

Office

6487 Wilkinson Drive
Prescott, AZ 86301

TEL (928) 717-1069
FAX (928) 717-0999

E-Mail

info@helioaircraft.com

Directions

Click here

 

  About Us | Your Missions | Our Planes | Contact Us | Sitemap | Homepage
Copyright © Helio Aircraft, LLC 2004. All Rights Reserved.
<% '====================================== ' Sends an email with CDONTS function CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.To = ToEmail Mailer.From = FromEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.MailFormat = 1 Mailer.BodyFormat = 1 Mailer.Send Set Mailer = Nothing CDONTS_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPMail function ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = MailerPath Mailer.ContentType = "text/plain" Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.AddRecipient ToName, ToEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.SendMail Set Mailer = Nothing ASPMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPQMail function ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = MailerPath Mailer.ContentType = "test/plain" Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.AddRecipient ToName, ToEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.QMessage = true Mailer.SendMail Set Mailer = Nothing ASPQMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with SASmtpMail function SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.RemoteHost = MailerPath Mailer.contenttype = "text/plain" Mailer.AddRecipient ToName, ToEmail Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.SendMail Set Mailer = Nothing SASmtpMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with JMail function JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("JMail.SMTPMail") Mailer.ServerAddress = MailerPath & ":" Mailer.contenttype = "text/plain" Mailer.AddRecipient ToEmail Mailer.Sender = FromEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.Execute Set Mailer = Nothing JMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPEmail function ASPEmail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = MailerPath Mailer.From = FromEmail Mailer.FromName = FromName Mailer.AddAddress ToName, ToEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.Send Set Mailer = Nothing ASPEmail_Mailer = true Response.Redirect(mailRedirect) end function %>