<% Save=trim(Request.Form("send")) if Save="yes" then YourName=trim(Request.Form("YourName")) YourEmail=trim(Request.Form("YourEmail")) M1=trim(Request.Form("M1")) M2=trim(Request.Form("M2")) M3=trim(Request.Form("M3")) M4=trim(Request.Form("M4")) M5=trim(Request.Form("M5")) M6=trim(Request.Form("M6")) Msg="Thank you! Your message has been sent." 'Start Send Processing ' change to address of your own SMTP server strHost = "mail.numeral.com.my" username = "enquiry@numeral.com.my" If M1<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M1 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF If M2<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M2 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF If M3<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M3 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF If M4<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M4 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF If M5<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M5 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF If M6<>"" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = username 'enter your full email address Mail.Password = "enquiry123" 'add your email password here Mail.Host = strHost Mail.port = 25 Mail.From = YourEMail Mail.FromName = YourName Mail.AddAddress M6 ' message subject Mail.Subject = "Check out www.numeral.com.my, Your 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication." Mail.Body="Dear Friend,

I've just visited http://www.numeral.com.my and thought that you might be interested too.
Numeral Engineering Sdn Bhd is a 1-Stop manufacturing partner for Equipment, Machining & other Metal Fabrication.


Best Regards,
"& YourName &"
" Mail.IsHTML = True Mail.Send ' send message Set Mail = Nothing 'Loop End END IF 'End Send Processing else Msg="" YourName="" YourEmail="" M1="" M2="" M3="" M4="" M5="" M6="" end if %> Numeral Engineering: Precision CNC Machining, Metal Fabrication, Bearings, Rubber Molding
 
  Home About Us Manufacturing Capabilities Other Products Our Clients Contact Us

<%=Msg%>

*  

Indicates Required Field

Your Name * :
Your Email * :

Note: Enter only 1 E-mail address per textbox

Friend's E-mail Address

 *
:
Friend's E-mail Address :
Friend's E-mail Address :
Friend's E-mail Address :
Friend's E-mail Address :
Friend's E-mail Address :