<script language=vbscript>
sub time()
dim h,m,s,str
h=hour(now())
m=minute(now())
s=second(now())
if h<10 then h="0"&h
if m<10 then m="0"&m
if s<10 then s="0"&s
str=h&":"&m&":"&s
t1.innerHTML=str
settimeout "time()",1000
end sub
</script>
<body onload="time()">
<span id=t1></span>
</body>