Discussion Locked

VBScript runtime error '800a01a8'

0 helpful
10 replies
Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

I am using Personal Web Server with Win98. Also using MySQL release 3.51.

Microsoft VBScript runtime error '800a01a8'

Object required: 'ADODB'

/webpub/Parts.asp, line 5

The following is the code, can someone help please

<%
strConnect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\WorkStuff\Parts.mdb"
set conn=Server.CreateObject("ADODB.Connection")
conn.Open strConnect
set rsParts=Server.CreateObject(ADODB.Recordset)
strLocalSQL="SELECT Part Number.Parts, Part Description.Parts"
rsParts.open strLocalSQL
%>

Part Numbers

<%
rsParts.MoveFirst
Do Until rsParts.EOF

Response.Write"

"
Exit Do
rsParts.MoveNext
LOOP
%>

Part Number

Part Description

"& rsParts("Part Number") &" "& rsParts("Part Description") & "

10 replies

by ann777

http://www.aspcode.net/forum/viewthread.php?tid=2337

------
Do you have this ERROR?

Microsoft VBScript runtime error '800a01a8'
Object required: 'oFile'
/admin-tx/stats/incstats.asp, line 72

Well,
here's what you need to do! Not only must you set WRITE permissions in IIS - BUT you must also set NTFS Permissions. Simply add IUSR_(HOST) (Host being your machine name) with full Permissions to that directory and BOOM - problem gone.

by goodwin2000

Not sure if this would help really, due the fact that I am running Personal Web Server on Windows 98.

by goodwin2000

Please note that I am running Personal Web Server on Windows 98. Thus perrmissions aren't able to be modified

by jay eckles

I'm guessing that the problem is that
set rsParts=Server.CreateObject(ADODB.Recordset)
should be
set rsParts=Server.CreateObject("ADODB.Recordset")
(note the quotation marks).

If that doesn't solve the problem, search MSDN.microsoft.com for "Visual Basic error 800a01a8" and/or "ADODB". You should find all the articles you need to point you in the right direction.

Good luck.

Jay Eckles
www.jayeckles.com

by primo5959

Sir,
You have missed out the " (enclosing quotes) when creating Recordset Object.

set rsParts=Server.CreateObject(ADODB.Recordset)

Use
set rsParts=Server.CreateObject("ADODB.Recordset")

Thanks.

This discussion is closed to new replies.