<script language="VBScript">
<!-- Begin

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
// End -->
</script>