Formatere tid korrekt

Du er nødt til å lage din egen lille funksjon for å gjøre dette:

<%
Dim strNow, strHrs
strNow = now()
strHrs = getTime(HOUR(strNow))
strMin = getTime(MINUTE(strNow))
strSec = getTime(SECOND(strNow))

function getTime( str )
  Dim tmp
    tmp = str
  if( tmp < 10 ) then
      tmp = \"0\" & tmp
    end if
    getTime = tmp
end function

response.write strHrs & \":\" & strMin & \":\" & strSec
%>

/nute