Poser une question

Probleme d'affichge d'image

Bonjour à tous,

J'aimerais afficher une image précise suivant la date que nous sommes et que cette affichage dure pendant 4 jours.
Mes images se nomment ainsi par exemple : 15_04_h.gif
Je voudrait que cette image s'affiche du 15/04 au 18/04 mais impossible de l'afficher, je ne comprends pas pourquoi
Voici mon code :

<%
Dim monjour, monmois
monjour = day(now)
monmois = month(now)
maseconde = Second(now)
madate = DateAdd("d",0,date)
madate4 = DateAdd("d",4,date)
Response.Write madate & " || " & madate4 & "<br>"
formatdate = replace(left(madate,5),"/","_")
formatdate4 = replace(left(madate4,5),"/","_")
Response.Write formatdate & " || " & formatdate4 & "<br>" & maseconde
%>
</p>
<p>
<%
strRacine = Server.MapPath("/francais/gif_tournoi/")

dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(strRacine)
for each x in fo.files
If (left(x.Name,5) >= madate) and (left(x.Name,5) <= madate4) Then
Response.write("<img src='../francais/gif_tournoi/" & nom_image & "_h.gif'></br>")
End if
next
set fo=nothing
set fs=nothing
%>

Merci de votre aide

Réponses

Re: Probleme d'affichge d'image  Oznog 16/4/2004