<% TypePage="Tout" numpage=request("NumPage") if numpage=-1 then palm=true numpage=1 else palm=false end if if request("numpage")="" then numpage=1 else numpage=request("numpage")*1 end if Pays=request("Pays") If Pays="" then pays="100" end if NumArticle=request("numarticle") ' ' Articles ' req = "SELECT COUNT(*) FROM FDtextes_articles WHERE (num_article = " & NumArticle & " and LinkPays = " & pays & ")" set liste = Server.createobject("ADODB.recordset") liste.Open req,nooCnx,adOpenForwardOnly NbrPages=liste(0) liste.close req = "SELECT FDarticles.NbrPages, FDarticles.Num_article, FDarticles.Signataire, FDarticles.Titre_article, FDarticles.Sous_Titre_Article, FDarticles.Motclefs, FDarticles.Premiere_parution, FDarticles.Mois_Parution, FDarticles.Annee_Parution, FDarticles.Date_maj, FDarticles.Lieu, FDTextes_articles.NumPage, FDTextes_articles.Texte, FDarticles.Synopsis FROM FDarticles INNER JOIN FDTextes_articles ON FDarticles.Num_article = FDTextes_articles.num_article WHERE FDarticles.Num_article=" & Numarticle & " AND numpage=" & numpage & " AND LinkPays=" & Pays & " ORDER BY FDTextes_articles.NumPage;" 'Response.Write req liste.Open req,NooCnx,adOpenForwardOnly ' ' Autres langues ' req="SELECT FDtextes_articles.num_article, FDtextes_articles.LinkPays, cyborg_pays.Drapeau, cyborg_pays.lib_pays FROM FDtextes_articles INNER JOIN cyborg_pays ON FDtextes_articles.LinkPays = cyborg_pays.code_pays GROUP BY FDtextes_articles.num_article, FDtextes_articles.LinkPays, cyborg_pays.Drapeau, cyborg_pays.lib_pays HAVING (((FDtextes_articles.num_article)=" & request("Numarticle") & "));" 'Response.Write req set Autres = Server.createobject("ADODB.recordset") Autres.Open req,NooCnx,adOpenForwardOnly %> Roger Bozzetto <% =liste("titre_article")%>


<% =liste("titre_article")%>

" end if Autres.MoveNext wend Trad=Trad & "" %>
<% TitreArticle=liste("titre_article") Descrip=AjoutPdf(Descrip, "

" & TitreArticle & "

") if liste("sous_titre_article")<>"" then %>

<%=liste("Sous_titre_article")%>

<% Descrip=AjoutPdf(Descrip, "

" & liste("Sous_titre_article") & "

") %> <% end if v=AuteursArticles(NumArticle, 0, 0) response.write "

" & "par " & v & "" & "

" %>
<% if liste("lieu")<>"" then response.write liste("lieu") Descrip=AjoutPdf(Descrip, liste("lieu")) end if m=liste(7)*1 if m>0 or liste(8)*1>0 then response.write ", " end if if m>0 and m<13 then response.write mois(m) & " " end if response.write liste(8) NbTrad=0 Trad="" if Autres.eof=False then While Autres.EOF=false NbTrad=NbTrad+1 if Autres(1)*1<>Pays*1 then Trad=Trad & "
 " & autres(3) & " 
<% if NbTrad>1 then %> <% Response.Write Trad %>
Traductions disponibles
<% end if end if Autres.Close set Autres=nothing %>

<% if numpage>1 and palm=false then response.write"Page " & numpage & " sur " & nbrpages & ". Revenir page " & numpage-1 &"" end if MyTexte=liste("texte") response.write MyTexte TexteArticle=AjoutPdf(TexteArticle, MyTexte) ' BP inhibition de la génération du PDF if pdf=12 then while numpage

<% response.write"Aller page " & numpage+1 &"
" end if %>
<% liste.close req = "SELECT FDCateg.NomCategorie AS Expr1, FDCategArticle.LinkArticle AS Expr2, FDSections.NomSection FROM FDCategArticle INNER JOIN FDCateg ON FDCategArticle.LinkCateg = FDCateg.CleUnik INNER JOIN FDSections ON FDCateg.LinkSection = FDSections.CleUnik WHERE(FDCategArticle.LinkArticle = " & numarticle & ");" liste.Open req,nooCnx,adOpenForwardOnly if liste.eof=false then response.write "Cet article est référencé sur le site dans les sections suivantes :
" while liste.eof=false response.write liste(2) & ", catégorie " & liste(0) & "
" liste.movenext wend response.write "
" end if liste.close set liste=nothing 'BP inhibition if PDF=25 then ' Descriptif du livre theDoc.Rect = " 30 30 565 760" theDoc.FontSize = 12 theDoc.TextStyle.Justification = 0.5 TheId = TheDoc.AddHtml(Descrip) NbPage=1 ' Résumé v=PositionPdf() v=InserePdf("


") v=InserePdf(TexteArticle & "
") v=AffichePdf("" & TitreArticle & "") end if %>