|
While others
manufacture menthol, we nurture a passion.
2000 MT per annum of Menthol Crystals. A big part of the pie if
you consider that the worldwide consumption is 11-12000 MT per
annum. Which makes us the sole supplier of almost 1/6th of the
world's Menthol consumption. A feat accomplished by keeping only
one focus - Menthol.
Our product range includes:
- Menthol Crystal BP/USP/EP/JP
- Distilled Mentha Oil -
All Grades
- Dementholised Peppermint
Oil
- Rectified Peppermint Oil
- Mentha Piperita Oil
- Spearmint Oil
- Basil Oil
- Anethole
- Menthone
<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'HTML output to display the visitor number
Response.Write("Visitor Number
")
'Display the hit count as text
'Response.Write(lngVisitorNumber)
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write("![]() ")
Next
%> |
