| Ukáka |
|
|
| Script | <SCRIPT LANGUAGE=vbscript> dim x,b,Pozicia,Start dim Objekt Sub NastavObjekt set Objekt=window.event.srcElement Pozicia=Objekt.style.posLeft Start = window.setinterval("Animuj",1) End sub Sub Ukonci Objekt.style.posLeft=Pozicia window.clearInterval Start End Sub sub Animuj() b=b+1 if b=1 then x=3 if b=2 then b=0: x=-3 Objekt.style.posleft = Objekt.style.posleft + x end sub Sub Menu_onclick If Rozbal.style.display = "none" Then Menu.innerText="- Vyhladávače" rozbal.style.display = "" Else Menu.innerText="+ Vyhladávače" rozbal.style.display = "none" End If End Sub --></SCRIPT> |
|
| CSS | <style type="text/css"><!-- a {color:blue;position: relative;text-decoration: none} --></style> |
|
| Objekty | <TABLE width="100%" border="0"> <TR> <TD width="20%" > <span id=menu style="cursor: hand;">+ Vyhladávače</span> </TD></TR> <TR> <TD id =Rozbal style="display: none;" > <BLOCKQUOTE> <A href="http://www.szm.sk" target="_blank" id=P1 onMouseOver="NastavObjekt" onMouseOut="Ukonci" >Superzoznam</A><BR> <A href="http://www.google.sk" target="_blank" id=P2 onMouseOver="NastavObjekt" onMouseOut="Ukonci" >Google</A><BR> <A href="http://www.atlas.sk" target="_blank" id=P3 onMouseOver="NastavObjekt" onMouseOut="Ukonci" >Atlas</A> <BR> </BLOCKQUOTE></TD></TR> </TABLE> |