Räknare hoppa med 7 steg

[fundrusse]

Har kod för en räknare här..
Nu undrar jag vad som är felet med koden. För räknaren hoppar med 7 steg i taget.. Dvs 7 - 14 - 21 etc.

[kod]
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("page.counter"))
counter = act.readline
counter = counter + 1
act.close

Set act = fso.CreateTextFile(server.mappath("page.counter"), true)
act.WriteLine(counter)
act.Close
[/kod]

[LarsG]

Lägg till lite testutskrifter

[kod]
counter = act.readline
response.write "Debug: Value of counter after read " & counter & "<br>"
counter = clng(counter) + 1
response.write "Debug: Value of counter after assign " & counter & "<br>"
[/kod]