I keep getting this strange error message with the following script. I am trying to access data from a database and write it to a webpage. I am using SunOne ASP.

########
ERROR MESSAGE:
########
Error Type:
Sun ONE ASP VBScript runtime (0x800A01AE)
Class does not support automation
/testing1.asp, line 11

########
SCRIPT:
########
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim PeopleRS, sConnString, myConn, mySQL
Set myConn= server.CreateObject("ADODB.Connection")
sConnString="DSN=database1"
myConn.Open sConnString
mySQL = "Select * from People"
Set PeopleRS = myConn.Execute(mySQL)
Response.Write "<table>"
do while not PeopleRS
Response.Write "<tr>"
Response.Write "<td>" & PeopleRS("ID").value & "</td>"
Response.Write "<td>" & PeopleRS("People").value & "</td>"
Response.Write "<td>" & PeopleRS("Comment").value & "</td>"
Response.Write "</tr>"
PeopleRS.MoveNext
loop
Response.Write "</table>"
Set PeopleRS = nothing
Set myConn = nothing
%>

Now I'm getting the following error message:

Error Type:
ADODB.Connection.1 (0x80004005)
SQLState: S1000 Native Error Code: -1045 [DataDirect][ODBC SequeLink driver][ODBC Socket][Microsoft][ODBC Microsoft Access Driver] Not a valid bookmark.
/testing1.asp, line 7

What is the difference between SunOne ASP and MS ASP?

for your first error wouldn't you need to change line 11 to

do while not PeopleRS.eof
??

As for the second, did you change anything in the code to cause that??

Do what rokslide says

"do while not PeopleRS.eof"

then,

Try creating the recordset object after this line:

Set myConn= server.CreateObject("ADODB.Connection")

Set PeopleRS = server.CreateObject("ADODB.Recordset")

Then after you create the SQL statement, you can:

Set PeopleRS = myConn.Execute(mySQL)

Also, it is more efficient to select exactly what you want not '*'.

mySQL = "Select ID, People, Comment From People"

Made the necessary changes to the code. Now I'm getting an error message relating to line 8

Error Type:
ADODB.Connection.1 (0x80004005)
SQLState: S1000 Native Error Code: -1045 [DataDirect][ODBC SequeLink driver][ODBC Socket][Microsoft][ODBC Microsoft Access Driver] Not a valid bookmark.
/testing1.asp, line 8

Come on guys... help me out... I'm just about to give up! Any suggestions?

Sorry, can't help you with that one dude, I have never seen the error message before.

Is line 8 the connect line or the query line??

If it is the connect line check you ODBC/DSN details, otherwise check your database and made sure your table is correct.

Hello,

If you got the solution for your above problem please let me know.
i am getting the same error

You don't generally execute a recordset (SELECT statement), instead you Open() instead.

Also, your loop should read
Try this and let us know how you get on.

Thanks a lot,
its working now
Thanks again

Can you tell us exactly what you did to fix the issue?

It will benefit all future readers of the thread to have a final answer!

before I have declared variable like below:
set Rs=Server.CreateObject("ADODB.RecordSet")

Now i changed it to simply
set Rs=con.Execute(Sql)

and it worked
thanks

how to store and retrieve hindi data in sqlserver 2005? if anyone can suggest plz reply...