Home l  Feedback I   Contact Us I GPG Portal I   Disclaimer

Policies

National Policy on Whole-School Evaluation

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 
<% Function HitCount() fp = Server.MapPath("aspcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = a.ReadLine if ct = "" then ct = 1 else ct = ct + 1 end if Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) a.Close response.write (ct) End Function %>