Hodiny s datem (2)
<SCRIPT TYPE="text/vbscript" LANGUAGE="VBScript">
<!--
'--- 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
-->
</SCRIPT>