Scrolling dello Sfondo

esempio 1

Codice da copiare fra i tag <BODY></BODY>

<SCRIPT language=VBScript>

<!--

dim MoveItX, MoveItY, mnumfond

MoveItY=-100000

MoveItX=0

numfond=document.body.sourceIndex

SUB SF

MoveItY=MoveItY+1

Document.all(numfond).style.BackgroundPosition= MoveItX & " " & MoveItY

id=SetTimeOut("SF",100,"VBScript")

End Sub

SF

-->

</SCRIPT>