Afficher les categories d'un champs et le nbr d'enreg

Au secour ! je suis au bord du suicide !

Je fait des pages de petites annonces et je cherche à faire comme sur ce site c'est à dire
afficher toutes les categories d'un champs et le nombre d'annonces de chaque catégorie

J'ai compris comment afficher toutes les catégorie de mon champs "Genre" de ma table "Annonces"
Mais je n'arrive pas a afficher le nombres d'enregistrement par catégorie.

Je n'y arrive pas et je ne comprend pas comment faire !
J'utilise ULTRADEV.

Voila le script qui m'a permis d'afficher toutes les catégorie du champs Genre de ma table
"Annonces".

Si vous pouviez me débloquer Vous me rendriez un très grand service.

Merci FlyMan30

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Annonces.asp" -->

<%
dim truc
set Annonces = Server.CreateObject("ADODB.Recordset")
Annonces.ActiveConnection = MM_Annonces_STRING
Annonces.Source = "SELECT distinct Genre FROM Annonces"
Annonces.CursorType = 0
Annonces.CursorLocation = 2
Annonces.LockType = 3
Annonces.Open()
Annonces_numRows = 0
%>

<%
do while not Annonces.eof
Response.Write (Annonces.Fields.Item("Genre").Value)
Response.Write "<br>"
Annonces.Movenext
loop
%>

<%
Annonces.Close()
%>

Pour compter les enregistrement faut faire un requet SQL:
SELECT COUNT(*) AS NOMBRE

apres tu recup le nbr comme ca:
MonObjet("Nombre")

et voila...
A#
vBt0m.

-------------------------------
Réponse au message :
-------------------------------

Au secour ! je suis au bord du suicide !

Je fait des pages de petites annonces et je cherche à faire comme sur ce site c'est à dire
afficher toutes les categories d'un champs et le nombre d'annonces de chaque catégorie

J'ai compris comment afficher toutes les catégorie de mon champs "Genre" de ma table "Annonces"
Mais je n'arrive pas a afficher le nombres d'enregistrement par catégorie.

Je n'y arrive pas et je ne comprend pas comment faire !
J'utilise ULTRADEV.

Voila le script qui m'a permis d'afficher toutes les catégorie du champs Genre de ma table
"Annonces".

Si vous pouviez me débloquer Vous me rendriez un très grand service.

Merci FlyMan30

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Annonces.asp" -->

<%
dim truc
set Annonces = Server.CreateObject("ADODB.Recordset")
Annonces.ActiveConnection = MM_Annonces_STRING
Annonces.Source = "SELECT distinct Genre FROM Annonces"
Annonces.CursorType = 0
Annonces.CursorLocation = 2
Annonces.LockType = 3
Annonces.Open()
Annonces_numRows = 0
%>

<%
do while not Annonces.eof
Response.Write (Annonces.Fields.Item("Genre").Value)
Response.Write "<br>"
Annonces.Movenext
loop
%>

<%
Annonces.Close()
%>