<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Mise en mémoire des dates
<%
CheckSecurity(1)
datedebut = Request.Form("CalOutputElm")
' DayDateFin = Request.Form("DayDateFin")
' MonthDateFin = Request.Form("MonthDateFin")
' YearDateFin = Request.Form("YearDateFin")
' datefin = Dateserial(YearDateFin,MonthDateFin,DayDateFin)
datefin = Request.Form("CalOutputElm2")
Chk_fisrt_last = DateDiff("d",datedebut,datefin)
If Chk_fisrt_last = 0 then
Session("datedebut") = datedebut
Session("datefin") = datefin
elseif Chk_fisrt_last < 0 then
Session("datedebut") = datefin
Session("datefin") = datedebut
elseif Chk_fisrt_last > 0 then
Session("datedebut") = datedebut
Session("datefin") = datefin
end if
Session("chguser") = "on"
IDEmployee = 0
InitEmployee = ""
StatutEmployee = ""
openrs rsidEmpl, "select IdEmpl, Initiales from employees where DisableEmpl=0 order by 2"
while not rsidEmpl.EOF
IDEmployee = GetValue(rsidEmpl, 0)
StatutEmployee = Request.Form("Empl" & IDEmployee)
If IDEmployee <> 0 then
If StatutEmployee = "on" then
Session("Empl" & IDEmployee) = "on"
Response.Write("
" & Session("Empl" & IDEmployee))
else
Session("Empl" & IDEmployee) = "off"
Response.Write("
" & Session("Empl" & IDEmployee))
end if
end if
If IDEmployee = 0 then
Session("Empl" & IDEmployee) = "off"
end if
StatutEmployee = ""
rsidEmpl.MoveNext
wend
set rsidEmpl = nothing
Response.Redirect("EBAgenda.asp")
%>