Poser une question

Re: Date

J'ai réussi !! mais si dans ma table il y a plusieurs absences a signaler, là ca ne marche pas car j'ai pas fait la boucle <%Rs.MoveFirst do while not Rs.eof%>
pour lire toutes les fiches.
Mais ca je sais pas comment l'insérer pour que ca marche.

voila mon code:

Dim njTemp

For n = 1 to nbrCase
njTemp = n - nDateDebut+1
if nNomJour = 1 then response.write "<tr>"

if (njTemp) = nJour then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&"""><td align=""center"" valign=""middle"" class=""calJourSel"" style=""border: 1 solid #000000"" width=""110"" height=""45"">"
else if month(dateDebut) <> month(dateFin) then
if (njTemp) >= day(dateDebut) AND (njTemp) <= day(nDate2) AND month(nDate) = month(dateDebut) OR (njTemp) <= day(dateFin) AND (njTemp) >= day(nDate1) AND month(nDate) = month(dateFin) then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&"""><td align=""center"" valign=""middle"" class=""absence"" style=""border: 1 solid #000000"" width=""110"" height=""45"">"
else
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&"""><td align=""center"" valign=""middle"" class=""calJour"" style=""border: 1 solid #000000"" width=""110"" height=""45"">"
end if
else
if (njTemp) >= day(dateDebut) AND (njTemp) <= day(dateFin) AND month(ndate) = month(dateDebut) then
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&"""><td align=""center"" valign=""middle"" class=""absence"" style=""border: 1 solid #000000"" width=""110"" height=""45"">"
else
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&"""><td align=""center"" valign=""middle"" class=""calJour"" style=""border: 1 solid #000000"" width=""110"" height=""45"">"
end if
end if
end if
if n < (nDateDebut) or n > (nJour2+nDateDebut-1) then
response.write " "
end if

response.write "</td>"
if nNomJour = 7 then
response.write "</tr>"

end if

if nNomJour = 7 then nNomJour = 1 else nNomJour = nNomJour + 1 end if

next
%>

merci de ton aide

Réponses

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