CurrTimer

<!-- Make a text box where we can display the time. -->
<INPUT TYPE=TEXT NAME=txtTime VALUE=Starting>
<!-- Make a timer with Interval 1000 (1 second). -->
<OBJECT ID=Timer1 CLASSID="clsid:59CCB4A0-727D-11CF-AC36-00AA00A47DD2"
CODEBASE="http://activex.microsoft.com/controls/iexplorer/x86/ietimer.cab#version= 4,71,115,0">
<PARAM NAME=Interval VALUE=1000>
<PARAM NAME=Enabled VALUE=True>
</OBJECT>

<SCRIPT LANGUAGE=VBScript>
'On Timer1's Timer event, display the current time.

Sub Timer1_Timer ()
txtTime.Value = Time
End Sub

</SCRIPT>