高手帮忙修改代码实现调产品二级分类

这是代码  <%
        function ProsMenu(ParentID,i,level)
          dim rs,sql
          set rs = server.createobject("adodb.recordset")
          sql="select * from Hm_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
          rs.open sql,conn,1,1
          if conn.execute("select ID from Hm_ProductSort Where ViewFlag and ParentID=0").eof then
            response.write "<center>暂无相关信息</center>"
          end if
          do while not rs.eof
            If ISHTML = 1 Then
                AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
            Else
                AutoLink = "ProductList.asp?SortID="&rs("ID")&""
            End If
            response.write "<li><a href="""&AutoLink&""">"&rs("SortName")&"</a></li>"
            i=i+1
            if i<level then call ProsMenu(rs("ID"),i,level)
            i=i-1
            rs.movenext
          loop
          rs.close
          set rs=nothing
        end function

         %>
 这是调出的代码 <%= ProsMenu(0,0,1) %>
level的值是调出多级别数 ，改成2就是二级，但是这样的话一级和二级的样式就区分不了。
请高手帮忙修改成调出二级分类的，

[ 本帖最后由 夏至学习 于 2011-11-30 22:06 编辑 ]