% 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
%>
<% 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
%>
|
|
|
|
|
|
|
|