'--- Vypsat element s hodinami
  	Document.Write "<SPAN ID=""span_Timer"">" & Now() & "</SPAN>"

  	'--- Nastavit první timeout na vteřinu
  	SetTimeout "UpdateTimer()", 1000

  	'--- Funkce pro aktualizaci času v prvku span_Timer
  	Function UpdateTimer()
  		span_Timer.InnerText = Now()
  		' Znovu zavolat za jednu vteřinu
  		SetTimeout "UpdateTimer()", 1000
  	End Function