Home | About TANSACS | What is HIV/AIDS? |Promoting Awareness | Non - Govermental Organisations - NGOs | Blood Bank Directory | Online Consultation | Related Organisation| STD Clinics | Integrated Counselling and Testing Centers |Interact | Video Spots| Reports | Openings | Related Links |Glossary of Items| Site Map |Contact | 2005 contest winners
	This site has been visited <% On Error Resume Next Dim FSO Dim TS Dim lngCount Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS = FSO.OpenTextFile(Server.MapPath("Database\counter.txt"),1,True) lngCount = CLng(TS.ReadAll) TS.Close If Err.number = 0 Then If Session("Visited") = "" Then lngCount = lngCount + 1 Set TS = FSO.OpenTextFile(Server.MapPath("Database\counter.txt"),2) TS.Write lngCount TS.Close End If End If Set FSO = Nothing Session("Visited") = "1" %> <% = lngCount %> times.    © TANSACS 2006 email us at : info@tansacs.org Website Concept, Designed & Maintained by Dot Com Infoway