<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CheckSecurity(1) DateIntervention = GetParam("DateInterv") IdEmpl = GetParam("IdEmpl") ErrorMessage = 0 ErrorMessage = GetParam("Mess") actionupdate = 0 ShowDate = FormatDateTime(DateIntervention,2) BTH = 0 BTM = 0 ETH = 0 ETM = 0 BTH = GetParam("BTH") BTM = GetParam("BTM") If BTH = 0 AND BTM = 0 then BTH = 9 BTM = 0 End if ETH = GetParam("ETH") ETM = GetParam("ETM") If ETH = 0 AND ETM = 0 then ETH = 18 ETM = 0 End if CBNC = GetParam("CBNC") CBFD = GetParam("CBFD") Customer = GetParam("CustInt") CustomerList = GetParam("CustIntList") JobDescription = GetParam("JD") %> Add event <% If ErrorMessage <> 0 then If ErrorMessage = 1 then %> <% end if If ErrorMessage = 2 or ErrorMessage = 3 then %> <% end if end if %>

New event : <%=ShowDate%>
Impossible d'ajouter un client vide
Veuillez remplir le champ client
Begin time :  : 
End time :  : 
Full Day : <% If CBFD = "on" then %> <% else %> <% end if %>
Customer :     <% If CBNC = "on" then %> <% else %> <% end if %> (Insert Cli)
Employee :
Job description :