Besöksräknare som sparas i en txtfil?

Skapa en fil som heter "besokare.txt", kör kåden, klart.

<%
Response.write ("Antal bes&ouml;kare: ")
on error resume next 
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("besokare.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close

Set act = fso.CreateTextFile(server.mappath("besokare.txt"), true)
act.WriteLine(counter)
act.Close

on error resume next 
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("besokare.txt"))
counter = clng(act.readline)
counter = counter + 0
act.close
Set act = fso.CreateTextFile(server.mappath("besokare.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write counter
%>