< %
 sql="select * from renwu where lingquren="&session("userid")&""
 rso rs,sql
    if rs.eof or rs.bof then
    response.write "No Records..."
    else
response.write "<div id=demo style=overflow:hidden;height:200px >"
response.write "<div id=demo1 >"
response.write "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""2"" align=""center"">"
Do Until rs.EOF
response.write "<tr><td height=""20"">"&rs("title")&"</td></tr>"
rs.MoveNext
loop
response.write "</table>"
response.write "</div>"
response.write "<div id=demo2></div>"
     end if
  rsc rs% >

< script>
var t=demo.scrollTop
demo2.innerHTML=demo1.innerHTML
function qswhMarquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else
demo.scrollTop++
}
var MyMar=setInterval(qswhMarquee,60)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(qswhMarquee,60)}

</ script>