<div class="sidebar fl">
    <h2 class="fl">Product Categories</h2>
    <div class="clear"></div>
    <dl class="fl">
		<%
          set rs4=server.CreateObject("adodb.recordset")
          sql4="select piccat_id,piccat_name from piccat where sid=0 order by sorder,piccat_id asc"
          rs4.open sql4,conn,1,1
          do while not rs4.eof
        %>
        <% if cint(BigID)=cint(rs4("piccat_id")) or cint(BID)=cint(rs4("piccat_id")) then %>
        <dt class="fl dt_hover"><a href="prod.asp?BigID=<%=rs4("piccat_id")%>" class="dt_ahover"><%=rs4("piccat_name")%></a></dt>
        <% else %>
        <dt class="fl"><a href="prod.asp?BigID=<%=rs4("piccat_id")%>"><%=rs4("piccat_name")%></a></dt>
        <% end if %>
        <% if cint(BigID)=cint(rs4("piccat_id")) or cint(BID)=cint(rs4("piccat_id")) then %>
		<%
          set rs5=server.CreateObject("adodb.recordset")
          sql5="select piccat_id,piccat_name from piccat where sid="&rs4("piccat_id")&" order by sorder,piccat_id asc"
          rs5.open sql5,conn,1,1
          do while not rs5.eof
        %>
        <% if cint(SmallID)=cint(rs5("piccat_id")) then %>
        <dd class="fl"><a href="prod.asp?SmallID=<%=rs5("piccat_id")%>&BID=<%=rs4("piccat_id")%>" class="dd_ahover"><%=rs5("piccat_name")%></a></dd>
        <% else %>
        <dd class="fl"><a href="prod.asp?SmallID=<%=rs5("piccat_id")%>&BID=<%=rs4("piccat_id")%>"><%=rs5("piccat_name")%></a></dd>
        <% end if %>
		<%
          rs5.movenext
          loop
          rs5.close
          set rs5=nothing
        %>
        <% end if %>
		<%
          rs4.movenext
          loop
          rs4.close
          set rs4=nothing
        %>
    </dl>
</div>