<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CheckSecurity(1) Client = GetParam("CustIntList") 'Response.Write(Client) If Client = " Other" then response.Redirect("ebagenda.asp") end if TotalTime = 0 TotalHour = 0 FlagNotUpdate = 0 %> Logbook <%=Client%> <% Set rs1 = server.CreateObject("ADODB.Recordset") sql1 = "SELECT * FROM reldatelieupers_2 WHERE Custint='" & Client & "' ORDER BY DateInt, BeginTime Asc" openrs rs1, sql1 If rs1.eof then %> <% else %> <% While not rs1.eof idEmpl = rs1("idEmpl") openrs rsidEmpl, "select IdEmpl, Initiales from employees where IdEmpl=" & idEmpl while not rsidEmpl.EOF initEmpl = GetValue(rsidEmpl, 1) rsidEmpl.MoveNext wend set rsidEmpl = nothing BeginTime = rs1("BeginTime") EndTime = rs1("EndTime") FtCol = "#000000" If rs1("Fullday") = 1 then BeginTime = "00:00:00" EndTime = "00:00:00" FlagNotUpdate = 1 FtCol = "#FF0000" End if IntervTime = DateDiff("n",BeginTime,EndTime) If EndTime = "23:59:00" then IntervTime = IntervTime + 1 end if IntervHour = IntervTime / 60 IntervHour = Int(IntervHour) IntervMinute = IntervTime - (IntervHour * 60) If IntervHour < 10 then IntervHour = "0" & IntervHour end if If IntervMinute < 10 then IntervMinute = "0" & IntervMinute end if InterventionTime = IntervHour & ":" & IntervMinute TotalTime = TotalTime + IntervTime JobDescription = "" JobDescription = rs1("JobDescription") %> <% If JobDescription <> "" then %> <% else %> <% end if %> <% If rs1("Fullday") = 1 then %> <% else %> <% end if %> <% rs1.movenext Wend end if rs1.close set rs1 = nothing TotalHour = TotalTime / 60 TotalHour = Int(TotalHour) TotalMinute = TotalTime - (TotalHour * 60) If TotalHour < 10 then TotalHour = "0" & TotalHour end if If TotalMinute < 10 then TotalMinute = "0" & TotalMinute end if TotalIntervention = TotalHour & "h" & TotalMinute %>

<%=Client%>
No record found
Date Begin End Description Empl Hours
<%=DateToHtml(rs1("DateInt"))%> <%=rs1("BeginTime")%> <%=rs1("EndTime")%> <%=initEmpl%>?<%=InterventionTime%>

<%=TotalIntervention%><%If FlagNotUpdate = 1 then Response.Write(" + ?") End if%>