Poser une question

Re: Date

Salut,

C'est beaucoup plus simple que ça (D'ailleurs ne met pas de cellule de tableau après l'uverture d'une balise A), essai ça pour voir et dit moi comment ça passe?

if ((njTemp) >= day(dateDebut) AND (njTemp) <= day(dateFin)) then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&""">"
response.write (njTemp) & "</a>"
else
response.write (njTemp)
end if


Dim njTemp
For n = 1 to nbrCase
njTemp = n - nDateDebut+1
if nNomJour = 1 then response.write "<tr>" end if
if (njTemp) = nJour then
response.write "<td align=""center"" valign=""middle"" class=""calJourSel"">"
else
response.write "<td align=""center"" valign=""middle"" class=""calJour"">"
end if
if n < (nDateDebut) or n > (nJour2+nDateDebut-1) then
response.write " "
else
if ((njTemp) >= day(dateDebut) AND (njTemp) <= day(dateFin)) then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&""">"
response.write (njTemp) & "</a>"
else
response.write (njTemp)
end if
end if
response.write "</td>"
if nNomJour = 7 then
response.write "</tr>"
nNomJour = 1
else
nNomJour = nNomJour + 1
end if
next ' Boucle des jour / Day for
Si tu as d'autre test comme les vacances, ajoute un OR.

Ex:

if ((njTemp) >= day(dateDebut) AND (njTemp) <= day(dateFin)) OR ((njTemp) >= day(dateAutreDebut) AND (njTemp) <= day(dateAutreFin)) then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&""">"
response.write (njTemp) & "</a>"
else
response.write (njTemp)
end if

Ciao
Oznog

Réponses

Re: Date  samlon 10/10/2002    Re: Date  samlon 10/10/2002    Re: Date  samlon 10/10/2002    Re: Date  Oznog 10/10/2002    Re: Date  Oznog 10/10/2002    Re: Date  samlon 11/10/2002    Va voir ICI  samlon 11/10/2002    Re: Va voir ICI  Oznog 11/10/2002    Re: Va voir ICI  Oznog 11/10/2002