Dim lngSec, lngHour, lngMin 'Dimensionera variablerna

lngSec = DateDiff("s", Application("SST"), Now()) 'Räkna ut antalet sekunder totalt

'Räkna ut timmar, minuter och sekunder
lngHour = lngSec
lngSec = lngSec Mod 3600
lngHour = FormatNumber((lngHour - lngSec) / 3600, 0)
lngMin = lngSec
lngSec = lngSec Mod 60
lngMin = FormatNumber((lngMin - lngSec) / 60, 0)

'Och till sist skriver vi ut allt
Response.Write lngHour & " h, " & lngMin & " min, " & lngSec & " sec"