Avian Influenza

Avian Influenza, Pandemic Influenza, Outbreaks and Disasters

Dengue fever

Dengue fever information pool

For the well-being of Thais

" We work for the well-being of Thais"

Mission

        Mission to develop and carry out samples collecting and delivery system, laboratory testing result report system, national surveillance database administration, and preparation of special task force unit for operating in pandemic situations and emergencies.

        The performance of the CCLTS will be complied with the standard of the quality system of the Thai-NIH in order to be the major part in increasing efficiency of NIH in medical tasks and responsibilities.
 

 

  




www.cclts.org
Everywhere
 
Toxicology :
Infectious disease and carrier :
Quality assurance and laboratory :
Herbs :
ิToxicology in Northern provinces:
Cosmetics:
Radiology and medical instruments:  
 
<% '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("db/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) 'If the session variable is null or does not exsist then increment the counter number If isEmpty(Session("blnCounterSet")) = True Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Set the session variable to true Session("blnCounterSet") = True End if 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("db/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("จำนวนผู้เข้าชม") '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 %>
(Start 1 Octoter 2005)
Main   |   Laboratory testing fees    |  Samples collecting |  แจ้งข่าว  |   Contact us