[Resolvido] error '80020009'

Boa Tarde,

Estou com um problema um pouco comum, mas não consigo resolver, verifiquei outros posts do mesmo problema, mas não me ajudaram. Po isso estou postado.

Tenho uma página de pesquisa que deve mostrar uma tabela assim: o grupo de exames, os dias em que foram realizados e as quantidades. Meu problema é que a primeira tabela é mostrada sem problemas, mas quando vai mostrar a segunda da esse maldiro error 80020009. Segue abaixo o código que deveria gerar as tabelas:

<%do while not bd.eof%>
<%
vargrupo = bd("grupoid")

 set dia = Conexao.Execute ("SELECT dia FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set countdia = Conexao.Execute ("SELECT SUM (dia) as qtde FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set agend_int = Conexao.Execute ("SELECT SUM (agendadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_ag_int = Conexao.Execute ("SELECT SUM (agendadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set falt_int = Conexao.Execute ("SELECT SUM (faltas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_fa_int = Conexao.Execute ("SELECT SUM (faltas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set canc_int = Conexao.Execute ("SELECT SUM (canceladas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_ca_int = Conexao.Execute ("SELECT SUM (canceladas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set enca_int = Conexao.Execute ("SELECT SUM (encaixes_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_en_int = Conexao.Execute ("SELECT SUM (encaixes_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set real_int = Conexao.Execute ("SELECT SUM (realizadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_re_int = Conexao.Execute ("SELECT SUM (realizadas_int) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set agend_ext = Conexao.Execute ("SELECT SUM (agendadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_ag_ext = Conexao.Execute ("SELECT SUM (agendadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set falt_ext = Conexao.Execute ("SELECT SUM (faltas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_fa_ext = Conexao.Execute ("SELECT SUM (faltas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set canc_ext = Conexao.Execute ("SELECT SUM (canceladas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_ca_ext = Conexao.Execute ("SELECT SUM (canceladas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set enca_ext = Conexao.Execute ("SELECT SUM (encaixes_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_en_ext = Conexao.Execute ("SELECT SUM (encaixes_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")
 set real_ext = Conexao.Execute ("SELECT SUM (realizadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&" GROUP BY dia,grupo ORDER BY dia asc")
 set tot_re_ext = Conexao.Execute ("SELECT SUM (realizadas_ext) AS total FROM estatistica WHERE mes="&varmesid&" AND grupo="&vargrupo&" AND ano="&varano&"")

%>
<%IF dia("dia") = "" THEN %>

 <TABLE align=center border=1>
 <TR>
 <TD>
 <B><%=bd("grupo")%></B>
 </TD>
 <TD align="center" width=50 colspan=2>
 <B>Total</B>
 </TD>
 </TR>
 <TR>
 <TD>
 Teste 2
 </TD>
 <TD align="center">
 <B>I</B>
 </TD>
 <TD align="center">
 <B>E</B>
 </TD>
 </TR>
 <TR>
 <TD>
 Agendadas
 </TD>
 <TD align="center">
  
 </TD>
 <TD align="center">
  
 </TD>
 </TR>
 <TR>
 <TD>
 Faltas
 </TD>
 <TD align="center">
  
 </TD>
 <TD align="center">
  
 </TD>
 </TR>
 <TR>
 <TD>
 Canceladas
 </TD>
 <TD align="center">
  
 </TD>
 <TD align="center">
  
 </TD>
 </TR>
 <TR>
 <TD>
 Encaixe
 </TD>
 <TD align="center">
  
 </TD>
 <TD align="center">
  
 </TD>
 </TR>
 <TR>
 <TD>
 Realizados
 </TD>
 <TD align="center">
  
 </TD>
 <TD align="center">
  
 </TD>
 </TR>
 </TABLE>
 <BR>

<%ELSE%>

 <TABLE align=center border=1>
 <TR>
 <TD>
 <B><%=bd("grupo")%></B>
 </TD>

<%
do while not dia.eof
%>

 <TD align="center" width=50 colspan=2>
 <B><%=dia("dia")%></B>
 </TD>

<%
dia.movenext
loop
dia.movefirst
%>

 <TD align="center" width=50 colspan=2>
 <B>Total</B>
 </TD>
 </TR>
 <TR>
 <TD>
 Teste
 </TD>

<%
do while not dia.eof
%>

 <TD align="center">
 <B>I</B>
 </TD>
 <TD align="center">
 <B>E</B>
 </TD>

<%
dia.movenext
loop
set dia = nothing
%>

 <TD align="center">
 <B>I</B>
 </TD>
 <TD align="center">
 <B>E</B>
 </TD>
 </TR>
 <TR>
 <TD>
 Agendadas
 </TD>

<%
do while not agend_int.eof
%>

 <TD align="center">
 <%IF agend_int("total")<>0 THEN%><%=agend_int("total")%><%ELSE%> <%END IF%>
 </TD>

<%
agend_int.movenext
loop
set agend_int = nothing
%>
<%
do while not agend_ext.eof
%>

 <TD align="center">
 <%IF agend_ext("total")<>0 THEN%><%=agend_ext("total")%><%ELSE%> <%END IF%>
 </TD>

<%
agend_ext.movenext
loop
set agend_ext = nothing
%>

 <TD align="center">
 <%IF tot_ag_int("total")<>0 THEN%><%=tot_ag_int("total")%><%ELSE%> <%END IF%>
 </TD>
 <TD align="center">
 <%IF tot_ag_ext("total")<>0 THEN%><%=tot_ag_ext("total")%><%ELSE%> <%END IF%>
 </TD>
 </TR>
 <TR>
 <TD>
 Faltas
 </TD>

<%
do while not falt_int.eof
%>

 <TD align="center">
 <%IF falt_int("total")<>0 THEN%><%=falt_int("total")%><%ELSE%> <%END IF%>
 </TD>

<%
falt_int.movenext
loop
set falt_int = nothing
%>
<%
do while not falt_ext.eof
%>

 <TD align="center">
 <%IF falt_ext("total")<>0 THEN%><%=falt_ext("total")%><%ELSE%> <%END IF%>
 </TD>

<%
falt_ext.movenext
loop
set falt_ext = nothing
%>

 <TD align="center">
 <%IF tot_fa_int("total")<>0 THEN%><%=tot_fa_int("total")%><%ELSE%> <%END IF%>
 </TD>
 <TD align="center">
 <%IF tot_fa_ext("total")<>0 THEN%><%=tot_fa_ext("total")%><%ELSE%> <%END IF%>
 </TD>
 </TR>
 <TR>
 <TD>
 Canceladas
 </TD>

<%
do while not canc_int.eof
%>

 <TD align="center">
 <%IF canc_int("total")<>0 THEN%><%=canc_int("total")%><%ELSE%> <%END IF%>
 </TD>

<%
canc_int.movenext
loop
set canc_int = nothing
%>
<%
do while not canc_ext.eof
%>

 <TD align="center">
 <%IF canc_ext("total")<>0 THEN%><%=canc_ext("total")%><%ELSE%> <%END IF%>
 </TD>

<%
canc_ext.movenext
loop
set canc_ext = nothing
%>

 <TD align="center">
 <%IF tot_ca_int("total")<>0 THEN%><%=tot_ca_int("total")%><%ELSE%> <%END IF%>
 </TD>
 <TD align="center">
 <%IF tot_ca_ext("total")<>0 THEN%><%=tot_ca_ext("total")%><%ELSE%> <%END IF%>
 </TD>
 </TR>
 <TR>
 <TD>
 Encaixe
 </TD>

<%
do while not enca_int.eof
%>

 <TD align="center">
 <%IF enca_int("total")<>0 THEN%><%=enca_int("total")%><%ELSE%> <%END IF%>
 </TD>

<%
enca_int.movenext
loop
set enca_int = nothing
%>
<%
do while not enca_ext.eof
%>

 <TD align="center">
 <%IF enca_ext("total")<>0 THEN%><%=enca_ext("total")%><%ELSE%> <%END IF%>
 </TD>

<%
enca_ext.movenext
loop
set enca_ext = nothing
%>

 <TD align="center">
 <%IF tot_en_int("total")<>0 THEN%><%=tot_en_int("total")%><%ELSE%> <%END IF%>
 </TD>
 <TD align="center">
 <%IF tot_en_ext("total")<>0 THEN%><%=tot_en_ext("total")%><%ELSE%> <%END IF%>
 </TD>
 </TR>
 <TR>
 <TD>
 Realizados
 </TD>

<%
do while not real_int.eof
%>

 <TD align="center">
 <%IF real_int("total")<>0 THEN%><%=real_int("total")%><%ELSE%> <%END IF%>
 </TD>

<%
real_int.movenext
loop
set real_int = nothing
%>
<%
do while not real_ext.eof
%>

 <TD align="center">
 <%IF real_ext("total")<>0 THEN%><%=real_ext("total")%><%ELSE%> <%END IF%>
 </TD>

<%
real_ext.movenext
loop
set real_ext = nothing
%>

 <TD align="center">
 <%IF tot_re_int("total")<>0 THEN%><%=tot_re_int("total")%><%ELSE%> <%END IF%>
 </TD>
 <TD align="center">
 <%IF tot_re_ext("total")<>0 THEN%><%=tot_re_ext("total")%><%ELSE%> <%END IF%>
 </TD>
 </TR>
 </TABLE>
 <BR>

<%END IF%>
<%
bd.movenext
loop
set bd = nothing
%>

O erro aponta a linha:

<%IF dia("dia") = "" THEN %>
Obrigado.