<%@ Language=VBScript %> <% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' count text file Dim iCount ' count variable Dim bUseImages ' boolean Dim I ' looping var 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 objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing For I = 1 to Len(iCount) Next %> BronkoTest










Take control of your lung condition using the new BronkoTest

With the BronkoTest system, you can better understand your lungs. At times when your condition gets worse, you and your doctor or healthcare professional will be able to tell what action you should take, including whether you need a course of antibiotics. You and your doctor or healthcare professional may even be able to manage some episodes by talking it through over the telephone.

General Principles of BronkoTest

BronkoTest is a monitoring tool that enables patients and their doctors / healthcare professionals to manage their condition more efficiently
Sputum colour is a central feature of an agreed patient self-care strategy
Sputum colour is based on a scientific understanding of the interaction of bacteria and your body's defences in the airways
Sputum colour tells you whether antibiotic therapy is needed when you have an episode when your condition gets worse

The BronkoTest system is the result of over 20 years of research by some of the world's leading experts in respiratory disease. Now BronkoTest Ltd., in collaboration with these scientists, has launched a COPD Monitoring Pack. The aim of this pack is to help people with bronchitis and emphysema (collectively known as Chronic Obstructive Pulmonary Disease or COPD), along with their doctors and healthcare professionals, to manage episodes when their usual symptoms get worse.
Need help? Email support@bronkotest.com
©Copyright 2005 BronkoTest Ltd. All rights reserved.
You are visitor number: <%Response.Write iCount%>