Countdown URL Watch








<SCRIPT TYPE="text/vbscript">
<!--
    Dim TimeOut

    Document.Write "<center><H1 ID=""h1_Time"">10...</H1></center>"
    TimeOut = 10
    SetTimeout "Tick()", 1000

    Function Tick()
        TimeOut = TimeOut - 1
        If TimeOut = 0 Then
            h1_Time.InnerHtml = _
"<A HREF=""http://java.tatousek.cz"">http://java.tatousek.cz</A>"
            Window.Location.Href = "http://java.tatousek.cz"
        Else
            h1_Time.InnerText = TimeOut & "..."
            SetTimeout "Tick()", 1000
        End If
    End Function
-->
</SCRIPT>