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