gogo()

Function gogo()
       //document.write (document.body.scrollTop)
	   i = mid(layer1.style.top,1,instr(layer1.style.top,"p")-1) * 1
		 if i - (document.body.scrollTop) > 300 then
            //l=(document.body.scrollTop)/5
            if i-(document.body.scrollTop) > 50 then 
			    l = 5
			elseif i-(document.body.scrollTop) > 40 then
			    l = 4
            elseif i-(document.body.scrollTop) > 30 then 
			    l = 3
            elseif i-(document.body.scrollTop) > 20 then
			    l = 2
            else
			    l = 1
			end if
               layer1.style.top = i - l
         end if
         
         if document.body.scrollTop + 0 - i > 0  then
            if (document.body.scrollTop - i) > 0 then l = 1
            if (document.body.scrollTop - i) > 10 then l = 1
            if (document.body.scrollTop - i) > 20 then l = 2
            if (document.body.scrollTop - i) > 30 then l = 3
            if (document.body.scrollTop - i) > 40 then l = 4
            if (document.body.scrollTop - i) > 50 then l = 5
              layer1.style.top = i + l
         end if

         aa=window.setTimeout("gogo()",1,"vbscript")
end Function