zdrojový kód
<html>
<head><title>Java Script ze stránky - www.jaknaweb.com</title>
<meta http-equiv="content-type" content="text/html; charset=windows-1250">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<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://www.jaknaweb.com/"">http://www.jaknaweb.com/</A>"
Window.Location.Href = "http://www.jaknaweb.com/"
Else
h1_Time.InnerText = TimeOut & "..."
SetTimeout "Tick()", 1000
End If
End Function
-->
</SCRIPT>
</body>
</html>
Vložil/Poslal/Autor: Admin
Funkčnost:
správna funkčnost zaručena pouze v IE 6