<!-- #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.
|
=Product
(One Level deep include files are also shown)