Site hosted by Angelfire.com: Build your free website today!

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>