input past end of file
Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=4742
Printed Date: 30 March 2026 at 10:06am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: input past end of file
Posted By: cuedog
Subject: input past end of file
Date Posted: 04 August 2003 at 6:51pm
I am receiving this error.
Category = Microsoft VBScript runtime
Number = 0x800A003E
Description = Input past end of file
Here is the code
<%
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("/hits.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("/hits.txt"))
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
%>
Here is the line with the error
lngVisitorNumber = CLng(tsObject.ReadAll)
There hasn't been any error on this in over 200,000 hits. What could be the problem?
|
Replies:
Posted By: KCWebMonkey
Date Posted: 04 August 2003 at 9:27pm
|
If this was already working and you haven't changed anything, have you checked your web host to see if they changed anything? (directory permissions maybe?)
|
Posted By: cuedog
Date Posted: 04 August 2003 at 9:44pm
|
Thanks for the reply!No, I haven't checked my webhost yet. It's odd though. There has been no error then there was an error on 3 clicks in a row then there was no errors again. All this without any changes. Next thing I will check is my webhost status.
|
|