Eagleeye (og andre...) hjælp med resten af beregningen

Jeg har tigligere fået hjælp til en tidsberegning v.h.a. DateDiff. Den ser således ud:

<%
function sTimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
hours = int(diff / (60*60))
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))
hours = Right("0" & hours,2)
mins = Right("0" & mins,2)
secs = Right("0" & secs,2)
sTimeCalc = hours & ":" & mins & ":" & secs
end function
%>

i min kode har jeg lavet dette:
            <%    sqltid="SELECT * From tidsforbrug Where opgavenr = '" & request("ID") & "' order by id asc"
                set rstid = conn.execute(sqltid)
            %>       
<% do while not rstid.EOF %>
<%
If rstid("eventting") = "START " Then
  eventstart = rstid("tid")
  tidsforbrug = ""
Else
  eventstop = rstid("tid")
  tidsforbrug = sTimeCalc(eventstart, eventstop)
%>
<% end if %>
<%rstid.movenext%>
<%loop%>

<%Response.write tidsforbrug%>

Mit problem er nu at den godt nok beregner tiden mellem start og stop... MEN, men men det er kune den sidste start/stop i tabellen, der bliver beregnet.
Da start/stop kan forekomme flere gange skal jeg derfor har lavet en udregning, der viser den totale forskel mellem alle start/stop.
Forvirret? - o.k. en lidt bedre forklaring:
I en tabel har jeg en eventting, der enten kan være start eller stop efterfulgt af et timestamp.
jeg skal have beregnet forskellen på start & stop | start & stop | start & stop (altså den tid, der er mellem hver start og stop. Og til sidst skal de mellemliggende tider ligges samen.