Irriterende fejl ADO 800a0bb9

Sørg for at connection objectet MM_connDUdirectory_STRING eksisterer, ellers vil du få denne fejl.

prøv med det her:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="adovbs.inc" -->
<!--#include file="Connections/connDUdirectory.asp" -->
<!--#include file="admentor/include/admentor2.asp"-->
<%
Session.LCID = 1030
%>
<%
'åbner connection
set conn = server.createobject("adodb.connection")
conn.open MM_connDUdirectory_STRING

set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = conn

'... resten af din kode her
%>

Funker ikke, desværre

Er koden, du har angivet, *PRÆCIS* den kode, du har brugt??

Ja, udover at der kommer en db kald lige efter. Det hele ser sådan ud:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="adovbs.inc" -->
<!--#include file="Connections/connDUdirectory.asp" -->
<!--#include file="admentor/include/admentor2.asp"-->
<%
Session.LCID = 1030
%>
<%
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_connDUdirectory_STRING
rsCount.Source = "SELECT COUNT (*)  AS LINKS_COUNT FROM LINKS WHERE LINK_APPROVED = 1"
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()
rsCount_numRows = 0
%>
<%
function rw(strData)
    Response.Write (strData & vbCrlf)
end function
set rsNew = Server.CreateObject("ADODB.Recordset")
rsNew.ActiveConnection = MM_connDUdirectory_STRING
rsNew.Source = "SELECT TOP 50 * FROM (SELECT * FROM LINKS WHERE LINK_APPROVED = 1  ORDER BY LINK_ID  DESC)"
rsNew.CursorType = 0
rsNew.CursorLocation = 2
rsNew.LockType = 3
rsNew.Open()
'rsNew_numRows = 0
%>

Kan ikke løse problemet. Lukker spg.