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.

 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

[LarsG]

Lägg till lite testutskrifter

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>"