想实现图片连续滚动的代码

<%
    set RsPic=server.createobject("adodb.recordset")
    sql="select top 10 * from News where Ispic=1 ORDER BY id DESC"
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    Call NoPic("")
    end if
       
        dim col
        dim ci
        col=10
        ci=1
        do while not RsPic.eof
                If ci = 1 Then
                        response.Write("")
                End If
                response.Write("")
                If ci = col Then
                        response.Write("")
                        ci = 1
                Else
                        ci =ci + 1
                End If
                                       
    RsPic.movenext
    loop
   
        RsPic.CLOSE
    SET RsPic=Nothing
%>  
                    
               

暂无图文新闻

")                 Call Gaobei_NewsShowPic(RsPic("Pic"),RsPic(0),RsPic("Title"),130,100,18)                  response.Write("