Hodiny s datumem








<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>