<%@LANGUAGE="VBSCRIPT"%> Geoff Bullen Electronics, Distribution, Consultancy, Design, Manufacturing, Blood Track
Geoff Bullen Electronics, Distribution, Consultancy, Design, Manufacturing - Home Page
Home About Distribution Consultancy & Design Manufacturing Products & Services Industry Sectors Case Studies Contact Us
Geoff Bullen Electronics enquiry form
   
telephone
 01903 244500
fax
 01903 700715
envelope
 Click here
clock
 
Did You Know?
case studies
pdf download
 Blood Track
pdf download
 Trampoline
pdf download
 USB Relay

Home | About | Distribution | Consultancy & Design | Manufacturing | Products & Services
Industry Sectors | Case Studies | Contact Us | Conditions of Sale

© 2007 GBE | Ascot House | Mulberry Close | Woods Way
Goring-by-Sea | West Sussex | BN12 4QY

 

Please complete the Enquiry Form below. We will contact you by your preferred method as soon as possible. If you have any questions please do not hesitate to contact us.

   
Contact Name
Company Name
Address
Method of Contact
Contact Number
Email Address
   
If you know the part ID, please insert here
Quantity
Details
   

 





 
 

 


Back Home <% '====================================== ' 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 %>