<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Mise en mémoire des dates
<%
CheckSecurity(1)
myInit = ""
myInit = CStr(DLookUp("employees", "Initiales", "IdEmpl=" & Session("UserID")))
'Response.Write(TypeName(myInit) & myInit & "
")
IDEmployee = 0
InitEmpl = ""
StatutEmployee = ""
openrs rsidEmpl, "select IdEmpl, Initiales from employees where DisableEmpl=0 order by 2"
while not rsidEmpl.EOF
IDEmployee = GetValue(rsidEmpl, 0)
InitEmpl = CStr(rsidEmpl("Initiales"))
StatutEmployee = Request.Form("Empl" & IDEmployee)
If InitEmpl = myInit then
Session("Empl" & IDEmployee) = "on"
Response.Write(Session("Empl" & IDEmployee) & IDEmployee & "on -
")
else
Session("Empl" & IDEmployee) = "off"
'Response.Write(TypeName(myInit) & myInit & "on - " & TypeName(InitEmpl) & InitEmpl & "
")
Response.Write(Session("Empl" & IDEmployee) & IDEmployee & "off -
")
End if
StatutEmployee = ""
rsidEmpl.MoveNext
wend
set rsidEmpl = nothing
Session("chguser") = "meonly"
Response.Redirect("EBAgenda.asp")
%>