<%
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
%>
Copyright 1999 by
Star Micronics Asia Ltd. All right Reserved. This website is designed, produced and
hosting by CD-Concept.
