<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CheckSecurity(1) DateIntervention = GetParam("DateInterv") IdEmpl = GetParam("IdEmpl") IdTime = GetParam("IdTime") IdIntervention = GetParam("IDInt") ErrorMessage = 0 ErrorMessage = GetParam("Mess") actionupdate = 0 If IdIntervention = "" then actionupdate = 0 else actionupdate = 1 end if %> <% If actionupdate = 1 then %> <% else %> <% end if %> <% If ErrorMessage <> 0 then If ErrorMessage = 1 then %> <% end if If ErrorMessage = 2 or ErrorMessage = 3 then %> <% end if end if %>

Update event : <%=DateIntervention%>		New event : <%=DateIntervention%>
Impossible d'ajouter un client vide
Veuillez remplir le champ client
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 :	<% If actionupdate = 1 then sqlcust = "id=" & IdIntervention Customer = DLookUp("reldatelieupers", "CustInt", sqlcust) %> <% else %> <% openrs rsCustIntList, "select id, Customer from custint order by Customer ASC" while not rsCustIntList.EOF if GetValue(rsCustIntList, 0) = 1 then response.write "" & GetValue(rsCustIntList, 1) & "" else response.write "" & GetValue(rsCustIntList, 1) & "" end if rsCustIntList.MoveNext wend set rsCustIntList = nothing %>     (Insert Cli) <% end if %>
Employee :	<% openrs rsidEmpl, "select IdEmpl, Initiales from employees where DisableEmpl=0 order by 2" while not rsidEmpl.EOF if cstr(GetValue(rsidEmpl, 0)) = cstr(IdEmpl) then response.write "" & GetValue(rsidEmpl, 1) & "" else response.write "" & GetValue(rsidEmpl, 1) & "" end if rsidEmpl.MoveNext wend set rsidEmpl = nothing %>
<% If actionupdate = 1 then %>     <% else %> <% end if %>