<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") repertoire = "/cddp51/ressources/acquisitions/" repertoireslj = "/cddp51/ressources/acquisitions/slj" %> milieu gauche
<% nom_fich = "cat_nouveautes.pdf" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %>
Format PDF
<% End if %>

<% nom_fich = "alm.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Allemand
<% End if nom_fich = "Ang.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Anglais
<% End if nom_fich = "Art.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Art
<% End if nom_fich = "audio.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Audiovisuel
<% End if nom_fich = "lang.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Autres Langues Vivantes
<% End if nom_fich = "cirque.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> cirque
<% End if nom_fich = "concours.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Concours
<% End if nom_fich = "Danse.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Danse
<% End if nom_fich = "_Divers.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Divers
<% End if nom_fich = "_Doc.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Documentation
<% End if nom_fich = "_Droit.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Droit
<% End if nom_fich = "Educ.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Education civique
<% End if nom_fich = "Eps.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Education Physique et Sportive
<% End if nom_fich = "_Pro.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Enseignement professionnel - vie professionnelle
<% End if nom_fich = "langues_vivantes.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Enseignement des langues vivantes
<% End if nom_fich = "educspec.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Education spécialisée
<% End if nom_fich = "educprio.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Education prioritaire
<% End if nom_fich = "esp.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Espagnol
<% End if nom_fich = "eva.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Évaluation
<% End if nom_fich = "Fond.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Fonds régional
<% End if nom_fich = "Fran.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Français - Lettres
<% End if nom_fich = "Fle.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Français langue étrangère
<% End if nom_fich = "Geo.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Géographie
<% End if nom_fich = "Hist-geo-educ.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Histoire - Géographie et Education civique
<% End if nom_fich = "_Inter.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Interdisciplinarité
<% End if nom_fich = "_Ital.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Italien
<% End if nom_fich = "Info.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Informatique
<% End if nom_fich = "langvivant.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Langues vivantes
<% End if nom_fich = "langage.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Langage
<% End if nom_fich = "lije.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Littérature Jeunesse
<% End if nom_fich = "Lije_enseign.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Littérature Jeunesse - Enseignement
<% End if nom_fich = "lecture-ecriture.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Lecture Écriture
<% End if nom_fich = "Mat.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Maternelle
<% End if nom_fich = "Maths.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Mathématiques
<% End if nom_fich = "Mus.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Musique
<% End if nom_fich = "Ped.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Pédagogie
<% End if nom_fich = "persoenseig.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Personnel enseignant
<% End if nom_fich = "persononenseign.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Personnel non enseignant
<% End if nom_fich = "Philo.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Philosophie
<% End if nom_fich = "Physc.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Physique
<% End if nom_fich = "Poesie.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Poésie
<% End if nom_fich = "Pres.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Presse
<% End if nom_fich = "Psych.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Psychologie
<% End if nom_fich = "Ses.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Sciences Économiques et Sociales
<% End if nom_fich = "sci.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Sciences
<% End if nom_fich = "Sti.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> STI
<% End if nom_fich = "Svt.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> SVT
<% End if nom_fich = "SMS.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Sciences Médico-sociales
<% End if nom_fich = "SE.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Système éducatif
<% End if nom_fich = "techo.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Technologie
<% End if nom_fich = "Ter.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Tertiaire
<% End if nom_fich = "Theatre.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Théâtre
<% End if nom_fich = "viscol.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Vie Scolaire

SLJ

<% End if nom_fich = "albums.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Albums
<% End if nom_fich = "bandes_dessinees.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> bandes dessinées
<% End if nom_fich = "contes.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Contes
<% End if nom_fich = "documentaires.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Documentaires
<% End if nom_fich = "romans.htm" chemin_fichier = Server.MapPath(repertoire & nom_fich) If FSO.FileExists(chemin_fichier) Then %> Romans
<% End if Set FSO = Nothing %>