<script language="VBScript"> dim c,numgc c=-100000 numgc=document.body.sourceIndex sub SF c=c+1 Document.all(numgc).style.BackgroundPosition= "0 " &c id=SetTimeOut("SF",16,"VBScript") end sub SF </script>