Ciao ragazzi

ciò che mi serve è un pagina che mi tiri fuori le categorie prese da una tabella e che mi dica dentro ogni categoria quanti negozi (presenti in un'altra tabella) hanno attivo il flag promozioni
Ho creato questa funzione ma mi da errore

ADODB.Recordset error '800a0cc1'

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

questo il codice e la riga indicata come errore è quella in neretto.

<%
Set rs=Server.createobject("ADODB.Recordset")
sql="select * from categorie where padre='-1' order by categoria"
rs.open sql,connectme
Do while not rs.eof
Set rs_promo=Server.createobject("ADODB.Recordset")
sql_promo="select * from negozi where categoria='"&rs("id")&"'"
'response.write sql_promo
rs_promo.open sql,connectme

Do while not rs_promo.eof
promozioni=rs_promo("promozioni")
contatore=0
conta=0
if promozioni<>"0" then
contatore=conta+1
conta=contatore
end if
rs_promo.movenext
loop

%>[*] >> "><%=rs("categoria")%> (<%=conta%>)

<%
rs.movenext
loop
rs.close
%>

grazie a tutti