<% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = ("C:\counterIndex.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %>
Novartis.com
Novartis.com page header
Search Novartis.com.au
Go
Home
Product Information
Our Businesses
Diseases and Conditions
Corporate Citizenship
Careers
Patient Group Support

Countries
Contact
Help
counties

Novartis Australia

Novartis Australia is a leading provider of innovative solutions to improve health and well-being.


Our businesses include - pharmaceuticals, consumer health, generics, eye-care, and animal health - and enable us to help people right around Australia deal with the challenges of conditions as diverse as breast cancer, mental illness, menopause and fungal infections. Novartis also provides solutions to enhance eye care, animal care and meet the nutritional needs of ill people.


Created in 1996 from the merger of Swiss companies, Ciba and Sandoz, Novartis has a history in Australia going back over fifty years.


Novartis employs more than 500 people across Australia, and invests over $27m annually in local research and related activity. This research not only assures the effectiveness of the company's current range of treatments, but secures the promise of improving health for the future.