var i,j:integer;
titre,url,target,css:string;
begin
//script ici
target := GetParam('target','');
if target<>'' then target := '^'+target;
css := GetParam('css','');
if css<>'' then write('<<WEB(<div class="')>>+css+<<FNT(STRING.-,-,-,-:'">)>>') ;
j := GetUrlCount-1;
for i:=0 to j do
begin
GetUrl(i,titre,url);
writeln('<<MCR(EF(')>>+url+<<FNT(STRING.-,-,-,-:'):')>>+titre+target+<<FNT(STRING.-,-,-,-:')>>');
end;
if css<>'' then write('<<WEB(</div>)>>') ;
end;
end.

Sommaire