asp,图片无间歇滚动代码， 要VBSCRIPT的，谢谢各位大侠，在线等急用，不要JS的

<marquee behavior=scroll direction=left width=400 height=150 scrollamount=5 scrolldelay=10 onclick=this.start() onmouseover=this.stop() onmouseout=this.start()>
<script language=javascript>
for (t=1;t<=1000;t++)
document.write("飞流直下三千尺;疑是银河落九天。")
</script>
</marquee>

<script type="text/vbscript">
dim speed:speed=10
demo2.innerHTML=demo1.innerHTML
function Marquee()
if (demo2.offsetWidth-demo.scrollLeft<=0) then
demo.scrollLeft=demo.scrollLeft-demo1.offsetWidth
else
demo.scrollLeft=demo.scrollLeft+1
end if
end function
dim MyMar:MyMar=setInterval("Marquee()",speed)
function onmouseover()
call clearInterval(MyMar)
end function
function onmouseout()
MyMar=setInterval(Marquee,speed)
end function
set demo.onmouseover=getref("onmouseover")
set demo.onmouseout=getref("onmo