Help with error '80004005'

Discussion in 'Databases' started by pomme05, Jun 28, 2005.

Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.
  1. I hope someone can please help.

    I get the below error when viewing my page live on the web but I get no error when testing on IIS.

    error '80004005'


    /index.asp, line 41
    Here is the top part of my code (dreamweaver produced)

    <%@LANGUAGE="VBSCRIPT"%>
    <!--#include file="Connections/rsNews.asp" -->
    <%
    Dim rsNews
    Dim rsNews_numRows
    Set rsNews = Server.CreateObject("ADODB.Recordset")
    rsNews.ActiveConnection = MM_rsNews_STRING
    rsNews.Source = "SELECT * FROM News ORDER BY NewsID DESC"
    rsNews.CursorType = 0
    rsNews.CursorLocation = 2
    rsNews.LockType = 1
    rsNews.Open
    rsNews_numRows = 0
    %>
    <%
    Dim rsGlance
    Dim rsGlance_numRows
    Set rsGlance = Server.CreateObject("ADODB.Recordset")
    rsGlance.ActiveConnection = MM_rsNews_STRING
    rsGlance.Source = "SELECT * FROM glance"
    rsGlance.CursorType = 0
    rsGlance.CursorLocation = 2
    rsGlance.LockType = 1
    rsGlance.Open()
    rsGlance_numRows = 0
    %>
    <%
    Dim rsMatch
    Dim rsMatch_numRows
    Set rsMatch = Server.CreateObject("ADODB.Recordset")
    rsMatch.ActiveConnection = MM_rsNews_STRING
    rsMatch.Source = "SELECT * FROM Match ORDER BY DateAdded DESC"
    rsMatch.CursorType = 0
    rsMatch.CursorLocation = 2
    rsMatch.LockType = 1
    rsMatch.Open()
    rsMatch_numRows = 0
    %>
    <%
    Dim Repeat1__numRows
    Dim Repeat1__index
    Repeat1__numRows = 3
    Repeat1__index = 0
    rsNews_numRows = rsNews_numRows + Repeat1__numRows
    %>

    Line 41 is where rsMatch.Open()

    If I remove the completersMatch recordsetthen my page works fine on the live site.

    The code in all recordsets seems to be exactly the same so I can't spot the error, which I have said works fine on my testing server.

    My connection string (if it helps):

    <%
    ' FileName="Connection_ado_conn_string.htm"
    ' Type="ADO"
    ' DesigntimeType="ADO"
    ' HTTP="false"
    ' Catalog=""
    ' Schema=""
    Dim MM_rsNews_STRING
    MM_rsNews_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; Server.MapPath("\_database\MYINFO.mdb") '## MS Access 2000 using virtual path
    %>

    Thanks again..

    Steve
     
  2. Confirm the table name and order by column are correct for the rsMatch code.
     
  3. Hey thanks there, you inadvertantly helped my problem. My issue was the actual name of my table "match", this is also an SQL keyword and therefor can't be used for naming tables. I changed the name to lgeMatch and my problem was no more.
     
Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.

Share This Page