<%
Dim Counter
Sub IncrementCounter()
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("counter.txt")
Set txt = fs.OpenTextFile( counter_file )
Counter = txt.ReadLine
txt.Close
Counter = Counter + 1
Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Counter)
txt.Close
End Sub
Application.Lock
IncrementCounter
Application.UnLock
%>
This Website is
uses Flash extensively. If you can't see a animation, Pleases click
here todownload the Shockwave plug-in
or click
here for text version Copyright 2000 by TBI Limited. All right Reserved.