<%@ Language="VBScript" %> <% Response.Expires= -1 Response.AddHeader "Cache-Control", "no-cache" Response.AddHeader "Pragma", "no-cache" %> <% if Session("ct") = "" then fp = Server.MapPath("count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) ct = ct + 1 Session("ct") = ct a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) a.Close Set a = Nothing Set fs = Nothing else ct = Clng(Session("ct")) end if %> New Page 1
 
 

 

  
 

 

 

 

 
 

 
 

 
         

 
 Copy Right © UNIC, Dhaka, Bangladesh

  Stand up & Take Action

  
   Last Updated:  22 December 2008