<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CheckSecurity(1) Dim idInt Dim DateInt Dim CustInt Dim idEmpl Dim FullDay Dim BeginTime Dim EndTime Dim JobDescription Dim FlagDebut Dim FlagFin Dim ErrorMessage Dim BTH Dim BTM Dim ETH Dim ETM idInt = GetParam("IDInt") DateInt = "" CustInt = "" idEmpl = 0 BeginTime = "" EndTime = "" JobDescription = "" FlagDebut = "" FlagFin = "" ErrorMessage = 0 ErrorMessage = GetParam("Mess") BTH = 0 BTM = 0 ETH = 0 ETM = 0 If ErrorMessage = 0 then Set rs_curr_int = Server.CreateObject("ADODB.Recordset") sql_curr_int = "SELECT * FROM reldatelieupers_2 WHERE id='" & idInt & "'" openrs rs_curr_int, sql_curr_int while not rs_curr_int.eof DateInt = rs_curr_int("DateInt") CustInt = rs_curr_int("CustInt") idEmpl = rs_curr_int("idEmpl") FullDay = rs_curr_int("FullDay") If FullDay = 1 then FullDay = "on" ETH = 24 ETM = 0 else FullDay = "off" BeginTime = rs_curr_int("BeginTime") BTH = hour(BeginTime) BTM = minute(BeginTime) EndTime = rs_curr_int("EndTime") ETH = hour(EndTime) ETM = minute(EndTime) If ETH = 23 AND ETM = 59 then ETH = 24 ETM = 0 'response.Write("23:59
") end if end if JobDescription = rs_curr_int("JobDescription") FlagDebut = rs_curr_int("FlagDebut") FlagFin = rs_curr_int("FlagFin") rs_curr_int.movenext wend rs_curr_int.close set rs_curr_int = nothing else DateInt = GetParam("DateInt") CustInt = GetParam("CustInt") idEmpl = GetParam("idEmpl") FullDay = GetParam("FullDay") 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 JobDescription = GetParam("JobDescription") FlagDebut = GetParam("FlagDebut") FlagFin = GetParam("CalOutputElm") end if SemRedirect = DatePart("ww",DateInt,2,3) %> <% 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 %> <% 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 %>

<%=DateToHtml(DateInt)%>	Update event : <%=CustInt%>
Impossible d'ajouter un client vide
Veuillez remplir le champ client
Veuillez encoder des heures valides
Vérifiez la date de fin
Begin date :	<%=FlagDebut%>
End date :
Begin time :	<% For ha = 0 to 24 If ha < 10 then ha_show = "0" & ha else ha_show = Cstr(ha) end if If CStr(ha) = CStr(BTH) then response.write "" & ha_show & "" else response.write "" & ha_show & "" end if next %>  :  <% For ha = 0 to 45 step 15 If ha < 10 then ha_show = "0" & ha else ha_show = Cstr(ha) end if If CStr(ha) = CStr(BTM) then response.write "" & ha_show & "" else response.write "" & ha_show & "" end if next %>
End time :	<% For ha = 0 to 24 If ha < 10 then ha_show = "0" & ha else ha_show = Cstr(ha) end if If CStr(ha) = CStr(ETH) then response.write "" & ha_show & "" else response.write "" & ha_show & "" end if next %>  :  <% For ha = 0 to 45 step 15 If ha < 10 then ha_show = "0" & ha else ha_show = Cstr(ha) end if If CStr(ha) = CStr(ETM) then response.write "" & ha_show & "" else response.write "" & ha_show & "" end if next %>
Full Day :	<% If FullDay = "on" then %> <% else %> <% end if %>
Customer :
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 %>
Job description :	<%=JobDescription%>