Gecko designed by Miss Maudie

MIKES 50th

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): SillyJokes.co.uk - Online Joke & Party Shop

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

Streamline.Net The home of good value web hosting