Picture Picture Spacer Spacer Site Map Site Search Background
company Technology Products News employment contact


Sharex at a Glance
Highly versatile, patented technologies. Key advantages:
- Formulation flexibility
- Ease of administration
- Precise onset of drug release
- Controlled drug delivery
- Stability
You are visitor Number: <% '******************************************************* '* http://www.sadiqabad.com author..Altaf Rehman * '* * '* This code is made available as a service to our * '* visitors * '* purpose * '* * '* Please direct all inquiries to webmaster@sadiqabad.com * '******************************************************* %> <% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim bUseImages ' boolean whether or not to use images Dim I ' standard looping var ' Determine whether we use images or plain text ' You could just set this to True or False instead bUseImages = CBool(Request.QueryString("images")) ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.cnt then change this or watch out! strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing ' We're all done with the hard part ' All that's left is to display the results If bUseImages Then ' Loop through the count integer showing each digit ' You can grab the images one at a time or get the zip ' http://www.asp101.com/samples/download/counter_imgs.zip For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "" Next 'I Else ' No image wanted just show the variable Response.Write iCount End If %>


Sharex Laboratories was established in 1962 by two young and energetic Pharmacists with a merge capital of RS. 1,00,000/- (US $ 10,000) only. The main objective was to manufacture and market products commonly required by people at moderate prices with excellent quality. As a result of our intensive efforts, we have been growing steadily and have established a prominent position in Pharmaceutical Industry in Pakistan. Now our authorised capital is RS. 2,00,00,000.00 ( US $ 20,00,000) and our position among Pakistan Pharmaceutical Manufacturers is 15th (Investment and Sales-wise) excluding 24 multinational joint ventures. 

 At present, we are marketing 54 registered products which are enjoying excellent sales in Pakistan. However, to take advantage of international research in pharmaceuticals, we are keeping close contacts with the prominent pharmaceuticals companies throughout the world and are going to introduce some latest research products in Pakistan shortly. 

Company's The Pharmaceutical Industry in Pakistan is facing a number of difficult problems such as intensification of governmental regulations, increase in developmental cost, period for registration of new drugs and strict price control. Sharex is determined to overcome these difficulties and to contribute towards the betterment in the health and welfare of mankind.