|
<SCRIPT LANGUAGE=vbscript><!--
dim casovac
dim Velkost
dim CV
Velkost=0
Sub animuj()
Velkost=Velkost+2
Nadpis.style.fontSize=Velkost
select case CV
case 0
Nadpis.innerText= "Vítavás"
case 1
Nadpis.innerText="GrenznerSoft"
case 2
Nadpis.innerText="Košice"
end select
if Velkost= 50 then velkost= 0:cv=cv+1
if cv= 3 then window.clearInterval (casovac)'stop
End Sub
Sub window_onload
casovac= window.setInterval ("animuj",100)
'start
End Sub
--></SCRIPT>
|