








Best Viewed at
800 x 600
<%
dim filename
dim fso2
dim ts
dim objfile
dim hitcount
filename="d:\HitCount25.DAT"
set sfo = CreateObject("Scripting.FileSystemObject")
set fso2 = CreateObject("Scripting.FileSystemObject")
if not fso2.FileExists(filename) then
fso2.CreateTextFile(filename)
end if
set objfile=fso2.GetFile(filename)
set ts=objfile.OpenAsTextStream(1,-2)
if (ts.AtEndOfStream) then
hitcount=1
else
hitcount=ts.ReadLine
hitcount=hitcount+1
end if
ts.Close
set ts=objfile.OpenAsTextStream(2,-2)
ts.WriteLine(hitcount)
ts.Close
response.Write hitcount
%>
|

Unit 3, Beza Road, Hunslet,
Leeds. LS10 2BR.
Tel Leeds (0113) 270 4928 Fax Leeds (0113)
270 5327
Our Constant Aim is to Provide Quality Products and
Services to all Our Customers.
Why Not Give Us a Try, You Will Not Be Disappointed.

|
We Only Use Forests Which Have a Sustainable Yield Policy.
|
|