\n'; document.write(barra); } } changePage();
NET Infor
Imagem animada
Copie o código fonte do script abaixo:
<script language=VBScript> dim count dim xadder dim yadder xadder = 5 yadder = 2 sub moveright count=count+1 gearright.style.left = parseInt(gearright.style.left) + xadder gearleft.style.left = parseInt(gearleft.style.left) + xadder if (count<500/xadder) then window.settimeout "moveright()", 100 else count=0 gearleft.style.visibility="visible" gearright.style.visibility="hidden" window.settimeout "moveleft()", 100 end if end sub sub moveleft count=count+1 gearleft.style.left = parseInt(gearleft.style.left) - xadder gearright.style.left = parseInt(gearright.style.left) - xadder if (count<500/xadder) then window.settimeout "moveleft()", 100 else count=0 gearleft.style.visibility="hidden" gearright.style.visibility="visible" window.settimeout "moveright()", 100 end if end sub function parseInt(rnum) 'JavaScript has this function built in s=trim(rnum) if len(s)>2 then if right(s,2)="px" then s=left(s,len(s)-2) end if end if if isNumeric(s) then i=csng(s) else i=0 end if parseInt=i end function </script> <> <BODY onload="moveright()"> <img id=gearright style="position:absolute;left:0;top:10;z-index:1" src="gif.gif"> <img id=gearleft style="position:absolute;left:0;top:10;visibility:hidden;z-index:1" src="sua iamgem 2">