By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,391 Members | 1,387 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,391 IT Pros & Developers. It's quick & easy.

Microsoft VBScript runtime error '800a01a8'

P: n/a
Here is the error I get. Line 13 is the 'do while f.AtEndOfStream = false'
line. Your help is very much appreciated!

Microsoft VBScript runtime error '800a01a8'

Object required: 'f'

/ifaximport.asp, line 13

Here is the code that generates the error:

<%

getCon=Application("connectionObject")
set objIfax=server.CreateObject("adodb.recordset")
objIfax.open "select * from availifax",getcon,3,3
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
Set f=fs.OpenTextFile(server.MapPath("ifaxnumbs.txt"))
do while f.AtEndOfStream = false
Line = f.readline
objIfax.addnew
objIfax("faxnum") = line
set f = nothing
loop%>

Jul 22 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Duh! I was setting the object to nothing inside the loop. Thanks to all who
were about to help!

"Erica" wrote:
Here is the error I get. Line 13 is the 'do while f.AtEndOfStream = false'
line. Your help is very much appreciated!

Microsoft VBScript runtime error '800a01a8'

Object required: 'f'

/ifaximport.asp, line 13

Here is the code that generates the error:

<%

getCon=Application("connectionObject")
set objIfax=server.CreateObject("adodb.recordset")
objIfax.open "select * from availifax",getcon,3,3
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
Set f=fs.OpenTextFile(server.MapPath("ifaxnumbs.txt"))
do while f.AtEndOfStream = false
Line = f.readline
objIfax.addnew
objIfax("faxnum") = line
set f = nothing
loop%>

Jul 22 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.