Dernière mise à jour : 2011-07-06
* Haut de la page
<%
'GarbageDay = GetGarbageDay(CurrentDate)
GarbageDay = GetGarbageDay(Date)
If isNumeric(GarbageDay) then
garbagemessage = "Journée du recyclage " & GarbageDay
Else
garbagemessage = GarbageDay
End If
%>
<%
Function GetGarbageDay(CurrentDate)
Dim objFSO,objFile,rowdata,rowarray,DayofWeek,result,numHoliday
Dim StartDate,HolidayDate,HolidayDesc,DoneFlag,StartGarbageDay,TempVal
Const NoGarbageMsg = "Pas de collecte des ordures ménagères aujourd’hui"
CurrentDate = cdate(CurrentDate)
CurrentDate = DatePart("YYYY",CurrentDate) & "/" & DatePart("M",CurrentDate) & "/" & DatePart("D",CurrentDate)
CurrentDate = CDate(CurrentDate)
DayofWeek = DatePart("W", CurrentDate)
If DayofWeek = 1 or DayofWeek = 7 then
result = NoGarbageMsg
Else
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Server.MapPath("/interhom/GarbageDayCalc/GarbageStartAndHolidays.txt"),1) 'For Reading
NumHoliday = 0
DoneFlag = False
'Get start date and start dates garbage day
rowdata = objFile.ReadLine
'Response.write rowdata
rowArray = split(rowdata,",")
StartDate = Cdate(Trim(rowArray(0)))
StartGarbageDay = Trim(rowArray(1))
'Response.Write "
" If DateDiff("D", HolidayDate,CurrentDate) = 0 then If Trim(HolidayDesc) = "" then result = NoGarbageMsg Else result = HolidayDesc & "
" & NoGarbageMsg End If DoneFlag = True Else If DateDiff("D",HolidayDate,CurrentDate)< 0 then DoneFlag = True else NumHoliday = NumHoliday + 1 End If End If Loop objfile.Close Set objfile = Nothing Set objFSO = Nothing If result = "" then 'Response.write " #Holidays between:" & NumHoliday & "
" Tempval = (StartGarbageDay + (DateDiff("D",Startdate,CurrentDate) - (DateDiff("WW",Startdate,CurrentDate) * 7)) - NumHoliday) result = Tempval mod 5 If result <= 0 then result = result + 5 End If End If End If GetGarbageDay = result End Function %>
<% Response.write garbagemessage %>
" & CurrentDate & "
" result = "" do while objFile.AtEndOfStream <> true and DoneFlag=false rowdata = objFile.Readline rowarray = split(rowdata,",",2) HolidayDate = Cdate(trim(rowarray(0))) HolidayDesc = "" If ubound(rowarray)> 0 then HolidayDesc = Trim(rowarray(1)) end If 'Response.Write "Holiday Date:" & HolidayDate & " Holiday Description:" & HolidayDesc & "" If DateDiff("D", HolidayDate,CurrentDate) = 0 then If Trim(HolidayDesc) = "" then result = NoGarbageMsg Else result = HolidayDesc & "
" & NoGarbageMsg End If DoneFlag = True Else If DateDiff("D",HolidayDate,CurrentDate)< 0 then DoneFlag = True else NumHoliday = NumHoliday + 1 End If End If Loop objfile.Close Set objfile = Nothing Set objFSO = Nothing If result = "" then 'Response.write " #Holidays between:" & NumHoliday & "
" Tempval = (StartGarbageDay + (DateDiff("D",Startdate,CurrentDate) - (DateDiff("WW",Startdate,CurrentDate) * 7)) - NumHoliday) result = Tempval mod 5 If result <= 0 then result = result + 5 End If End If End If GetGarbageDay = result End Function %>
<% Response.write garbagemessage %>