sub scroll_layer()
layer2.style.left=layer_top(1)-1
layer_top(1)=layer_top(1)-1
layer3.style.left=layer_top(2)-1
layer_top(2)=layer_top(2)-1
if layer_top(2)<>0 and layer_top(1)<>0 then
settimeout "scroll_layer",5
else
change_disp
end if
end sub
sub change_disp()
dim top_value_tmp
dim value_top_2,value_top_3
top_value_tmp=layer2.style.left
value_top_2=split_layer_top(top_value_tmp)
top_value_tmp=layer3.style.left
value_top_3=split_layer_top(top_value_tmp)
if value_top_3<value_top_2 then
move_layer3
else
move_layer2
end if
settimeout "scroll_layer",2000
end sub
sub move_layer2()
layer2.style.visibility="hidden"
layer2.style.left="700px"
layer_top(1)=700
layer2.style.visibility="visible"
end sub
sub move_layer3()
layer3.style.visibility="hidden"
layer3.style.left="700px"
layer_top(2)=700
layer3.style.visibility="visible"
end sub
function split_layer_top(top_value)
dim tmp_value
tmp_value=left(top_value,len(top_value)-2)
split_layer_top=cint(tmp_value)
end function
-->
</script>
</body>
</html>