Just nu i M3-nätverket
Jump to content

cInt Overflow


MaZoR

Recommended Posts

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?

 

Link to comment
Share on other sites

Troligtvis är

alla = CInt(Instream.ReadLine) + 1

 

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

 

/Jocke

 

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...