<%
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
