<%@ Language=VBScript %>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile="D:/counter/quarter.txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
qhits = Clng(a.ReadLine)
qhits = qhits + 1
a.close
if error then
qhits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(qhits)
a.Close
%>
quarter (www.quarter.nl)