NOMBRE D'OCCURENCE D'UNE CHAÎNE DANS UNE TABLE

<%
' compte le Nbre d'occurence d'une valeur (ValRec)  dans un champ (chp) de la table (tbl)

Function NbOccur(Tbl, Chp, ValRec)
' Création de la requête SQL...
	
	sql="SELECT Count("&Tbl&"."&chp&") AS Nb, "&Tbl&"."&chp
	sql=sql+" FROM "&Tbl
	sql=sql+" GROUP BY "&Tbl&"."&chp
	sql=sql+" HAVING ((("&Tbl&"."&chp&")='"&ValRec&"'));"
                ' Exécution de la requête SQL
	Set rs = conn.Execute(sql) 
                'Récupération du résultat
	NbOccur=rs("Nb")
End Function
%>