Home l   Links l  Feedback I   Contact Us I GPG Portal I   Disclaimer

Events Diary

May 2008

Sun

Mon

Tue

Wed

Thu

Fri

Sat

 

 

 

 

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 
<% 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 %>