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>"
1 svar · 182 visningar · startad av 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
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>"