dim count
dim xadder
dim yadder
xadder = 1
yadder = 2

sub moveright
	count=count+1
	gearright.style.top = parseInt(gearright.style.top) + xadder
	if (count<500/xadder) then
		window.settimeout "moveright()", 50
	else
		count=0
		gearright.style.top=0
		window.settimeout "moveright()", 50
	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