SELECT Bienvenue,niveau3 FROM Fiches WHERE Repertoire_No = #attributes.Repertoire_No# SELECT Id,Date,Volume,Numero,Titre2,Sequence_No,Classement,Titre,Photo,photo_mini,Photo_texte, Auteur,Editeur,Ville,Attachement,Attachement_texte,Attachement_poid,Divers1_t,Divers2_t,Divers3_t,Divers4_t, Divers5_t,Divers6_t,Divers7_t,Divers8_t,Divers9_t,Divers10_t,Suggestion,Auteur2, Edition,Source,Format,Nomb_page,Cout,Code,ISBN,ISSN,Url1,Url2,Url3,Url4,Url5, Url6,Url7,Url8,Url9,Url10,Description,Extrait,Web,niveau2 FROM Publications WHERE #presseQuery#niveau='#attributes.niveau#' AND Repertoire_No=#attributes.Repertoire_No# AND Categorie_No=999983 AND (Actif='1' or Actif='3') ORDER BY #presseTri# SELECT Classement,Id,Sequence_No,Photo_mini,Photo,Photo_texte,Titre,Extrait,Description,Attachement,niveau2,niveau,repertoire_no FROM Publications WHERE Sequence_No=#attributes.Sequence_No##Var.presse.Id# AND Repertoire_No=#attributes.Repertoire_No# AND Niveau='3' AND (Actif='1' or Actif='3') AND Categorie_No=999983 ORDER BY #ArticleTri# TempList="#ValueList(Article.Classement," ,")# "; //attributes.UnortedList = ValueList(Article.Classement); ClassList="#ListChangeDelims(GetBaseInfo.Classement," #chr(13)##chr(10)#","#chr(13)##chr(10)#")# #chr(13)##chr(10)# "; attributes.LaUne = 0; attributes.SortedList = ""; attributes.ClassChange = ""; for (h=1; h lte listlen(ClassList,"#chr(13)##chr(10)#"); h=h+1) { ClassItem = ListGetAt(ClassList,h,"#chr(13)##chr(10)#"); FoundPos = listfindnocase(TempList,ClassItem); if (FoundPos AND Article.Niveau[FoundPos] is 2) { if (Len(Article.Description[FoundPos])) { attributes.LaUne = FoundPos; TempList = ListSetAt(TempList,FoundPos,"~kvfk~"); FoundPos = listfindnocase(TempList,ClassItem); } else { TempList = ListSetAt(TempList,FoundPos,"~kvfk~"); FoundPos = listfindnocase(TempList,ClassItem); }; }; if (FoundPos) {attributes.ClassChange = ListAppend(attributes.ClassChange,FoundPos);}; while (FoundPos) { if (FoundPos AND Article.Niveau[FoundPos] is 2 AND Len(Article.Description[FoundPos])) { attributes.LaUne = FoundPos; TempList = ListSetAt(TempList,FoundPos,"~kvfk~"); FoundPos = listfindnocase(TempList,ClassItem); } else { attributes.SortedList = ListAppend(attributes.SortedList,FoundPos); TempList = ListSetAt(TempList,FoundPos,"~kvfk~"); FoundPos = listfindnocase(TempList,ClassItem); }; }; }; if (ListLen(attributes.SortedList) MOD 2 IS 1){ attributes.Row1Length = Ceiling(ListLen(attributes.SortedList)/2); attributes.Row2Length = Int(ListLen(attributes.SortedList)/2) * 1 + 1; }else{ attributes.Row1Length = Ceiling(ListLen(attributes.SortedList)/2); attributes.Row2Length = Ceiling(ListLen(attributes.SortedList)/2) * 2; }

#replace (presse.Titre2,chr(10),"
","all")#

#Classement#

#replace("#REReplace("#REReplace("#GetCorporatifInfo.Bienvenue#","([[:space:]])http://([^[:space:]]+?)(\.*[[:space:]])","\1\2\3","ALL")#","([[:space:]])([A-Za-z0-9_\.\-]+@[A-Za-z0-9\.\-]+\.[A-Za-z]{2,})(\.*[[:space:]])","\1\2\3","ALL")#",chr(10),"
","all")#

#Date# Volume #replace (Volume,chr(10),"
","all")# Numéro #replace (Numero,chr(10),"
","all")#

#Titre#

#Auteur#

#Ville#-

Autre(s) auteur(s) : #Auteur2#
Edition : #Edition#
Source : #Source##Source#
Format : #Format#
Nombre de pages : #Nomb_page#
Coût : #Cout#
Code : #Code#
ISBN : #ISBN#
ISSN : #ISSN#

Webographie

#Divers1_t#

#Divers2_t#

#Divers3_t#

#Divers4_t#

#Divers5_t#

#Divers6_t#

#Divers7_t#

#Divers8_t#

#Divers9_t#

#Divers10_t#

Dossiers :

#Article.Classement[positionRub]# | Archives | La une | #presse.Classement#

#Article.Classement[Position]#DIVERS

#Article.Titre[Position]#

<cfif Len(Article.Photo_texte[Position])>#REReplace(

#Article.Extrait[Position]##replace("#REReplace("#REReplace("#REReplace("#REReplace("#Article.Description[Position]#", "([[:space:]])http://([^[:space:]]+?)(\.*[[:space:]])","\1\2\3","ALL")#", "([[:space:]])([A-Za-z0-9_\.\-]+@[A-Za-z0-9\.\-]+\.[A-Za-z]{2,})(\.*[[:space:]])","\1\2\3","all")#","\[\[([^\]\]]+?)\]\]","\1","ALL")#", "#chr(13)##chr(10)#","
#chr(13)##chr(10)#","all")#", "
","","all")#

#Article.Classement[Position]#DIVERS

#Article.Titre[Position]#

]*>", "", "ALL")#� Tous droits réservés" title="#REReplace("#Article.Photo_texte[Position]#", "<[^>]*>", "", "ALL")#� Tous droits réservés" border="0" align="MIDDLE"> <cfif Len(Article.Photo_texte[Position])>#REReplace(

Page non disponible

#replace (presse.Titre2,chr(10),"","all")#

#Titre#

#Titre#

#Titre#

Webographie

#Article.Titre[Position]#

#Article.Titre[Position]#

#replace (presse.Titre2,chr(10),"
","all")#