Codice da copiare fra i tag <BODY></BODY>
<SCRIPT language="VBScript"> dim MoveItX, MoveItY, mnumfond MoveItY=0 MoveItX=0 numfond=document.body.sourceIndex SUB SF MoveItY=MoveItY-1 MoveItX=MoveItX+0 Document.all(numfond).style.BackgroundPosition= MoveItX & " " & MoveItY id=SetTimeOut("SF",100,"VBScript") End Sub SF </SCRIPT> |