Show Shopping Cart
Jump To Admin Area
=Category =Product
 Show All Categories
deneme
    (3 subcategories)
Level 2
    (1 subcategory)
Level 3
    (1 subcategory)
Level 4
    (0 subcategories)

New_Category_Description

New_Category_Description

New_Category_Description
New_Category_Description
    (0 subcategories)
qwoeihqw
    (0 subcategories)
Turn ON/OFF Source Display (One Level deep include files are also shown)
<!-- #include file="../DatabaseInclude.asp" -->
This include file is NOT output to debug file.<!-- #include file="Navigation.asp" -->
<pre><!----------------------- Start Navigation.asp -----------------------><br> <a target="main" href="AddProduct.asp"><br>Show Shopping Cart<img border="0" src="../images/ShoppingCartOnlyTiny.gif"><br></a><br> <!----------------------- Start Navigation.asp -----------------------><br> </pre><!----------------------- Start DisplayCategories.asp ----------------------->

<head>
<base target="main">
</head>

<%
strCatid = Request.QueryString("cid")
strCatName = Request.QueryString("Desc")
if strCatid = "" then
  SQLstr = "SELECT * FROM categories ORDER BY catdescription;"
end if
if strCatid <> "" then
  SQLstr = "SELECT * FROM categories where SubordinateName = '" & strCatName & "' ORDER BY catdescription;"
end if

Set rsCategories = Server.CreateObject("ADODB.Recordset")  

  'SQLstr = " SELECT categories.* "
  'SQLstr = SQLstr & " FROM categories "
  'SQLstr = SQLstr & " WHERE (((categories.SubordinateName)='" & strCatName & "'))"
  'SQLstr = SQLstr & " ORDER BY categories.catdescription;"

Session("SQLstr") = SQLstr
rsCategories.Open SQLstr , dbc
%>

<br>
<a style="text-decoration: none" target="_top" href="../Admin">Jump To Admin Area</a><br>
<img border="0" src="../Images/Blue_C_Category.jpg">=Category
<img border="0" src="../images/Green_P_Products.jpg">=Product
<br>
 <a href="DisplayCategories.asp" style="text-decoration: none">Show All
Categories</a>
<%
While Not rsCategories.EOF

  c = rsCategories("categoryID")
  d = rsCategories("catdescription")
  modifiedDescription = ""
  modifiedName = ""

  if ucase(rsCategories("categoryType")) = ucase("category") then%>

    <%Session("categoryTracking") = Session("categoryTracking") +1
    i = Session("categoryTracking")%>


    <table class="TableSkins">
        <tr>
          <td class="TDSkins"><img border="0" src="../Images/Blue_C_Category.jpg">
          <a href="DisplayCategories.asp?cid=<%=c%>&Desc=<%=d%>" target="_self">
            <%Set rsCategoryCount = Server.CreateObject("ADODB.Recordset")
              SQLstr = "SELECT Count(categories.SubordinateName) AS Expr1 " & _
                   "FROM categories " & _
                  "WHERE (((categories.SubordinateName)='" & rsCategories("catDescription") & "'));"
              rsCategoryCount.open SQLstr, dbc%>

              <%=rsCategories("catDescription")%></a>
              <%if rsCategoryCount("EXPR1") =1 then%>
                <%="<br>    (" & rsCategoryCount("EXPR1") & " subcategory)"%>
              <%else%>
                <%="<br>    (" & rsCategoryCount("EXPR1") & " subcategories)"%>
            <%end if%>
          </td>
        </tr>
      </table>
  <%end if%>
  <%if ucase(rsCategories("categoryType")) = ucase("product") then
    Session("categoryTracking") = Session("categoryTracking") +1
    i = Session("categoryTracking")
      
    Set rsProductName = Server.CreateObject("ADODB.Recordset")
      SQLstr ="SELECT * " & _
      "FROM products " & _
      "WHERE (((products.cCategoryName)='" & replace(rsCategories("catDescription"),"'","''") & "')" & _
      "AND products.cshowProduct = 'Yes' " & _
      ");"
      rsProductName.open SQLstr, dbc%>

      <p class="P10"><img border="0" src="../Images/Blue_C_Category.jpg">
      <%=rsCategories("catDescription")%>
        <%While Not rsProductName.EOF%> </p>
          <p class="P20">
          <img border="0" src="../images/Green_P_Products.jpg">
          <a href="DisplayProduct.asp?cid=<%=rsProductName("catalogID")%>" target="main">
          <%=rsProductName("cName")%> <br>
          <img class="ImageSkins" src="../ProductImages/<%=rsProductName("cImageURL")%>"> </a></p>
          <%rsProductName.MoveNext
        Wend
  end if

rsCategories.MoveNext
Wend

on error resume next
rsProductName.close
  set rsProductName= nothing
rsCategories.close
  set rsCategories= nothing
dbc.close
  set dbc= nothing
%>

<%'="<br>" & Session("SQLstr") & "<br>"%><!----------------------- End DisplayCategories.asp -----------------------><!-- #include file="../ReadFile.asp" -->
This include file is NOT output to debug file.