缺少对象rs

复制内容到剪贴板

代码:

<%
            set rs=server.CreateObject("adodb.recordset")
            rs.open"select * from ProductsInfo ProductsInfo where IsShow=true and instr( ','+ParentsID_r+',' , ',"&trim(rsc("id"))&",' )>0 order by ID asc",Conn,1,1    
           do while not rs.eof
           url="?id="&id&"&"
           PageNo=Trim(Request("PageNo"))
           Rs.PageSize=6
           totalcount=Rs.recordcount
           PageSize=Rs.PageSize
           pagecount=Rs.pagecount
           intpageno PageNo,pagecount
           Rs.AbsolutePage=PageNo
           response.Write"<div class='pro-list'><ul>"
           for i=1 to rs.pagesize
           if rs.eof then exit for    
            response.Write"<li>"
            if len(trim(rs("ProSImg")))>0 then
            response.Write"<a href='product.asp?id="&trim(rs("ID"))&"'><img src='imgfile/"&trim(rs("ProSimg"))&"' /></a>"
            else
            response.Write"<img src='images/nopic.gif'/ class='nopic'>"
            end if
            
            response.Write"<font><a href='product.asp?id="&trim(rs("ID"))&"'>"&trim(rs("ProName"))&"</a></font>"        
            response.Write"</li>"
            rs.movenext
            next
            response.Write"</ul></div>"
            response.Write"<p class='page'>"
            Pageslist url,totalcount,PageNo,pagecount,PageSize
            response.Write"</p>"
            rs.close
            set rs=nothing
        %>