var Lang,Contributor,Creator,Description,Rights,Subject,Title: string;
DateCreation,DateModification,annee,jour,mois:string;
begin
Contributor := GetParam('Contributor','');
Creator := GetParam('Creator','');
Description := GetParam('Description','');
Lang := GetParam('Lang','');
rights := GetParam('Rights','');
Subject := GetParam('Subject','');
Title := GetParam('Title','');

if Description<>'' then Description := 'content="'+Description+'"';
If Contributor<>'' then Contributor := 'content="'+Contributor+'"';
if Creator<>'' then Creator := 'content="'+creator+'"';
if rights<>'' then rights := 'content="'+rights+'"';
if subject<>'' then subject := 'content="'+subject+'"';
if title<>'' then title := 'content="'+title+'"';

if Lang<>'' then
begin
if Description <>'' then Description := 'lang="'+lang+'" '+Description;
if subject <>'' then subject := 'lang="'+lang+'" '+subject;
if title <>'' then title := 'lang="'+lang+'" '+title;
end;

AddToHead('<link rel="schema.DC" href="http://purl.org/dc/elements/1.1/" />');
if title<>'' then AddToHead('<meta name="DC.title" '+title+' />');

GetDatesOf(GetNum,DateCreation,DateModification);
Jour := copy(DateCreation,1,2);
Mois := copy(DateCreation,4,2);
Annee := copy(DateCreation,7,4);
AddToHead('<meta name="DC.Date.created" scheme="W3CDTF" content="'+Annee+'-'+Mois+'-'+Jour+'" />');
Jour := copy(DateModification,1,2);
Mois := copy(DateModification,4,2);
Annee := copy(DateModification,7,4);
AddToHead('<meta name="DC.Date.modified" scheme="W3CDTF" content="'+Annee+'-'+Mois+'-'+Jour+'" />');

if Creator<>'' then AddToHead('<meta name="DC.Creator" '+creator+' />');
If Contributor<>'' then AddToHead('<meta name="DC.Contributor" '+Contributor+' />');
if Description<>'' then AddToHead('<meta name="DC.Description" '+Description+' />');
if subject<>'' then AddToHead('<meta name="DC.Subject" '+subject+' />');
if rights<>'' then AddToHead('<meta name="DC.Rights" '+rights+' />');



end;
end.

Sommaire