% Set objFile = Server.CreateObject("Scripting.FileSystemObject") visitors = Counter() Function Counter() counterfile = server.mappath("counter.log") Set objStream = objFile.OpenTextFile(counterfile,1,True) visit = objStream.ReadLine objStream.Close visit = visit + 1 Set objStream = objFile.OpenTextFile(counterfile,2,True) objStream.WriteLine visit objStream.Close Counter = visit End Function %>
|
|
Bedford Borough Council | ![]() |
|||
| Sports Equipment | Contact Us | How to Find Us | |||
|
Admission
Prices & Policy |
How to Find Us
Produced by the
IT Unit |
| Sporting Activities | |
| Fitness Classes | |
|
Fitness Gym &
GYMFIT CLUB Membership |
|
| Children's Sessions | |
| Private Hire | |
| Ancillary Facilities | |
| Bedford Leisure Card | |
| Home Page | |