Erro de tempo de execução do Microsoft VBScript erro '800a01a8&#39

[microk 0]

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: ''

 

-----------------------------------------------

<%
set rsAdminNews = Server.CreateObject("ADODB.Recordset")
rsAdminNews.ActiveConnection = MM_connDUportal_STRING
rsAdminNews.Source = "SELECT titulo, link FROM flflinks"
rsAdminNews.CursorType = 0
rsAdminNews.CursorLocation = 2
rsAdminNews.LockType = 3
rsAdminNews.Open()
rsAdminNews_numRows = 0
if not rsNews.eof then ar=rsNews.GetRows
rsNews.close:set rsNews=nothing
'conn.close: set conn=nothing
if isarray(ar) then
for i=0 to ubound(ar,2)
%>
<li><a href="<%=(ar(1,i))%>"><%=(ar(0,i))%></a></li><br>
<%
next
else
Response.Write "Sem Links Publicados"
end if
%>

[Vagner Bucioli Scala 0]

Olá! me parece q o erro é pq o sistema não está achando a string de conexão com o banco de dados. Qual sua string de conexão? está usando OLEDB? Veja se seu include está chamando o arquivo ASP com a conexão corretamente, tipo: <!--#include file="minhaconexao.asp"-->

[Claudio Neto 3]

Pode ser o que o Vagner Bucioli disse, mas ajuda muito se você colocar a linha que o erro aponta.

[jrcardozo 4]

Você setou rsAdminNews e está fechando e destuindo outro nome de objeto (rsNews)

 

==>rsAdminNews_numRows = 0

if not rsNews.eof then ar=rsNews.GetRows

==>rsNews.close:set rsNews=nothing