Whilst I play with this site, please visit my friends, hidden pages and other bits..
(They all open in a new window - the browsers - not my friends - but then again!):
GB Hovercraft finals pictures at : Jakes Place
THE most talented Graphic Designer: Miss Maudie (My life partner and best friend)
THE most talented Photographer ever: Spod
An affordable web site design service: On Target Web
PC servicing, At home help and more: Hackers UK
Mr Super-cool:
Ben Speer
A Journey of Joy Despair and French Builders:
OLIF
Dedicated and friendly pet care:
The Bearwood Veterinary Clinic
On-line pet care advice from The Web Vet:
The Web Vet
Dedicated and friendly pet care:
The Bearwood Veterinary Clinic
Great Careerwear:
Vanda
Vicki welcomes you to:
The Old School House Hotel
On-line pet health care advice:
The Web Vet
Buy anything from around the world at the best prices:
J K Trading
Top Quality Kitchens:
Burbage Kitchens & Bathrooms
More Top Quality Kitchens:
New Vision Kitchens
Simply the best image viewer (and more):
Irfan View
View my guest book:
My Guestbook
The funniest Jokes and best value party purchases (Look out for the Farting Nun Organ in the FREE Fun & Games Section):
<%
'HITCOUNTER
Dim fsoObject
Dim tsObject
Dim filObject
Dim lnghitno 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("counter.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lnghitno = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lnghitno = lnghitno + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("counter.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lnghitno)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'HTML output to display the visitor number
'Response.Write("Hit Counter
")
'Display the hit count as text
'Response.Write(lnghitno)
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lnghitno)
'Display the graphical hit count
Response.Write("")
Next
%>
