<% VTIME = Request.Form("CTIME") VNAME = Request.Form("name") VEMAIL = Request.Form("email") if StrComp(VTIME, "SECOND", 1) = 0 then Dim objMail Dim sMsgText '** Error Handling Part ** On Error Resume Next Set objMail = Server.CreateObject("ABMailer.Mailman") objMail.Clear objMail.MailDate = FormatDateTime(Date, vbShortDate) objMail.MailSubject = "New visitor" objMail.ReplyTo = "info@wmtea.com" objMail.SendTo = "info@wmtea.com" objMail.ServerAddr = "mail.wmtea.com" objMail.serverPort = 25 sMsgText = "" sMsgText = "Newsletter Subscription" & vbCrLf sMsgText = "Name: " & VNAME & vbCrLf sMsgText = sMsgText & "Email: " & VEMAIL & vbCrLf objMail.MailMessage = sMsgText objMail.SendMail if objMail.ErrorCode = mmeNone then ' Response.Write("Mail message successfully delivered.") else ' Response.Write("Mail message was not delivered to SMTP Server.") ' Response.Write("The Error Code was :" &CStr(objMail1.ErrorCode)) end if Set objMail = Nothing '** end of mailer part for sender ** end if '** end if part of VTIME = "Second" ** '** mailer part for sender ** Dim objMail1 Dim sMsgText1 '** Error Handling Part ** On Error Resume Next Set objMail1 = Server.CreateObject("ABMailer.Mailman") objMail1.Clear objMail1.MailDate = FormatDateTime(Date, vbShortDate) objMail1.MailSubject = "From WMTea.com" objMail1.ReplyTo = "info@wmtea.com" objMail1.SendTo = VEMAIL objMail1.ServerAddr = "mail.wmtea.com" objMail1.serverPort = 25 sMsgText1 = "Dear " & VNAME & ":" & vbCrLf & vbCrLf sMsgText1 = sMsgText1 & "We at Williamson Magor thank you for registering to recieve our Newsletter." & vbCrLf & vbCrLf sMsgText1 = sMsgText1 & "We shall keep you updated with the latest." & vbCrLf & vbCrLf sMsgText1 = sMsgText1 & "The Williamson Magor Team" & vbCrLf sMsgText1 = sMsgText1 & "info@wmtea.com" & vbCrLf objMail1.MailMessage = sMsgText1 objMail1.SendMail if objMail1.ErrorCode = mmeNone then ' Response.Write("Mail message successfully delivered.") else ' Response.Write("Mail message was not delivered to SMTP Server.") ' Response.Write("The Error Code was :" &CStr(objMail1.ErrorCode)) end if Set objMail1 = Nothing '** end of mailer part for sender ** '** mailer part which come back to wmtea.com** %>



The Williamson Magor Group, one of the foremost producers of Assam quality tea, welcomes you. 

Established in the year 1868 as a tea company, the group now produces an output of 30 million Kg of tea per year from its 23 tea estates in Assam and 5 million Kg from its 5 tea estates in Dooars.

Information about the WM Group and its activities in India and abroad is now available at this site.

Estates
Clickable maps of districts of Assam and Dooars provide extensive information about our 28 tea estates. 

Every invoice manufactured at our various tea estates is tasted at the Pertabghur Tea Tasting & Quality Control Centre. This is cross-checked at the Head Office by the marketing team.

The highlights are brought to you by this team of dedicated and experienced professionals.

B2B
The WM Group has brought it's core B2B operations on to the net. This site serves as an interface between the company, it's distributors, transporters and its remote tea estates which are now connected using seven recently installed VSATs. This has resulted in quick and efficient delivery of garden-fresh tea throughout our distribution network.

History
An interesting account of how this Group was founded and has grown into the largest quality tea producer in the world.

Welfare
A discourse on Social and Environmental issues that are important to the Group.

© Copyright. Williamson Magor Group, Calcutta. info@wmtea.com

LOGIN

User ID

 

Password

  
 
<% if StrComp(VTIME, "SECOND", 1) = 0 then %>

NEWSLETTER

Thank You <%=VNAME%>
We shall keep you informed about the latest Tea News from Williamson Magor.
<% else %>

NEWSLETTER

Name 


E-Mail 


 
<% end if %>
 


Four Mangoe Lane
Our Corporate
Headquarters

 

Williamson Financial Services Limited

 

The WM Group

History

Welfare

Environment

Education

Sitemap