var base,cssTable,cssRow,id,summary,caption,foot,requete,colWidths: string;
begin
base := GetParam('Base','');
if base<>'' then
begin
requete := GetParam('requete','');

if Condition('_HTML_') then
begin
foot := GetParam('foot','');
cssTable := GetParam('cssTable','');
cssRow := GetParam('cssRow','');
id := GetParam('id','');
summary := GetParam('summary','');
caption := GetParam('caption','');
write('<<WEB($html:+)>>');
if requete<>'' then
write(dbFindXhtmlTable(base,requete,id,summary,caption,foot,cssTable,cssRow)) else
write(dbXhtmlTable(base,id,summary,caption,foot,cssTable,cssRow));
write('<<WEB($html:-)>>');
end else begin
colWidths := GetParam('ColWidths','');
if requete<>'' then
write(dbFindTable(base,requete,colWidths)) else
write(dbTable(base,colWidths));
end;
end;
end;
end.

Sommaire