|
Registered Office:
National Chemist and Druggist Block No 2,3,4,5, Lahar Bros Mansion, Opp.
KEM Hospital, Parel, Mumbai 400 012 (Tel) +91-22-2413 6860, +91-22-2416
4127, +91-22-2413 0164. Email: mail@nationalchemists.com
Corporate Office:
Wellness Forever Medicare Pvt. Ltd. Bajaj Bhavan, Flat No. 1, Bldg No.
18/5, R.A.Kidwai Road, Wadala 4 Rasta, Mumbai 400 031 (Tel) +91-22-24123203,
+91-22-24124164
Click here to know about our branches |
<%
Dim strName, strEmail, strTel, strAddr, strOdr, strQty, htmlText
strName = Trim(Request.Form("ClientName"))
strTel = Trim(Request.Form("ClientTel"))
strEmail = Trim(Request.Form("ClientEmail"))
strAddr = Trim(Request.Form("ClientAddr"))
strOdr = Trim(Request.Form("ClientOdr"))
strQty = Trim(Request.Form("ClientQty"))
If (strName <> "" And strTel <> "" And strAddr <> "" And strOdr <> "" And strQty <> "" And strEmail <> "") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDONTS.NewMail")
htmlText = ""
htmlText = htmlText & ""
htmlText = htmlText & ""
htmlText = htmlText & "Customer Query"
htmlText = htmlText & ""
htmlText = htmlText & ""
htmlText = htmlText & ""
htmlText = htmlText & "www.nationalchemists.com
"
htmlText = htmlText & "Name : " & strName & "
"
htmlText = htmlText & "Tel #: " & strTel & "
"
htmlText = htmlText & "Email: " & strEmail & "
"
htmlText = htmlText & "Addr : " & strAddr & "
"
htmlText = htmlText & "Country: " & strOdr & "
"
htmlText = htmlText & "Query : " & strQty
htmlText = htmlText & ""
htmlText = htmlText & ""
htmlText = htmlText & ""
objMail.From = "mail@nationalchemists.com"
objMail.To = "mail@nationalchemists.com"
objMail.Subject = "Customer Inquiry of " & strName
aRecipients = Array("nationalchemist@gmail.com")
objMail.BCC = Join(aRecipients, ";")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = htmlText
objMail.Send
Response.Write "...Message Sent. Thank You For Writing to National Chemist!
"
Set objMail = Nothing
Else
Response.Write "
"
End If %>
|
 |
|
 |
 |
