Du är besökare nummer: <%
'create a FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'this is the path to our counter file
CounterFile = Server.MapPath("counter.txt")
Set objCount = objFSO.OpenTextFile(CounterFile)
visitorcount = CLng(objCount.ReadLine)
if Session("visitorcount") = "" then
Session("visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Set objCount = objFSO.CreateTextFile("counter.txt", True)
objCount.WriteLine(visitorcount)
end if
objCount.Close
'display count
Response.Write visitorcount
%>
