<script
LANGUAGE="VBScript">
<!--
timerID = null
klgang = false
Sub Init
AvslutaKlocka
StartaKlocka
End Sub
-->
</script>
</head>
<body onLoad="Init()" onUnload="AvslutaKlocka()">
<p align="center"><b>Detta är en klocka som är tillverkad med
VBScript. </p>
<form Name="Test">
<div align="center"><center><p><input Type="Text"
Name="Klocka" Size="10"> </p>
</center></div>
</form>
</b>
</body>
</html>
<script LANGUAGE="VBScript">
<!--
Sub StartaKlocka
Test.Klocka.Value = Time()
TimerID = setTimeout("StartaKlocka",1000,"VBScript")
klgang = true
End Sub
Sub AvslutaKlocka
If klgang then
clearTimeout timerID
klgang = false
End if
End Sub
-->
</script>