Microsoft VBScript runtime (0x800A01B6)

texasraven · February 19th, 2004, 05:50 PM

I'm sure this is very simple, but I am missing something here. (It's my first time)

I'm using VBScript to get some data from a database using ADO, but I'm not able to use any methods on my recordset object. Please help!!!

Error:
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'EOF'
/CE9/asptest.asp, line 23

Likewise, it fails on rs.MoveNext or rs.GetRows.

<%language = "VBScript" %>
<html>
<head>
 <title>ASP Test</title>
</head>
<body>
 <%response.Write "TEST" & " "

 Dim rs, qry, connstr, adoConn, nextloginName, adoCmd, dataArray

 connstr = "Provider = SQLOLEDB; Data Source = server; Initial Catalog = database; User ID = user; Password = user"
 qry = "select loginname from users order by loginname"
 Set adoConn = Server.CreateObject("ADODB.Connection")
 adoConn.ConnectionString = connstr
 adoConn.Open

 Set rs = Server.CreateObject("ADODB.RecordSet")
 Set rs.ActiveConnection = adoConn
 rs = adoConn.Execute(qry)

 Response.Write "Using Move Next "
 while NOT rs.EOF
 response.write rs("loginname") & " "
 rs.MoveNext
 response.write rs("loginname") & " "
 rs.MoveNext
 wend

 %>
</body>
</html>

Yehuda · February 19th, 2004, 06:00 PM

Check to see if the connection string opened. Also once you have set the rs object and the active connection why not use the recordset.open command instead of connection.execute. You should put some error trapping to see what line the error first occurs at.

texasraven · February 19th, 2004, 06:04 PM

Connection string is working. I can get the script to print the first record on the web page, but I cannot user MoveNext or any other method on rs, to be able to navigate through rs.

all these methods give me the same error:
MoveNext, EOF, GetRows, RecordCount

In the code I provided, the error occurs at:
while NOT rs.EOF

and the error is: Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'EOF'

Thanks

Quote:

quote:Originally posted by Yehuda
Check to see if the connection string opened. Also once you have set the rs object and the active connection why not use the recordset.open command instead of connection.execute. You should put some error trapping to see what line the error first occurs at.

Imar · February 19th, 2004, 06:36 PM

If you're using the Execute method of the Connection object, there is no need to define a Recordset first. Instead, assign the results of the Execute method directly to the recordset.

Even if you don't do this, you still need to use Set to assign the Recordset:

Code:

' Set rs = Server.CreateObject("ADODB.RecordSet") -- Not needed
' Set rs.ActiveConnection = adoConn -- Not needed
Set rs = adoConn.Execute(qry)

HtH,

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

DaveGerard · February 23rd, 2004, 02:14 AM

Try this and see what happens.

cn = "Provider = SQLOLEDB; Data Source = server; Initial Catalog = database; User ID = user; Password = user"

set rs = server.createobject("adodb.recordset")
sql = "select loginname from users order by loginname"
rs.open sql, cn
if not rs.eof then
 do while not rs.eof
 response.write rs("loginname") & " "
 rs.movenext
 loop
end if
rs.close
set rs = nothing

hellosnv · June 22nd, 2004, 01:43 AM

I'm also facing the same problem but in different scenario... I'm going to get the data from database through a COM+ DLL(Developed in Delphi 5.0 on Windows 2000 Prof with SQL Server 2000) . In the DLL i am able to get the Data (Tested by writing the data to a log file). but in the ASP File i'm getting the 0x800A01B6 error. Can anybody guide me where i'm doing the mistake...

Here is my ASP code...where COMPro.COMProImpl is a COM+ Application.
<%
set FCOMObj = CreateObject("COMPro.COMProImpl")
if (Err.number <> 0) then
 Response.Write("Error " & Err.description) & " "
end if

FRSet=FCOMObj.SelectSQL(FSQL) <--This will return a "_RecordSet" MDAC 2.8
if (Err.number <> 0) then
 Response.Write("Error " & Err.description) & " "
end if

Response.Write("1111111111111111") & " "

if IsObject(FRSet) then
 Response.Write("FRecSet is an object ") & " "
else
 Response.Write("FRecSet is not an object ") & " "
end if

do until FRSet.EOF <------ Here i'm getting that error...
 FRegID = FRSet("RegistrationID") & " "
 Response.Write(FRegId)
 FRSet.MoveNext
loop

set FCOMObj = nothing
set FRSet = nothing
%>

Imar · June 22nd, 2004, 01:58 AM

If you're facing the exact same problem, than I assume the exact same solution applies to you as well.....
Please read my earlier post for the answer. You'll need to use the Set keyword.

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.
While typing this post, I was listening to: Under The Bridge by Red Hot Chili Peppers (Track 11 from the album: Blood Sugar ************ Magik) What's This?

madhukp · June 22nd, 2004, 01:59 AM

Hello texasraven,

I can see two movenext statements inside the while loop. This is causing the problem. When your recordset fetches even number of records, it will work correctly. But when the number is odd, it will create problem at the second movenext statement. It would have reached EOF at the first movenext statement. Another call to movenext will cause problem.

hellosnv · June 23rd, 2004, 12:25 AM

Yeah! thanks it worked...

hellosnv · June 23rd, 2004, 03:05 AM

When i call that asp page through internet Explorer i am getting the following Output (error). Can anyone please guide me, how can i overcome this ? (I placed the asp code in my previous posting)

Description : The user has given all rights except administrator rights.

What type of permissions the user need to create an object..?

The site from where i'm accessing this page, it is with SSL (i mean secured). I'm able to get the results perfectly when i tried the same thing in my localhost.

0000000000000000

Server object error 'ASP 0178 : 80070005'

Server.CreateObject Access Error

/test/comapp.asp, line 23

The call to Server.CreateObject failed while checking permissions. Access is denied to this object.