oui je suis d'accord avec toi Arjuna c mon intention mais en attendant j'ai trouver ce script:
<% ' Diaporama 1.0 © D.YVER 05/07/2002
Set FSO = Server.CreateObject("Scripting.FileSystemObject" )
sub display(rep,niv)
dim fc,f
set fc = FSO.getFolder(server.MapPath(rep))
if niv >0 then
' Lit les sous-dossiers
for each f in fc.subfolders
display rep & "/" & f.name,niv-1
next
' Si fini, on recommence...
if session("photo" )="" then display rep,niv
end if
for each f in fc.files
' Lit les photos du dossier courant
if instr("jpeg.jpg.gif.bmp",right(f.name,4))>0 then
' Déjà affichée ?
if session("photo" )=rep & "/" & f.name then
' Oui alors prépare pour la suivante
session("photo" )=""
elseif session("photo" )="" then
' Affiche la photo
session("photo" )=rep & "/" & f.name
response.write session("photo" )
exit for
end if
end if
next
end sub
%>
</head>
<body>
<div class="popuph" id="Layer1">
<h1><%response.Write(request.QueryString("Titre" ))%></h1>
<hr>
<div align="left"><img src="<%display ".",1%>" height=180><br>
<A HREF="javascript:window.close()">Fermer</a> </div>
</div>
</body>
</html>
qui fonctionne mais le probleme est qu'il cherche les photos dans tous les dossiers present a partir du dossier initial ou est placé la page. comment faire pour specifier le dossier?