<% ' Diaporama 1.1 © D.YVER 11/05/2006 Set FSO = Server.CreateObject("Scripting.FileSystemObject") sub display(rep) dim fc,f set fc = FSO.getFolder(server.MapPath(rep)) ' Lit les sous-dossiers for each f in fc.subfolders display rep & "/" & f.name next ' Lit les photos du dossier courant for each f in fc.files if instr(".jpg",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 exit for end if end if next end Sub display "." %> Le Père Noël à Manzat "" Then response.write 5 _ Else response.write 0%>">
<% If session("photo")<>"" Then %> ">
<%=Mid(session("photo"),InstrRev(session("photo"),"/")+1)%> <%End if%>