Ciclo do che non funziona

[Delo80]

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

[Mems]

' la tua
rs_promo.open sql,connectme


' la mia
rs_promo.open sql_promo,connectme

[Delo80]

Dire che sono un idiota non è abbastanza :rollo: ...grazie mille

E' troppo tempo che sono immerso in questo progetto e non mi accorgo degli errori più banali.
Grazie mikke

[Mems]

Originariamente inviato da Delo80
Dire che sono un idiota non è abbastanza :rollo: ...grazie mille

E' troppo tempo che sono immerso in questo progetto e non mi accorgo degli errori più banali.
Grazie mikke

Prego duemika.

[Delo80]

Sempre io con il solito problema del ciclo DO
In pratica voglio far apparire accanto alla categoria quanti negozi presenti in quella categoria hanno promozioni.
Il fatto è che non mi tornano i conti nel senso che il risultato accanto alla categoria non corrisponde al numero reale.

Questo il codice...sbaglio qualcosa io ?

<%
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_promo,connectme

contatore=0
conta=0
Do while not rs_promo.eof
if rs_promo("promozioni")="1" then
contatore=conta+1
conta=contatore
end if
rs_promo.movenext
loop
%>
[*] >> "><%=rs("categoria")%> (<%=conta%>)

<%
rs.movenext
loop
rs.close
%>