<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Säckpipsföreningen Raven
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close
If Request.Cookies("ravenvisitor") = "" Then
fcount=fcount+1
'This code is disabled due to the write access security on our server:
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
RS.Write fcount
RS.Close
Set RS=Nothing
Set FS=Nothing
Response.Cookies("ravenvisitor") = "yes"
End If
%>
