468,783 Members | 1,697 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,783 developers. It's quick & easy.

Microsoft VBScript runtime error '800a01a8'

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
1 3716
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.

Similar topics

reply views Thread by =?Utf-8?B?TWF0dCBDYWxob29u?= | last post: by
reply views Thread by zhoujie | last post: by
2 posts views Thread by Marin | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.