%@ Language=VBScript %> <% If Len(Request.Form("email")) > 0 Then Dim objMail sBody ="Name :-" & Request.Form("name") & vbCrLf & "Address :-" & vbCrLf & Request.Form("address") & vbCrLf & "Your Profile :-" & Request.Form("profile") & vbCrLf & "Company Name :-" & Request.Form("companyname") & vbCrLf & "Company Address :-" & vbCrLf & Request.Form("companyaddress") & vbCrLf & "City :-" & Request.Form("city") & vbCrLf & "Country :-" & Request.Form("country") & vbCrLf & "State :-" & Request.Form("state") & vbCrLf & "Telephone :-" & Request.Form("telephone") & vbCrLf & "Fax / Mobile :-" & Request.Form("fax") & vbCrLf & "Website :-" & Request.Form("website") & vbCrLf & "About Your Organisation :-" & vbCrLf & Request.Form("organisation") & vbCrLf & "Product Interested In :-" & vbCrLf & Request.Form("products") & vbCrLf & "Any Other Products :-" & vbCrLf & Request.Form("anyother") & vbCrLf & "Remarks/Comments :-" & vbCrLf & Request.Form("comments") FriendEmail = "ashokjain@neongroup.com" Set objMail = Server.CreateObject("Persits.MailSender") objMail.Host = "mail.neongroup.com" 'Specify a valid SMTP server objMail.From = Request.form("email") 'Specify sender's address objMail.AddAddress FriendEmail objMail.FromName = Request.Form("Name") 'Specify sender's name objMail.Subject = "Contact Us" objMail.Body = sBody objMail.Send Set objMail = Nothing Response.redirect "response2.html" Else %>
|
Contact
Us
|
|
| Corporate Office |
|
|
Neon
Laboratories Ltd.
|
| 140, Damji Samji Industrial Complex, |
| Mahakali Caves Rd., |
| Andheri(East), Mumbai-93. |
| Tel : +91-22-2687 5366-72 |
| Fax : +91-22-2687 3502 |
| Email : neon@bom1.vsnl.net.in |
|
|
|
Send
Your Details
|
|
|
|
|
| Site best viewed in IE ver 5.0 & above @ 800x600 resolution [ Legal Notice ] Copyright © 2001 All rights reserved. Site designed and maintained by NEON LABORATORIES LTD. |