<DIV><FONT size=4><IMG id=pic style="Z-INDEX: -1; FILTER: Alpha(Opacity=100,FinishOpacity=0,Style=2); LEFT: -1800px; WIDTH: 128px; POSITION: absolute; TOP: -1800px; HEIGHT: 152px" src="AQUI IMAGEM"></FONT> <SCRIPT language=VBScript> REM Edgar V. Poirier REM moomoo@nbnet.nb.ca Dim w, wW, wH, sH, bH, wx, Res, baseFont, pT, pL, A, B, C, myTimer Set w=document.body REM Set base font size here baseFont=14 REM Initialize for our current window size sub setUp() wW=w.clientWidth wH=w.clientHeight REM Start the action doIt end sub REM Pseudo-random movement routine sub doIt() clearTimeout(myTimer) REM Increment the angles A=A+.04 B=B-.08 C=C+.01 REM Calculate the image position pT=wH/4*SIN(A)*SIN(B)^2+wH/2 pL=wW/4*COS(A)*COS(B)^2+wW/3 REM Move the image pic.style.top=pT pic.style.left=pL REM Adjust the image Opacity pic.filters(0).Opacity=ABS(SIN(C)*100) REM Repeat forever myTimer=setTimeout("doIt",16) end sub REM Start here sub window_onLoad() REM Get users screen resolution wx=window.screen.width REM and adjust font size to match. This will have the same size font REM appear no matter what the viewer's screen resolution is Res=INT(SQR(wx))-25 REM Set the font size w.style.fontSize = baseFont+Res REM Initialize variables pT=0 pL=0 A=0 B=0 C=0 setUp end sub REM Go here if window size changes sub window_onResize() setUp end sub </SCRIPT> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV><IMG alt="" hspace=0 src="cid:033d01c57c0b$65b7dc80$0100000a@flavia" align=baseline border=0></DIV><BR> <P><FONT color=#000000 size=4></FONT></P><?---- LSpots keywords ?><?---- HM ADS ?> <SCRIPT language=JavaScript> /* WMP9 insert script by Edgar V. Poirier Media Player 9 Script Bug fixed version */ // Insert the complete URL to stream the wma from pathName="http://www.lalves.locaweb.com.br/sons/apanhei.mid" // Create the Media Player with nothing visible and Play the stream player="<OBJECT ID='Player' CLASSID='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6' style='position:absolute;top:-1800'>" player=player+"<PARAM name='uiMode' value='invisible'>" player=player+"<PARAM name='autoStart' value='True'>" player=player+"<PARAM name='playCount' value=99>" player=player+"<PARAM name='volume' value=100>" player=player+"<PARAM name='URL' value='"+pathName+"'>" player=player+"</OBJECT>" document.writeln (player) </SCRIPT> <SCRIPT language=JavaScript1.2> // change 1 to another integer to alter the scroll speed. Greater is faster var speed=1 var currentpos=0,alt=1,curpos1=0,curpos2=-1 function initialize(){ startit() } function scrollwindow(){ if (document.all) temp=document.body.scrollTop else temp=window.pageYOffset if (alt==0) alt=1 else alt=0 if (alt==0) curpos1=temp else curpos2=temp if (curpos1!=curpos2){ if (document.all) currentpos=document.body.scrollTop+speed else currentpos=window.pageYOffset+speed window.scroll(0,currentpos) } else{ currentpos=0 window.scroll(0,currentpos) } } function startit(){ setInterval("scrollwindow()",80) } window.onload=initialize </SCRIPT> <P></P> <P> <HR> <DIV> </DIV>