ADODB.Recordset error '800a0cc1'

Pessoal,

Estou com uma dificuldade numa galeria de fotos que estou mexendo.

Gostaria de saber se podem me ajudar nisso:

Link da Galeria de Fotos:

http://site.jeaneinteriores.com.br/monta.asp?link=ambientes

Ele está aparecendo certo, porem quando clico na galeria da categoria aparece o seguinte erro:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/admin/fotos/FotosSemPopup.asp, line 84

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

FotosSemPopup.asp:

<!-- #Include File="configs.asp"-->
<table align="center" width="100%">
<%
qual = request("qual")
if qual = "" then
%>

 <tr>
 <td align="center">
 <table align="center">
 <tr>
 <%
 total = 0
 contagem = 1

 set consulta = conn.execute("select * from galeria_categorias order by nome")
 if not consulta.eof and not consulta.bof then
 while not consulta.eof
 set fotos = conn.execute("select * from galeria_fotos where categoria = " & consulta("indice") & " order by indice desc")
 if not fotos.eof and not fotos.bof then
 set tfotos = conn.execute("select count(*) as total from galeria_fotos where categoria = " & consulta("indice"))
 total_fotos = tfotos("total")
 link = "/monta.asp?link=" & request("link") & "&qual=" & consulta("indice") & "#anchor"
 %>
 <td width="160" align="center" valign="top" bgcolor="<%=vPastaBg%>" style="border:<%=vPastaBord%>">
 <table align="center">
 <tr>
 <td style="padding-left:5px;"><div style="height:15px;overflow:hidden;"><b><%=consulta("nome")%></b></div></td>
 </tr>
 <tr>
 <td style="padding-left:5px;font-size:9px;"><%=total_fotos%> foto<%if total_fotos > 1 then%>s<%end if%></td>
 </tr>
 <tr>
 <td align="center" style="padding:5px;"><div style="width:170px;height:120px;overflow:hidden;"><a href="<%=link%>"><img src="/fotos/<%=fotos("imagem")%>" width="170"></a></div></td>
 </tr>
 </table>
 </td>
 <%
 if contagem < vPastaQuebra then
 response.write "<td width='20'></td>"
 end if
 total = total + 1
 if contagem = vPastaQuebra then
 contagem = 0
 response.write "</tr><tr><td height='20' colspan='7'></td></tr><tr>"
 end if
 total_fotos	= ""
 contagem = contagem + 1
 end if
 consulta.movenext
 wend
 %>
 <%end if%>
 <%if total = 0 then%>
 <td align="center" height="200"><b><font color="red">Não há fotos disponíveis!</font></b></td>
 <%end if%>
 </tr>
 </table>
 </td>
 </tr>

<%
else
contagem = 1

 set consulta = conn.execute("select * from " & vTabCategs & " where categoria = " & qual & " order by indice desc")
 set categoria = conn.execute("select * from " & vTabFotos & " where indice = " & qual)

%>

 <tr>
 <td align="center">
 <table width="100%">
 <tr>
 <td align="right" style="padding-right:65px;">
 <a href="/monta.asp?link=<%=request("link")%>&categoria=<%=request("categoria")%>#anchor"><img src="/admin/<%=vLinkPasta%>/imagens/voltar.png"></a>
 </td>
 </tr>
 <tr><td height="10"></td></tr>
 <tr>
 <td align="center"><h3><%=categoria("nome")%></h3></td>
 </tr>
 </table>
 <table align="center">
 <%if not consulta.eof and not consulta.bof then%>
 <tr>
 <%while not consulta.eof%>
 <td style="padding:5px;" width="100" align="center" valign="bottom">
 <div style="width:100px;height:75px;overflow:hidden;"><a href="/fotos/<%=consulta("imagem")%>" rel="lightbox[roadtrip]" <%if consulta("legenda") <> "" then%> title="<%=consulta("legenda")%>" <%end if%>><img src="/fotos/miniaturas/<%=consulta("imagem")%>" width="100"></a></div>
 </td>
 <%
 if contagem = 7 then
 contagem = 0
 response.write "</tr><tr>"
 end if
 contagem = contagem + 1
 consulta.movenext
 wend
 %>
 </tr>
 <%else%>
 <tr>
 <td align="center" height="100"><b><font color="#640000">Não há fotos neste álbum.</font></b></td>
 </tr>
 <%end if%>
 </table>
 </td>
 </tr>
	<%end if%>
</table>

Podem me ajudar, nao estou entendendo onde está o erro na linha 84