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>