% 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 |
![]() |
|||
| Contact Us | |||||
| Types of Cards |
CONTACT US Tel:
01234 350300 Office opening hours are: Monday
– Thursday
9am-5pm Any correspondence to be posted should be sent to: Bedford
Leisure Card
Produced by the
IT Unit |
| Card Prices | |
| Who Can Apply? | |
| How To Apply | |
| Concessions | |
| Partners | |
| General Conditions of Use | |
| Home Page | |