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

%>