troubleshooting Question

ADODB.Recordset error '800a0e78'

Avatar of seanpowell
seanpowellFlag for Canada asked on
ASP
4 Comments1 Solution753 ViewsLast Modified:
I'm getting the error:

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

Can anyone see why?

<%@ Language=VBScript%>
<html>
<head>
<title>Display all Records</title>
</head>
<body>

<%
   
   Set DataConn = Server.CreateObject("ADODB.Connection")
   Set RS = Server.CreateObject("ADODB.RecordSet")
   DataConn.Open "DBQ=" & Server.Mappath("../db/cc.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
   Set rsDsp = DataConn.Execute("SELECT * FROM results")
   
   If rsDsp.EOF Then
   Response.Write "Sorry, no entries in the database yet!"
   Else
%>

<table BORDER="0">
   <tr>
     <th></th>
     <th></th>
   </tr>
 <%
   While Not rsDsp.EOF
     x = x + 1
     If x = 1 Then
       Response.Write "<TR><TD>" & rsDsp.Fields.Item("Q1").Value & "</TD>"
       Response.Write "<TD>" & rsDsp("comments").Value & "</TD></TR>"
     Else
       Response.Write "<TR><TD bgcolor=eeeeee>" & rsDsp.Fields.Item("Q1").Value & "</TD>"
       Response.Write "<TD bgcolor=eeeeee>" & rsDsp("comments").Value & "</TD></TR>"
       x = 0
     End If
     
     rsDsp.MoveNext
   Wend
   Response.Write "</TABLE>"  
   
   RS.Close
   DataConn.Close
   
   End If
   %>
 </table>


</body>
</html>

Thanks in advance :-)
ASKER CERTIFIED SOLUTION
NeoTeq

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros