<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Mise en mémoire des dates
<%
CheckSecurity(1)
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)
Session("Empl" & IDEmployee) = "on"
StatutEmployee = ""
rsidEmpl.MoveNext
wend
set rsidEmpl = nothing
Response.Redirect("EBAgenda.asp")
%>