<Script Language="VBScript">
dim timerid
document.write now & "<BR>"
sub window_onload
timerid = setTimeout("window.location.reload true",5000,"vbscript")
end sub
</Script>
<input type=button value="stop refreshing" onclick="vbscript:clearTimeout(timerid)">