NET Infor

sub moveright
        count=count+1
        gearright.style.left = parseInt(gearright.style.left) + xadder
        gearleft.style.left = parseInt(gearleft.style.left) + xadder
        if (count<500/xadder) then
                window.settimeout "moveright()", 100
        else
                count=0
                gearleft.style.visibility="visible"
                gearright.style.visibility="hidden"
                window.settimeout "moveleft()", 100
        end if
end sub

sub moveleft
        count=count+1
        gearleft.style.left = parseInt(gearleft.style.left) - xadder
        gearright.style.left = parseInt(gearright.style.left) - xadder
        if (count<500/xadder) then
                window.settimeout "moveleft()", 100
        else
                count=0
                gearleft.style.visibility="hidden"
                gearright.style.visibility="visible"
                window.settimeout "moveright()", 100
        end if
end sub

function parseInt(rnum)  'JavaScript has this function built in
        s=trim(rnum)
        if len(s)>2 then
                if right(s,2)="px" then
                        s=left(s,len(s)-2)
                end if
        end if
        if isNumeric(s) then
                i=csng(s)
        else
                i=0
        end if
        parseInt=i
end function

</script>
<>
<BODY onload="moveright()">
<img id=gearright style="position:absolute;left:0;top:10;z-index:1" src="gif.gif">