<% mots_rech =session("mots") rech_actif = request("rech") if popup<>"" then else titre1=recherche_mots(titre1,mots_rech,rech_actif) titre2=recherche_mots(titre2,mots_rech,rech_actif) titre3=recherche_mots(titre3,mots_rech,rech_actif) chapo=recherche_mots(chapo,mots_rech,rech_actif) citation=recherche_mots(citation,mots_rech,rech_actif) corps=recherche_mots(corps,mots_rech,rech_actif) signature=recherche_mots(signature,mots_rech,rech_actif) fin=recherche_mots(fin,mots_rech,rech_actif) notes=recherche_mots(notes,mots_rech,rech_actif) end if call compteur_ajout("article",no) %>

<%if nom_section="dossier" then ' canard set fso=server.createObject("Scripting.FileSystemObject") if fso.FolderExists(server.MapPath("images/canard/")) then if fso.FileExists(server.MapPath("images/canard/canard" & no_dossier & ".jpg")) then set rep = fso.GetFolder(server.MapPath("images/canard/")) set fic = rep.files("canard" & no_dossier & ".jpg") if fic.name<>"" then response.write "" set fic = nothing set rep = nothing end if end if set fso = nothing %> <%else%> <%if nom_css<>"" then%> <%if nom_css<>"mode" then%> <%end if%> <%end if%> <%end if%> <%=titre_picto%>		<%if titre1<>"" then%><%=titre1%> <%end if%> <%if titre2<>"" then%><%=titre2%> <%end if%> <%if titre3<>"" then%><%=titre3%> <%end if%> <%=signature%> <% if no_traducteur<>"" and lang<>"" then sql = "SELECT personnes.nom, personnes.prenom, personnes.no " sql = sql & "FROM personnes INNER JOIN traducteurs ON personnes.no = traducteurs.no_personne " sql = sql & "WHERE traducteurs.no=" & no_traducteur rs.open sql, conn if not(rs.EOF) then no_redacteur=rs("no") nom=rs("nom") prenom=rs("prenom") if prenom<>"" then redacteur=prenom & " " & nom else redacteur=nom if len(redacteur)>40 then redacteur=left(redacteur,37) & "..." else redacteur=left(redacteur,41) %> translator : <%=redacteur%> <% end if rs.close end if %> publié le <%=FormatDateTime(date_mod,2)%> <%if chapo<>"" then%> <%=chapo%> <%end if%> <%if nom_section="edito" then%> <%if citation<>"" then%> <%=replace(""&citation,chr(13)," ")%> <%end if%> <%end if%>

<%if nom_section<>"edito" then%> <%if citation<>"" then%>

<%=replace(""&citation,chr(13),"

")%>

<%end if%> <%end if%>

<%=replace(""&corps,chr(13),"

")%>

<%if signature<>"" then%>

<%=replace(""&signature,chr(13),"

")%>

<%end if%> <%if fin<>"" then%>

<%=replace(""&fin,chr(13),"

")%>

<%end if%> <%if notes<>"" then%>

<%=replace(""¬es,chr(13),"

")%>

<%end if%>

<%if isPdf then%>

<%if not isHtml then%>
<%end if%>Cet article est disponible <%if isHtml then%>aussi <%else%>uniquement <%end if%>en PDF

<%end if%> <% sql = "SELECT illustrations.no_illustration, illustrations.legende" & lang & " AS legende, illustrations.copyright, illustrations.nom_fichier_image FROM illustrations WHERE illustrations.no_article=" & no sql = sql & " ORDER BY no_illustration" rs.open sql, conn do until rs.EOF url_img=session("racine")&replace(""&rs("nom_fichier_image"),"\","/") legende=rs("legende") copyright=rs("copyright")%> <%rs.movenext loop rs.close ' recherche des tables liées à l'article 'sql = "SELECT Count(*) AS nbliens " 'sql = sql & "FROM ((((((((articles LEFT JOIN articles_personnes ON articles.no = articles_personnes.no_article) LEFT JOIN articles_disques ON articles.no = articles_disques.no_article) LEFT JOIN articles_films ON articles.no = articles_films.no_article) LEFT JOIN articles_groupes ON articles.no = articles_groupes.no_article) LEFT JOIN articles_livres ON articles.no = articles_livres.no_article) LEFT JOIN articles_revues ON articles.no = articles_revues.no_article) LEFT JOIN articles_spectacles ON articles.no = articles_spectacles.no_article) LEFT JOIN articles_structures ON articles.no = articles_structures.no_article) LEFT JOIN articles_evenements ON articles.no = articles_evenements.no_article " 'sql = sql & "WHERE articles.no=" & no sql = "SELECT (Count(articles_personnes.no_personne)+Count(articles_disques.no_disque)+Count(articles_evenements.no_evenement) +Count(articles_films.no_film) +Count(articles_livres.no_livre) +Count(articles_groupes.no_groupe) +Count(articles_revues.no_revue) +Count(articles_spectacles.no_spectacle) +Count(articles_structures.no_structure)) AS nbliens " sql = sql & "FROM (((((((articles LEFT JOIN articles_personnes ON articles.no = articles_personnes.no_article LEFT JOIN articles_disques ON articles.no = articles_disques.no_article) LEFT JOIN articles_evenements ON articles.no = articles_evenements.no_article) LEFT JOIN articles_structures ON articles.no = articles_structures.no_article) LEFT JOIN articles_films ON articles.no = articles_films.no_article) LEFT JOIN articles_groupes ON articles.no = articles_groupes.no_article) LEFT JOIN articles_livres ON articles.no = articles_livres.no_article) LEFT JOIN articles_revues ON articles.no = articles_revues.no_article) LEFT JOIN articles_spectacles ON articles.no = articles_spectacles.no_article " sql = sql & "GROUP BY articles.no " sql = sql & "HAVING articles.no=" & no 'rs.open sql,conn 'if not rs.eof then nbliens = rs("nbliens") else nbliens=0 'rs.close 'if cint(nbliens)>0 then if true then 'response.write nbliens %> <% end if lientrad=0 if request("dispo")<>"fr" then ' traduction sql = "SELECT count(*) AS lientrad FROM articles WHERE articles.no_article=" & no & " AND articles.no<>" & no & " " sql = sql & "AND articles.no_langue=" if lang="" then sql = sql & "2" else sql = sql & "1" rs.open sql,conn lientrad=cint(rs("lientrad")) rs.close end if %>

<%=baliseImg_mini(url_img, 100, 100,"article",no_dossier)%>

<%if legende<>"" then%><%=legende%>
<%end if%> <%if copyright<>"" then%>© <%=copyright%><%end if%>

En savoir plus

<% if false then %> <% end if %>

<%if lientrad=1 then%> <%end if%>

_en<%end if%><%if request("popup")=1 then%>&popup=1<%end if%>');">[<%if lang="" then%>english<%else%>français<%end if%>]

<%if popup=1 then%> [<%if lang="" then%>imprimer<%else%>printing<%end if%>] <%else%> popup_article.asp?no=<%=no%>&print=1" target=print>[<%if lang="" then%>imprimer<%else%>printing<%end if%>] <%end if%>

<%if request("popup")=1 then%> [<%if lang="" then%>fermer<%else%>close<%end if%>] <%else%> [<%if lang="" then%>retour<%else%>go back<%end if%>] <%end if%>

<% do until rs.eof msg_titre = rs("titre") if not(isnull(msg_titre)) then msg_titre=replace(msg_titre,"""","'") end if msg_nom = rs("nom") if not(isnull(msg_nom)) then msg_nom=replace(msg_nom,"""","'") end if msg_date = rs("date_mod") if not(isnull(msg_date)) then msg_date=FormatDateTime(msg_date,2) end if %> <% rs.movenext loop rs.close %>

<% sql = "SELECT messages.* " sql = sql & "FROM messages " sql = sql & "WHERE messages.type_objet=-1 AND messages.no_objet=" & request("no") sql = sql & " Order by messages.date_mod desc" 'response.write sql rs.open sql,conn %>

Cet article vous intéresse ? Réagissez :

<%if request("popup")=1 then%> /services/messages/form_msg.asp?popup=1&type=-1&no=<%=request("no")%>" class="titre2lien"> [Ajouter un commentaire] <%else%> index.asp?menu=msg_add&type=-1&no=<%=request("no")%>" class="titre2lien"> [Ajouter un commentaire]
Ceci n'est pas une lettre à Africultures mais un texte à faire lire à tous.
Pour s'adresser à Africultures, utiliser le formulaire "contact"

[Ou créez gratuitement votre blog sur Afriblog] <%end if%>

<% if rs.eof then response.write "
- il n'y a pas encore de commentaire lié à cet article -

" else response.write "
Liste des commentaires liés à cet article :

" %>

<%if popup=1 then%> /services/messages/affiche_msg.asp?popup=1&no=<%=rs("no")%>"><%=msg_titre%>
<%else%> index.asp?menu=msg&no=<%=rs("no")%>"><%=msg_titre%>
<%end if%>

<% if msg_nom<>"" then response.write msg_nom & " | " end if response.write msg_date %>
<%if popup=1 then%> /services/messages/affiche_msg.asp?popup=1&no=<%=rs("no")%>" class="lien_url">[lire le détail] <%else%> index.asp?menu=msg&no=<%=rs("no")%>" class="lien_url">[lire le détail] <%end if%>

<% end if set rs = nothing %>