<%@ Language=VBScript %>
<%
Dim antalbesok, txtRaknare
If not session("raknare") = "aktiv" Then
set fso = CreateObject("scripting.filesystemobject")
'set nyfil = fso.createtextfile("c:\ovning\citat.txt")
set txtRaknare = fso.OpenTextFile("raknare.txt")
antalbesok = txtRaknare.readLine
txtRaknare.Close
'adera räknaren med 1
antalbesok = cint(antalbesok) + 1
session("antalbesok") = antalbesok
set fso = CreateObject("scripting.filesystemobject")
set txtRaknare = fso.OpenTextFile("raknare.txt",2)
txtRaknare.Write(antalbesok)
txtRaknare.Close
End if
%>
Squash-hallen
