BOROSIL® is the only manufacturer in India producing Specialty Glass and Glassware. The company melts its own low expansion, heat resistant, chemically durable borosilicate glass.
The Products manufactured from this glass include Scientific and Laboratory ware, Industrial ware including Process systems, Lighting ware, Pharmaceutical ware and Consumer ware. It is the only indigenous manufacturer and supplier of raw materials required for the glassware fabrication industry in the country.
<%
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("borosil.mdb")
'set rs=server.CreateObject("Adodb.Recordset")
'if session("email_count")="" then
'rs.open "Count_emails",conn,2,2
'session("email_count")=rs.Fields(0)
'session("email_count")=session("email_count")+1
'rs.Close
'set rs=nothing
'sql="Update Count_emails set email_no='"& session("email_count") &"'"
'set rs=conn.Execute(sql)
'conn.Close
'end if
%>
<%
if Request.Form("ctype")="Products" then
' Response.Write "V Ramaswamy "
strto="vr@borosil.com"
' strto="sudha_padave@yahoo.com"
elseif Request.Form("ctype")="Services" then
' Response.Write "Poornima "
' strto="samiksha_kshirsagar@rediffmail.com"
strto="samiksha.kshirsagar@borosil.com"
elseif Request.Form("ctype") = "Website" then
' strto="samiksha_kshirsagar@rediffmail.com"
strto="samiksha.kshirsagar@borosil.com"
elseif Request.Form("ctype") = "Others" then
' Response.Write "Samiksha "
' strto="samiksha_kshirsagar@rediffmail.com"
strto="samiksha.kshirsagar@borosil.com"
end if
'Response.Write strto & " "
%>
<%
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "BOROSIL Glass Works Ltd."
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "
"
HTML = HTML & "
"
HTML = HTML & "Feedback
"
HTML = HTML & "
Name:-
"
HTML = HTML & "
" & Request.Form("fname") & "
"
HTML = HTML & "
Organzation Name :-
" & Request.Form("company") & "
"
HTML = HTML & "
Job Title :-
" & Request.Form("job") & "
"
HTML = HTML & "
Address :-
" & Request.Form("address") & "
"
HTML = HTML & "
Postal Code :-
" & Request.Form("area") & "
"
HTML = HTML & "
Country :-
" & Request.Form("Country") & "
"
HTML = HTML & "
Email Address :-
" & Request.Form("email") & "
"
HTML = HTML & "
Mobile No. :-
" & Request.Form("mobile") & "
"
HTML = HTML & "
Phone :-
" & Request.Form("tel") & "
"
HTML = HTML & "
Fax :-
" & Request.Form("Fax") & "
"
HTML = HTML & "
Feeback about :-
" & Request.Form("ctype") & "
"
HTML = HTML & "
How long have you been using BOROSIL products/services?
" & Request.Form("service_period") & "
"
HTML = HTML & "
Comments :-
" & Request.Form("Comments") & "
"
HTML = HTML & "
"
HTML = HTML & ""
HTML = HTML & ""
myMail.From=Request.Form("email")
myMail.To=strto
myMail.Cc="samiksha.kshirsagar@borosil.com"
myMail.Subject="www.borosil.com - Feedback from users "
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
' Response.Write "Message Sent" & " " & HTML
%>
