Microsoft Cursor Engine error '80004005' - PLEASE HELP ME!!!

  • mindtripstudios
  • Newbie
  • Newbie
  • mindtripstudios
  • Posts: 5

Post 3+ Months Ago

http://www.niamecollections.com/newsite ... ion=search - If you go to that link you will see the error I get... It goes as follows:

Quote:
Microsoft Cursor Engine error '80004005'
Data provider or other service returned an E_FAIL status.

/newsite/sbt.asp, line 70


I dont think there is an error in that line (but I hope I am wrong and one of you guys/gals can help me....) Im in dire need of a resolution...

Here is the code:
Code: [ Select ]
<table width="390" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="390" height="5" colspan="3"></td>
</tr>
<%
If action = "search" Then
Connect.open Cstring

Set rsSearch = Server.CreateObject("ADODB.Recordset")
sqlcom = whereclause
rsSearch.CursorLocation = 3
rsSearch.Open sqlcom, Connect, 3

numresults = rsSearch.RecordCount

If numresults = -1 Then
numresults = 0
End If

i = 1
%>
<tr>
<td height="18" colspan="2" valign="top" background="images/bar.gif"> <div align="center"></div>
<div align="center"><img src="images/searchr.gif" width="110" height="18"></div></td>
</tr>
<tr>
<td width="100%" height="20" valign="top"><strong><font size="2" face="Tahoma">Results: <%=Response.Write(numresults)%> </font></strong></td>
</tr>
<tr>
<td colspan="2" valign="top"> <%
IF Not rsSearch.eof Then
Do Until rsSearch.eof
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="bottom">
<td height="25" colspan="2"><font size="2" face="Tahoma"><strong><%=i%>.</strong> <em><a href='product.asp?ID=<%=rsSearch("productID")%>'><%=rsSearch("productName")%></a></em></font></td>
</tr>
<tr>
<td width="10%"> </td>
<td width="90%"><font size="2" face="Tahoma"><%=left(rsSearch("productDesc"), 100)%>...</font></td>
</tr>
<tr>
<td colspan="2"><div align="right"><strong><font color="930025" size="2" face="Tahoma">$<%=rsSearch("productPrice")%></font></strong></div></td>
</tr>
</table>
<%
i = i + 1
rsSearch.MoveNext
Loop%></td>
</tr>
<tr>
<td colspan="2" valign="top"> </td>
</tr>
<%
Else
%>
<tr align="center">
<td colspan="2"><font size="2" face="Tahoma"><br>
Sorry, there are no results for the type you selected at this time. You
can search again or check back soon for updates.<br>
</font></td>
</tr>
<tr align="center">
<td height="40" colspan="2"> </td>
</tr>
<%
End If
%>
  1. <table width="390" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  2. <tr>
  3. <td width="390" height="5" colspan="3"></td>
  4. </tr>
  5. <%
  6. If action = "search" Then
  7. Connect.open Cstring
  8. Set rsSearch = Server.CreateObject("ADODB.Recordset")
  9. sqlcom = whereclause
  10. rsSearch.CursorLocation = 3
  11. rsSearch.Open sqlcom, Connect, 3
  12. numresults = rsSearch.RecordCount
  13. If numresults = -1 Then
  14. numresults = 0
  15. End If
  16. i = 1
  17. %>
  18. <tr>
  19. <td height="18" colspan="2" valign="top" background="images/bar.gif"> <div align="center"></div>
  20. <div align="center"><img src="images/searchr.gif" width="110" height="18"></div></td>
  21. </tr>
  22. <tr>
  23. <td width="100%" height="20" valign="top"><strong><font size="2" face="Tahoma">Results: <%=Response.Write(numresults)%> </font></strong></td>
  24. </tr>
  25. <tr>
  26. <td colspan="2" valign="top"> <%
  27. IF Not rsSearch.eof Then
  28. Do Until rsSearch.eof
  29. %><table width="100%" border="0" cellspacing="0" cellpadding="0">
  30. <tr valign="bottom">
  31. <td height="25" colspan="2"><font size="2" face="Tahoma"><strong><%=i%>.</strong> <em><a href='product.asp?ID=<%=rsSearch("productID")%>'><%=rsSearch("productName")%></a></em></font></td>
  32. </tr>
  33. <tr>
  34. <td width="10%"> </td>
  35. <td width="90%"><font size="2" face="Tahoma"><%=left(rsSearch("productDesc"), 100)%>...</font></td>
  36. </tr>
  37. <tr>
  38. <td colspan="2"><div align="right"><strong><font color="930025" size="2" face="Tahoma">$<%=rsSearch("productPrice")%></font></strong></div></td>
  39. </tr>
  40. </table>
  41. <%
  42. i = i + 1
  43. rsSearch.MoveNext
  44. Loop%></td>
  45. </tr>
  46. <tr>
  47. <td colspan="2" valign="top"> </td>
  48. </tr>
  49. <%
  50. Else
  51. %>
  52. <tr align="center">
  53. <td colspan="2"><font size="2" face="Tahoma"><br>
  54. Sorry, there are no results for the type you selected at this time. You
  55. can search again or check back soon for updates.<br>
  56. </font></td>
  57. </tr>
  58. <tr align="center">
  59. <td height="40" colspan="2"> </td>
  60. </tr>
  61. <%
  62. End If
  63. %>
  • Anonymous
  • Bot
  • No Avatar
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post 3+ Months Ago

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • User avatar
  • Posts: 9090
  • Loc: Seattle, WA & Phoenix, AZ

Post 3+ Months Ago

Of that code you provided which one is line #70 for sbt.asp
  • mindtripstudios
  • Newbie
  • Newbie
  • mindtripstudios
  • Posts: 5

Post 3+ Months Ago

Code: [ Select ]
numresults = rsSearch.RecordCount
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • User avatar
  • Posts: 9090
  • Loc: Seattle, WA & Phoenix, AZ

Post 3+ Months Ago

It might be returning that error because its not implemented. Check out this page at microsoft:

http://support.microsoft.com/default.as ... US;q269361

HOWTO: Work Around the Limitation that ADO MaxRecord Is Not Implemented in DS OLEDB Provider ADsDSOObject

This article was previously published under Q269361
SUMMARY
The MaxRecord method off of an ADO Recordset object is not implemented in the Directory Services (DS) OLEDB provider ADsDSOObject.

This article provides a Microsoft Visual Basic and a Microsoft Visual Basic Script sample that show how you can work around this limitation.
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • User avatar
  • Posts: 9090
  • Loc: Seattle, WA & Phoenix, AZ

Post 3+ Months Ago

You might also make sure that you use ado 2.5, 2.6 -- you can search support.microsoft.com for that I think.
  • mindtripstudios
  • Newbie
  • Newbie
  • mindtripstudios
  • Posts: 5

Post 3+ Months Ago

Thanks a lot, my design team is going to try that out.... If you have any other ideas please post them. Ill post the results to this too...
  • mindtripstudios
  • Newbie
  • Newbie
  • mindtripstudios
  • Posts: 5

Post 3+ Months Ago

how would i use this workaround in my code - thanks

Post Information

  • Total Posts in this topic: 7 posts
  • Users browsing this forum: No registered users and 72 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
 

© 1998-2014. Ozzu® is a registered trademark of Unmelted, LLC.