// déclaration variables
var base,Requete,Code:string;
i,RowCount:integer;
begin
//script ici
base := GetParam('base','');
if base<>'' then
begin

// on va filtrer sur le champ rubrique,
// on ne veut que les lignes correspondantes à la rubrique en cour
// /!\ ne pas oublier d'encadrer le contenu de notre filtre (ici le titre) par des guillements simple (#39 = ')
Requete := 'Rubrique='+#39+GetTitre+#39;

if dbFind(base,requete) then
begin
// nombre de lignes correspondantes
RowCount := dbFindRowCount(base);
// pour chaque ligne
for i:=1 to RowCount do
begin
// on essaye de se positionner dessus
if dbFindGo(base,i) then
// on insére le code associé si c'est bon
write(dbFindGetData(base,'Code'));
end;
end;
end;
end;
end.

Sommaire