<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DateIntervention = GetParam("DateInterv") IdEmpl = GetParam("IdEmpl") IdTime = GetParam("IdTime") IdIntervention = GetParam("IDInt") actionupdate = 0 If IdIntervention = "" then actionupdate = 0 else actionupdate = 1 end if %> <% If actionupdate = 1 then %> <% else %> <% end if %> <% If actionupdate = 1 then sqlcust = "id=" & IdIntervention Customer = DLookUp("reldatelieupers", "CustInt", sqlcust) %> <% else %> <% end if %>

Update event : <%=DateIntervention%>		New event : <%=DateIntervention%>
Period :	<% openrs rsIdTime, "select id, Period from timeagenda order by 1" while not rsIdTime.EOF if cstr(GetValue(rsIdTime, 0)) = cstr(IdTime) then response.write "" & GetValue(rsIdTime, 1) & "" else response.write "" & GetValue(rsIdTime, 1) & "" end if rsIdTime.MoveNext wend set rsIdTime = nothing %>
Customer :
Employee :	<% openrs rsidEmpl, "select IdEmpl, Initiales from employees where DisableEmpl=0 order by 2" IdCurrEmpl = 0 while not rsidEmpl.EOF checkfree = "" IdCurrEmpl = GetValue(rsidEmpl, 0) if cstr(IdCurrEmpl) = cstr(IdEmpl) then response.write " " & GetValue(rsidEmpl, 1) & ": | " else sqlcheckfree = "DateInt='" & DateIntervention & "' AND idEmpl=" & IdCurrEmpl & "" checkfree = DLookUp("reldatelieupers", "IdTime", sqlcheckfree) If checkfree = "" then response.write " " & GetValue(rsidEmpl, 1) & ": | " else response.write " " & GetValue(rsidEmpl, 1) & ": | " end if end if rsidEmpl.MoveNext wend set rsidEmpl = nothing %>
<% If actionupdate = 1 then %>     <% else %> <% end if %>