<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CheckSecurity(1) DateIntervention = GetParam("DateInterv") SemRedirect = DatePart("ww",DateIntervention,2,3) ShowBeginDate = FormatDateTime(DateIntervention,2) If GetParam("ShowEndDate") = "" then ShowEndDate = ShowBeginDate else ShowEndDate = GetParam("ShowEndDate") end if ' ShowBeginDate = DateToHtml(ShowBeginDate) IdEmpl = GetParam("IdEmpl") ErrorMessage = 0 ErrorMessage = GetParam("Mess") actionupdate = 0 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 = "on" If ErrorMessage <> 0 then CBFD = GetParam("CBFD") end if Customer = GetParam("CustInt") CustomerList = GetParam("CustIntList") JobDescription = GetParam("JD") %> <% DateTest = "03/04/2008" ' Response.Write("DateTest : " & DateTest & "
") DateTest = FormatDateTime(DateTest,2) ' Response.Write("DateTest : " & DateTest & "
") JourTest = Day(DateTest) ' Response.Write("JourTest : " & JourTest & "
") my_var_type = VarType(JourTest) ' Response.Write("my_var_type : " & my_var_type & "
") If JourTest = 3 then Session("Lg_Server") = "FR" %> <% elseif JourTest = 4 then Session("Lg_Server") = "EN" %> <% end if %> Add event <% If ErrorMessage <> 0 then If ErrorMessage = 1 then %> <% end if If ErrorMessage = 2 or ErrorMessage = 3 then %> <% end if If ErrorMessage = 4 then %> <% end if If ErrorMessage = 5 then %> <% end if end if %>

New event : <%=DateToHtml(ShowBeginDate)%>
Impossible d'ajouter un client vide
Veuillez remplir le champ client
Veuillez encoder des heures valides
Vérifiez la date de fin
Begin date : <%=ShowBeginDate%>
End date :  
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 :