\
Bøger
Snik Snak
Galleri
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("../counter.txt")
on error resume next
Set count = fs.OpenTextFile(Wfile)
hits = Clng(count.ReadLine)
count.close
If Not session("isCounted") Then
hits = hits + 1
count.close
if error then
hits = 1
end if
Set count = fs.CreateTextFile(Wfile,True)
count.WriteLine(hits)
count.Close
session("isCounted") = True
End If
%>
