Aînés Hébergement - <% if vAct <> "" then Response.Write vAct & " : " else %>Volume <%=vVol%>, Numéro <%=vNum%>, <%=(1999 + vVol)%><% end if %>

<%@ Language=VBScript %> <% Option Explicit %> <% ConnectToDB(".") %> <% dim vSection, vParent dim RightBar vParent = GetResult("SELECT ID_MenuItem FROM tbl_MenuItem WHERE Titre LIKE '%revue%' or Titre LIKE 'revue%' or Titre LIKE '%revue' or Titre LIKE 'revue'") dim vVol, vNum, vAct, vPage vVol = Request.QueryString("v") vNum = Request.QueryString("n") vAct = Request.QueryString("action") RightBar = cbool(vAct <> "archives") function CarryQueryString() dim I for I = 1 to Request.QueryString.Count if Request.QueryString.Key(I) <> "p" then CarryQueryString = CarryQueryString & "&" & Request.QueryString.Key(I) & "=" & Request.QueryString.Item(I) end if next end function sub BuildNavBar() if NumPages >= 2 then %>

<% dim Istart 'début the la liste de navigation dim Iend 'fin de la liste de navigation if ActPage > 1 then %>

<% end if 'début de navigation if ActPage > 5 then Istart = ActPage - 5 if Istart > Numpages - 10 then iStart = Numpages - 10 else Istart = 1 end if 'fin de navigation if Actpage < NumPages - 5 then Iend = Actpage + 5 if Iend < 11 then Iend = 11 else Iend = NumPages end if for I = Istart to Iend if I = Actpage then %><%=I%><% else %> <%=I%> <% end if if I <> Iend then Response.Write " - " end if next if Actpage < NumPages then %>

<% end if %>

<% end if end sub sub BuildBarAlpha for I = 65 to 90 if vSec = chr(I) then %> <%=chr(I)%> <% else if GetResult("SELECT COUNT(ID) FROM Articles WHERE uCase(left(Titre, 1)) = '" & chr(I) & "'") > 0 then %> <%=chr(I)%> <% else %> <%=chr(I)%> <% end if end if next end sub sub BuildBarVolNum dim I, arrVol() set FSO = server.CreateObject("Scripting.FileSystemObject") set FO = FSO.GetFolder(Server.MapPath(".") & "\revues") I = 0 for each F in FO.SubFolders redim preserve vRev(I) vRev(I) = cint(F.Name) I = I + 1 next SortArrASC vRev for I = 0 to Ubound(vRev) set FO = FSO.GetFolder(Server.MapPath(".") & "\revues\" & vRev(I)) redim preserve arrVol(I) J = 0 for each F in FO.SubFolders if FSO.FileExists(Server.MapPath(".") & "\revues\" & vRev(I) & "\" & F.Name & "\" & "cover-petit.jpg") then J = J + 1 end if next ArrVol(I) = J next %> <% for I = 0 to Ubound(arrVol) if I mod 5 = 0 then %><% end if %> <% if (I + 1) mod 5 = 0 or I = Ubound(arrVol) then %><% end if next %>

Liste des revues Aînés Hébergement
Voici la liste complète de notre revue. Choisissez le volume ou la revue pour lequel vous aimeriez avoir la listes des articles en cliquant sur le numéro approprié.

class=SelectPart>

Vol. <%=I + 1%><% else if I + 1 = vSec \ 100 then %> class=SelectPart<% end if %>>

Vol. <%=I + 1%> <% end if %>

<% for J = 0 to arrVol(I) - 1 if J mod 2 = 0 then %><% end if if ((I+1) * 100) + (J+1) = vSec then %><% if J mod 2 <> 0 then %><% end if next %>

#<%=J+1%><% else %>

class=SelectPart <% end if %>>

#<%=J+1%> <% end if %>

<% end sub sub BuildBarNames dim RSn, vSQL set RSn = Server.CreateObject("ADODB.Recordset") %><% RSn.Close end sub %> Aînés Hébergement - <% if vAct <> "" then Response.Write vAct & " : " else %>Volume <%=vVol%>, Numéro <%=vNum%>, <%=(1999 + vVol)%><% end if %> <% dim FOsub, Fsub, vRev(), I, J, temp sub SortArrDESC(arrshort) for i = UBound(arrShort) - 1 To 0 Step -1 for j= 0 to i if arrShort(j)arrShort(j+1) then temp=arrShort(j+1) arrShort(j+1)=arrShort(j) arrShort(j)=temp end if next next end sub select case vAct case "": '**** Affichage d'une revue, son image, un lien vers ses fichiers ainsi qu'un bout de l'éditorial %>

ARCHIVES / VOLUME <%=vVol%>

<%'**** ce bout de table doit être présent dans tout les headers%>

<%ShadowImg ""%>

Volume <%=vVol%>, Numéro <%=vNum%>, <%=(1999 + vVol)%>

<% set vStream = FSO.OpenTextFile(Server.MapPath(".") & "\revues\" & vVol & "\" & vNum & "\" & "sample.txt") If Not vStream.AtEndOfStream Then While Not vStream.AtendOfStream Response.Write vStream.ReadLine wend end if set vStream = nothing %>

<% if FSO.FileExists(Server.MapPath(".") & "\revues\" & vVol & "\" & vNum & "\" & "sommaire.htm") then %> Sommaire | <% end if %> <% if FSO.FileExists(Server.MapPath(".") & "\revues\" & vVol & "\" & vNum & "\" & "editorial.htm") then %> Éditorial | <% end if %> <%if FSO.FileExists(Server.MapPath(".") & "\revues\" & vVol & "\" & vNum & "\" & "article.htm") then %> Article proposé <% end if %>

<% I = 0 set FSO = server.CreateObject("Scripting.FileSystemObject") set FO = FSO.GetFolder(Server.MapPath(".") & "\revues") for each F in FO.SubFolders set FOsub = FSO.GetFolder(Server.MapPath(".") & "\revues\" & F.name) for each Fsub in FOsub.SubFolders if FSO.FileExists(Server.MapPath(".") & "\revues\" & F.Name & "\" & Fsub.Name & "\" & "cover.jpg") then redim preserve vRev(I) vRev(I) = (100 * cint(F.Name)) + cint(Fsub.name) I = I + 1 end if next next SortArrDESC vRev for I = 0 to ubound(vRev) if vRev(I) = (vVol * 100) + vNum then exit for end if next dim vPrev, vNext vPrev = 0 vNext = 0 'prev if I > 0 then vPrev = vRev(I - 1) end if if I < Ubound(vRev) then vNext = vRev(I + 1) end if %>

<% if vNext > 0 then %><< Précédent<% end if %>

<% if vPrev > 0 then %>Suivant >><% end if %>

<% case "archives": '**** ce bout de table doit être présent dans tout les headers%>

<% set FSO = server.CreateObject("Scripting.FileSystemObject") set FO = FSO.GetFolder(Server.MapPath(".") & "\revues") I = 0 for each F in FO.SubFolders set FOsub = FSO.GetFolder(Server.MapPath(".") & "\revues\" & F.name) for each Fsub in FOsub.SubFolders if FSO.FileExists(Server.MapPath(".") & "\revues\" & F.Name & "\" & Fsub.Name & "\" & "cover-petit.jpg") then redim preserve vRev(I) vRev(I) = (100 * cint(F.Name)) + cint(Fsub.name) I = I + 1 end if next next SortArrDESC vRev for I = 0 to Ubound(vRev) 'show it if I mod 3 = 0 then %> <% end if %> <% if (I + 1) mod 3 = 0 or I = ubound(vRev) then %> <% end if next set FOsub = nothing %>

<% ShadowImg "" %>

Consulter

Revue

Articles

Vol.<%=vRev(I) \ 100%>, no.<%=vRev(I) mod 100%>

<% %>

<% Case "article": strSQL = "SELECT Titre, Article, Revue, Pages, Description, Nom_Jou, Link FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_jou WHERE ID = " & request.QueryString("id") RS.Open strSQL, CN if not RS.EOF then %>

ARCHIVES / " class=NavLink>VOLUME <%=RS.Fields("Revue") \ 100%> / " class=NavLink>NUMÉRO <%=RS.Fields("Revue") mod 100%>

<%'**** ce bout de table doit être présent dans tout les headers%>

<% ShadowImg "" %>

<% dim vDescArt vDescArt = RS.Fields("Description") %>

<%=Ucase(RS.Fields("Titre"))%>

Volume <%=RS.Fields("Revue") \ 100%> Numéro <%=RS.Fields("Revue") mod 100%>, <%=1999 + (RS.Fields("Revue") \ 100)%>
Page : <%=RS.Fields("Pages")%>

Description :

<%=FormMess(vDescArt)%>

Auteur :
<%=RS.Fields("Nom_Jou")%>

<% if RS.Fields("Link") <> "" and not isNull(RS.Fields("Link")) then %> /<%=RS.Fields("Revue") mod 100%>/<%=RS.Fields("Link")%>.htm">

<% end if %>

<% dim IDNav vPage = RS.Fields("Pages") if instr(1, vPage, "-") > 0 then vPage = cSng(Left(vPage, instr(1, vPage, "-") - 1)) end if IDnav = GetResult("SELECT TOP 1 ID " & _ "FROM Articles " & _ "WHERE (Revue = " & RS.Fields("Revue") & _ " AND csng(LEFT(Pages, IIF(instr(1, Pages, '-') > 0, instr(1, Pages, '-') - 1, LEN(Pages)))) < " & vPage & ") " & _ " OR Revue < " & RS.Fields("Revue") & _ " ORDER BY Revue DESC, csng(LEFT(Pages, IIF(instr(1, Pages, '-') > 0, instr(1, Pages, '-') - 1, LEN(Pages)))) DESC ") if IDnav > 0 then %><% end if %>

<% IDnav = GetResult("SELECT TOP 1 ID " & _ "FROM Articles " & _ "WHERE (Revue = " & RS.Fields("Revue") & _ " AND csng(LEFT(Pages, IIF(instr(1, Pages, '-') > 0, instr(1, Pages, '-') - 1, LEN(Pages)))) > " & vPage & ") " & _ " OR Revue > " & RS.Fields("Revue") & _ " ORDER BY Revue ASC, csng(LEFT(Pages, IIF(instr(1, Pages, '-') > 0, instr(1, Pages, '-') - 1, LEN(Pages)))) ASC ") if IDnav > 0 then %><% end if %>

<% else %>

<% end if RS.Close Case "liste": '**** ce bout de table doit être présent dans tout les headers%>

<% dim vOrder, vRows, vSec, NumPages, ActPage vOrder = Request.QueryString("o") if vOrder = "" then vOrder = "titre" vRows = Request.QueryString("r") if vRows = "" then vRows = 25 vRows = cint(vRows) ActPage = Request.QueryString("p") if ActPage = "" then ActPage = 1 ActPage = cint(ActPage) vSec = Request.QueryString("s") %>


	Tri des articles

>Par le titre
>Par la revue
>Par l'auteur

>25
>50
>100

par pages

Vous désirez effectuer une recherche?

<% 'affichage des titres dim NumRows, NumBound, vQuery vQuery = true select case vOrder case "titre": 'section a-z if vSec = "" then vSec = "A" NumRows = GetResult("SELECT COUNT(ID) FROM Articles WHERE Ucase(Left(Titre, 1)) = '" & vSec & "'") NumPages = cINt(NumRows \ vRows) + 1 NumBound = (NumRows - (vRows * (ActPage - 1))) if NumBound < 0 then NumBound = NumRows %><%BuildBarAlpha%>

<% BuildNavBar %>

<% if NumRows > 0 then strSQl = "SELECT TOP " & vRows & " ID, Titre, Revue, Nom_jou, Link " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE UCase(Left(Titre, 1)) = '" & vSec & "' " & _ "AND ID IN (SELECT TOP " & NumBound & " ID " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE UCase(Left(Titre, 1)) = '" & vSec & "' " & _ "ORDER BY Titre DESC) " & _ "ORDER BY Titre ASC" else vQuery = false end if case "revue": 'section a-z if vSec = "" then vSec = 1 vSec = cint(vSec) if vSec < 100 then NumRows = GetResult("SELECT COUNT(ID) FROM Articles WHERE left(Revue, len(Revue) - 2) = '" & vSec & "'") else NumRows = GetResult("SELECT COUNT(ID) FROM Articles WHERE Revue = " & vSec) end if NumPages = cINt(NumRows \ vRows) + 1 NumBound = (NumRows - (vRows * (ActPage - 1))) if NumBound < 0 then NumBound = NumRows %>

<%BuildBarVolNum%>

<% BuildNavBar %>

<% if NumRows > 0 then if vSec < 100 then strSQl = "SELECT TOP " & vRows & " ID, Titre, Revue, Nom_jou, Link " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE left(Revue, len(Revue) - 2) = '" & vSec & "' " & _ "AND ID IN (SELECT TOP " & NumBound & " ID " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE left(Revue, len(Revue) - 2) = '" & vSec & "' " & _ "ORDER BY Titre DESC) " & _ "ORDER BY Titre ASC" else strSQl = "SELECT TOP " & vRows & " ID, Titre, Revue, Nom_jou, Link " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE Revue = " & vSec & _ " AND ID IN (SELECT TOP " & NumBound & " ID " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE Revue = " & vSec & _ " ORDER BY Titre DESC) " & _ "ORDER BY Titre ASC" end if else vQuery = false end if case "nom_jou": 'section a-z if vSec = "" then vSec = GetResult("SELECT MIN(ID_jou) FROM Journalistes") vSec = cint(vSec) NumRows = GetResult("SELECT COUNT(ID) FROM Articles WHERE Journaliste = " & vSec) NumPages = cINt(NumRows \ vRows) + 1 NumBound = (NumRows - (vRows * (ActPage - 1))) if NumBound < 0 then NumBound = NumRows %><%BuildBarNames%>

<% BuildNavBar %>

<% if NumRows > 0 then strSQL = "SELECT TOP " & vRows & " ID, Titre, Revue, Nom_jou, Link " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE Journaliste = " & vSec & " " & _ "AND ID IN (SELECT TOP " & NumBound & " ID " & _ "FROM Articles LEFT JOIN Journalistes ON Articles.Journaliste = Journalistes.ID_Jou " & _ "WHERE Journaliste = " & vSec & " " & _ "ORDER BY Titre DESC) " & _ "ORDER BY Titre ASC" else vQuery = false end if end select 'Response.Write NumRows & "
" 'Response.Write NumPages & "
" 'Response.Write NumBound & "
" 'Response.Write strSQL if vQuery then RS.Open strSQL, CN %>

<% if not RS.EOF then do while not RS.EOF %>

<%if RS.Fields("Link") <> "" and not isnull(RS.Fields("Link")) then %> <% end if %>

" class=txt_title> <%=RS.Fields("Titre")%>

/<%=RS.Fields("Revue") mod 100%>/<%=RS.Fields("Link")%>.htm">Article en-ligne

- <%=RS.Fields("Nom_jou")%>, Volume <%=RS.Fields("Revue") \ 100%> Numéro <%=RS.Fields("Revue") mod 100%>

<% RS.MoveNext loop BuildNavBar %>
<% else %>Aucun article à afficher<% end if %>

<% RS.Close end if end select %>