sub tick() 
  dim paiva, kuukausi, vuosi, paivamaara
  dim intpaiva, intkuukausi, intvuosi
  dim hours, minutes, seconds, ap
  dim intHours, intMinutes, intSeconds
  dim today

  intHours = Hour(Now)
  intMinutes = Minute(Now)
  intSeconds = Second(Now)

  intpaiva = day(Now)
  intkuukausi = month(Now)
  intvuosi = year(Now)
  

  hours = inthours & ":"

  if (intMinutes < 10) then
     minutes = "0" & intMinutes & ":"
  else 
     minutes = intMinutes & ":"
  end if

  if (intSeconds < 10) then
     seconds = "0" & intSeconds & " "
  else 
     seconds = intSeconds & " "
  end if 

  paiva = intpaiva & "."

  kuukausi = intkuukausi & "."

  vuosi = intvuosi

  paivamaara = paiva & kuukausi & vuosi

  timeString = hours & minutes & seconds & "   " & paivamaara

  Clock.innerHTML = timeString

  window.setTimeout "tick", 1000
  
end sub

sub window_onload
  tick
end sub