Jeg skal bruge en superduper ASP-koder til denne opgave - kap. 2

Hej igen

Beregner den tiden mellem START og STOP rigtig ud eller hvad?

hey somaliomar!
Ja, jeg har lavet en loop i loopet... hvis du forstår.... Jeg har lavet en sql, hvor jeg kalder alle ordrenr. og efterfølgende poster jeg det ordrenr ind i den sql, der viser historikken.
Det vises faktisk fint for hver enkelt ordre (altså det med at vise tidsforbrug mellem START og STOP. Men det er kun den sidste ordre, hvor den sammenlagte tid (totalhours) beregnes.
Jeg tror det er et simpelt spørgsmål om at får placeret variablerne korrekt, så den tæller alle tiderne sammen fra alle ordrenumrene.

Skal du have koden, som den ser ud nu ?

Det vil jeg meget gerne :)

HERE GOES:

<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxxxx;uid=xxxxxxxx;pwd=xxxxx"
dboracle.Open strConn
strSQL1 = "select distinct p.adno, a.ad_type from pub p, ad a where  a.adno = p.adno and p.pdate = (select pdate from calendar where paper = 'DRS') and a.ad_type  in ('D','P')"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL1, dbOracle
%>
<tr>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<% do while not rs.EOF %>
<% ordrenr = rs("adno") & ".qxd" %>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<%
strSQL2 = "Select * FROM ANNTID WHERE TEXT = '" & ordrenr & "' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL2, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
  <tr>
          <td width="100" bgcolor="#E6E6D0"><h3 style="margin: 0 3">ordrenummer</h3></td>
          <td width="150" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato &amp; tid</h3></td>
          <td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
          <td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
          <td width="135" bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
        </tr>
<%
totalhours = 0
totalmins = 0

do while not rsoracle.EOF %>
        <tr>
          <td><h4 style="margin: 0 3"><% =rsoracle("text")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("event")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4></td>
          <td><h4 style="margin: 0 3" align="right">
<%

If rsoracle("event") = "START" Then
  eventstart = rsoracle("timestamp")
Else
  eventstop = rsoracle("timestamp")
  hours = datediff("h", eventstart, eventstop)
  min = datediff("n", eventstart, eventstop)
  sek = datediff("s", eventstart, eventstop)

  totalhours = totalhours + hours
  totalmins = totalmins + min
  totalseks = totalseks + sek
 
If hours = 0 Then
    Response.Write min & " minutter"
  Else
    Response.Write hours & " time(r) og " & min & " minutter"
  End If
End If
%>
</h4>
          </td>
        </tr>
<% rsoracle.movenext %>
<% loop %>
<% end if %>
<%
rs.movenext
loop
%>
    <tr>
    <td colspan="4">
<%
    totalmins = totalmins
    totalseks = totalseks mod 60
    totalhours = totalhours
    totalmins = totalmins mod 60

If totalhours <> 0 Then
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalhours & "&nbsp;time(r) og&nbsp;" & totalmins & "&nbsp;minutter</h3>"
Else
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalmins & "&nbsp;minutter</h3>"
End If
%> &nbsp;</td>
    </tr>
    <%
    rs.Close
    Set rs = Nothing
    rsoracle.Close
    Set rsoracle = Nothing
    Set SQL = Nothing
    %>
<%
    dbOracle.Close
    Set dbOracle = Nothing%>

Hvad er det, der er galt her?

Den beregner kun den sidste post's sammenlagte tid -
Det jeg gerne ville have var at den skulle loope gennem alle ordrenummer, til indeværende uge og så vise dem, og efterfølgende lave en sammentælling i tidfsforbrug af alle de poster, der har været for indeværende uge (total tidsforbrug på alle ordrenumre)

Jeg er ikke helt med ?)

OK:
Ovenstående koder viser flg:
ordrenummer  |  starttid  |  stationid  |  event(start/stop)  |  tidsforbrug
så looper den igennem alle ordrenumer - og den allersidste post viser den så yderligeree "samlet tidsforbrug" - men kun på den sidste post.

Jeg ville gerne have at den viste samlet tidsforbrug for ALLE posterne

Jeg kan ikke se hvad fejlen er. Men prøv det her:

<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxxxx;uid=xxxxxxxx;pwd=xxxxx"
dboracle.Open strConn
strSQL1 = "select distinct p.adno, a.ad_type from pub p, ad a where  a.adno = p.adno and p.pdate = (select pdate from calendar where paper = 'DRS') and a.ad_type  in ('D','P')"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL1, dbOracle
%>
<tr>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<% do while not rs.EOF %>
<% ordrenr = rs("adno") & ".qxd" %>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<%
strSQL2 = "Select * FROM ANNTID WHERE TEXT = '" & ordrenr & "' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL2, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
  <tr>
          <td width="100" bgcolor="#E6E6D0"><h3 style="margin: 0 3">ordrenummer</h3></td>
          <td width="150" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato &amp; tid</h3></td>
          <td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
          <td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
          <td width="135" bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
        </tr>
<%
totalhours = 0
totalmins = 0

do while not rsoracle.EOF %>
        <tr>
          <td><h4 style="margin: 0 3"><% =rsoracle("text")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("event")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4></td>
          <td><h4 style="margin: 0 3" align="right">
<%

If rsoracle("event") = "START" Then
  eventstart = rsoracle("timestamp")
Else
  eventstop = rsoracle("timestamp")
  hours = datediff("h", eventstart, eventstop)
  min = datediff("n", eventstart, eventstop)
  sek = datediff("s", eventstart, eventstop)

  totalhours = totalhours + hours
  totalmins = totalmins + min
  totalseks = totalseks + sek
 
If hours = 0 Then
    Response.Write min & " minutter"
  Else
    Response.Write hours & " time(r) og " & min & " minutter"
  End If
End If
%>
</h4>
          </td>
        </tr>
<% rsoracle.movenext %>
<% loop %>
<% end if %>
<%
rs.movenext
loop
%>
    <tr>
    <td colspan="4">
<%
    totalmins = totalmins \ 60
    totalseks = totalseks mod 60
    totalhours = totalhours \ 60
    totalmins = totalmins mod 60

If totalhours <> 0 Then
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalhours & "&nbsp;time(r) og&nbsp;" & totalmins & "&nbsp;minutter</h3>"
Else
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalmins & "&nbsp;minutter</h3>"
End If
%> &nbsp;</td>
    </tr>
    <%
    rs.Close
    Set rs = Nothing
    rsoracle.Close
    Set rsoracle = Nothing
    Set SQL = Nothing
 
    dbOracle.Close
    Set dbOracle = Nothing
   
    %>


Jeg gad godt se resultatet.

jeg kan vise dig det i form af screendumps, da det er på intranet - men det blive vist først i morgen eller torsdag, da jeg ligger syg p.t.

I orden

Jeg har fundet en fejl i beregningerne -

http://www.jman.dk/exempel1.htm

der kan du også se hvad jeg mener med den samlede tidsberegning

Jep, det kan jeg og jeg tror jeg ved hvor problemet er.

Dette er testet, så det skulle gerne virke


<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxxxx;uid=xxxxxxxx;pwd=xxxxx"
dboracle.Open strConn
strSQL1 = "select distinct p.adno, a.ad_type from pub p, ad a where  a.adno = p.adno and p.pdate = (select pdate from calendar where paper = 'DRS') and a.ad_type  in ('D','P')"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL1, dbOracle
%>
<tr>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<% do while not rs.EOF %>
<% ordrenr = rs("adno") & ".qxd" %>
<td>
<h6><%=ordrenr%></h6>
</td>
</tr>
<%
strSQL2 = "Select * FROM ANNTID WHERE TEXT = '" & ordrenr & "' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL2, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
  <tr>
          <td width="100" bgcolor="#E6E6D0"><h3 style="margin: 0 3">ordrenummer</h3></td>
          <td width="150" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato &amp; tid</h3></td>
          <td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
          <td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
          <td width="135" bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
        </tr>
<%
totalhours = 0
totalmins = 0

do while not rsoracle.EOF %>
        <tr>
          <td><h4 style="margin: 0 3"><% =rsoracle("text")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("event")%></h4></td>
          <td><h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4></td>
          <td><h4 style="margin: 0 3" align="right">
<%

If rsoracle("event") = "START" Then
  eventstart = rsoracle("timestamp")
Else
  eventstop = rsoracle("timestamp")
  sek = datediff("s", eventstart, eventstop)

  min = sek \ 60
  hours = min \ 60
  min = min mod 60
  sek = sek mod 60

  totalhours = totalhours + hours
  totalmins = totalmins + min
  totalseks = totalseks + sek
 
  If hours = 0 Then
    Response.Write min & " minutter og " & sek & " sekunder"
  Else
    Response.Write hours & " time(r) og " & min & " minutter"
  End If
End If
%>
</h4>
          </td>
        </tr>
<% rsoracle.movenext %>
<% loop %>
<% end if %>
<%
rs.movenext
loop
%>
    <tr>
    <td colspan="4">
<%
  totalmins  = totalmins + (totalseks \ 60)
  totalseks  = totalseks mod 60
  totalhours = totalhours + (totalmins \ 60)
  totalmins  = totalmins mod 60

If totalhours <> 0 Then
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalhours & "&nbsp;time(r) og&nbsp;" & totalmins & "&nbsp;minutter</h3>"
Else
    Response.Write "<h3>Samlet forbrug på ordre " & Request.querystring("ordrenummer") & " = " & totalmins & "&nbsp;minutter</h3>"
End If
%> &nbsp;</td>
    </tr>
    <%
    rs.Close
    Set rs = Nothing
    rsoracle.Close
    Set rsoracle = Nothing
    Set SQL = Nothing
 
    dbOracle.Close
    Set dbOracle = Nothing
   
    %>

den viser stadig forkert... men nu er det irrellevant, for den xtension, jeg nu har regner selv prod-tiden ud.
Nu skal jeg bare have omregnet sekunder til tiden...
Se evt. sp.: http://www.eksperten.dk/spm/257175

Æhh... Hvorfor har du accepteretmit svar, hvis koden ikke virker?

Fordi du har gjort en god indsats - det vil jeg gerne belønne for.. ;o)