<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile (Server.MapPath ("counter/count.txt"))
ct = Clng(a.ReadLine)
ct = ct + 1
a.close
Set a = fs.CreateTextFile (Server.MapPath ("counter/count.txt"), TRUE)
a.WriteLine(ct)
' end if
a.Close
%>