Lze tento VB skript napsat jednodušej třeba v PHP nebo Java

<SCRIPT type=text/vbscript>
<!--
    Dim TimeOut

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

    Function Tick()
        TimeOut = TimeOut - 1
        If TimeOut = 0 Then
            h1_Time.InnerHtml ="<A HREF=""index2.htm""> 
        Else
            h1_Time.InnerText = TimeOut & "..."
            SetTimeout "Tick()", 1000
        End If
    End Function
-->
</SCRIPT>