EFECTO 7
<SCRIPT language=VBScript>
dim i, pic
i = -100000
pic = document.body.sourceIndex
sub scrollBG
i=i+50
Document.all(pic).style.BackgroundPosition= "0 " & i
id=SetTimeOut("scrollBG", 64, "VBScript")
end sub
scrollBG
</SCRIPT>