cInt Overflow

[MaZoR]

Hej.

 

Jag har kört med en vanlig textfilsräknare till "Antal besökare" (vilket är öppet för allmänheten) och har en privat räknare som bara jag och crewet på sidan kan komma åt som har allting vi behöver. Men allmänheten vill också se antalet besökare.

 

Vad som nu är problemet är att denna textfilfunktion har slutat fungera. Jag kör med följande kod:

 

 

<%

Besok = Server.MapPath( "raknare.txt" )

Set FileObject = CreateObject("Scripting.FileSystemObject")

Set InStream = FileObject.OpenTextFile(Besok, 1, true)

If not InStream.atEndOfStream and Session("raknad") = "" Then

alla = CInt(Instream.ReadLine) + 1

else

alla = Instream.Readline

end if

Instream.Close

set instream = Nothing

Set OutStream = FileObject.OpenTextFile(Besok, 2, true)

Outstream.WriteLine alla

Outstream.Close

set OutStream= Nothing

set FileObject = Nothing

Session("raknad") = "1"%>

 

Koden är inget fel på, för den fungerar på andra sidor.

Felmeddelandet blir:

Overflow 'cInt' när jag lägger in koden.

Vad är felet?

 

[jockesoft]

Troligtvis är

alla = CInt(Instream.ReadLine) + 1

 

för stor för CInt, prova att ändra till CLng istället.

 

/Jocke