Hejsan!

Har använt mig utan en mycket simpel räknare som använder sig utav ett text-dokument... raknare.txt

Såhär ser koden ut:

<%

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileRead = objFSO.OpenTextFile(Server.MapPath("raknare.txt"), 1, True)

If Session("Counted") = "" Or IsNull(Session("Counted")) Then

If objFileRead.AtEndOfStream = False Then iCounter = objFileRead.ReadAll Else iCounter = 0
If iCounter = "" Or IsNumeric(iCounter) = False Then iCounter = 0
iCounter = CInt(iCounter) + 1
Set objFile = objFSO.OpenTextFile(Server.MapPath("raknare.txt"), 2, True)
objFile.Write iCounter
objFile.Close
Set objFile = Nothing

Else

If objFileRead.AtEndOfStream = False Then iCounter = objFileRead.ReadAll Else iCounter = 1

End If

Session("Counted") = True

Set objFileRead = Nothing
Set objFSO = Nothing

%>



Allting funkar fint men när det kommer upp runt 33.000 så flippar det och det blir fel... Visst har löst det att jag adderade förra siffrar med nuvarande och nollställde den men tycker det är konstigt, nån som fattar vad det kan va?!