我是ASP白痴 什么都不懂的，求大虾门教我一下下面的东西怎么弄哦

下面这段代码是首页调用我们的网站产品目录列表的代码 请问我怎么才弄让这个列表只显示10个条目而不是显示全部目录列表呢
首页调用的代码是  <% call ShowSmallClass_Tree() %>

调用过来的过程是另外一个页上的代码

'过程名：ShowSmallClass_Tree
'作  用：树形目录方式显示栏目
'参  数：无
'=================================================
sub ShowSmallClass_Tree()
 if rsBigClass.bof and rsBigClass.eof then
  response.Write "栏目正在建设中……"
 else
  dim sqlClass,rsClass,strTree,BigClassNum,i,j
  rsBigClass.movefirst
  BigClassNum=rsBigClass.recordcount
  i=1
  do while not rsBigClass.eof
   if i<BigClassNum then
    strTree=""
   else
    strTree=""
   end if
   sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
   Set rsClass= Server.CreateObject("ADODB.Recordset")
   rsClass.open sqlClass,conn,1,1
    strTree= strTree & "<table width=180 border=0 cellpadding=0 cellspacing=0>"
    strTree= strTree & "<tr>"
    strTree= strTree & "<td width=24 height=22>"
    strTree= strTree & "<div align=center><img src=Img/arrow_2.gif width=13 height=11></div></td>"
    strTree= strTree & "<td width=150>"
    strTree= strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>"
      strTree=strTree & rsBigClass("BigClassName")
    strTree=strTree & "</a></td>"
    'strTree=strTree & "</td>"
    strTree= strTree & "</tr><tr>"
    strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>"
    strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
    strTree=strTree & "</TR>"
    strTree=strTree & "</table>"
    SmallClassNum=rsClass.recordcount
    j=1
    do while not rsClass.eof
     rsClass.movenext
     j=j+1
    loop
   response.write strTree
   rsBigClass.movenext
   i=i+1
  loop
  rsClass.close
  set rsClass=nothing
 end if
end sub