<%
Option Explicit
Dim conn
Dim ParentPath
Dim RSParents
Dim LastPath
Dim RSChildren
Dim CurrentCategory
Dim RSProducts
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'Products')"
If Isempty(Request.QueryString("Category")) and Isempty(Request.QueryString("Search")) Then
  ParentPath = "<A HREF=""../html/products.asp?Category=Wszystkie produkty"">Wszystkie 
    produkty</A> / "
  set RSChildren = conn.execute("select CategoryName from ASPCategories " _
    & "where ParentCategory = 'Wszystkie produkty' order by CategoryName")
   CurrentCategory = "Wszystkie produkty"
   set RSProducts = conn.execute("SELECT ASPProducts.ProductID, ASPProducts.ProductName, " _
     & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
     & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
     & "FROM (ASPProducts INNER JOIN ASPProductCategories ON " _
     & "ASPProducts.ProductID = ASPProductCategories.ProductID) INNER JOIN " _
     & "ASPCategories ON ASPProductCategories.CategoryID = ASPCategories.CategoryID " _
     & "WHERE ASPCategories.CategoryName = 'Wszystkie produkty'")
ElseIf Request.QueryString("Category") = "Wszystkie produkty" Then
  ParentPath = "<A HREF=""../html/products.asp?Category=Wszystkie produkty"">Wszystkie 
    produkty</A> / "
  set RSChildren = conn.execute("select CategoryName from ASPCategories " _
    & "where ParentCategory = 'Wszystkie produkty' order by CategoryName")
  CurrentCategory = "Wszystkie produkty"
  set RSProducts = conn.execute("SELECT ASPProducts.ProductID, ASPProducts.ProductName, " _
    & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
    & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
    & "FROM (ASPProducts INNER JOIN ASPProductCategories ON " _
    & "ASPProducts.ProductID = ASPProductCategories.ProductID) INNER JOIN " _
    & "ASPCategories ON ASPProductCategories.CategoryID = ASPCategories.CategoryID " _
    & "WHERE ASPCategories.CategoryName = 'Wszystkie produkty'")
ElseIf Request.QueryString("Category") = "Clearance" Then
  ParentPath = "<A HREF=""../html/products.asp?Category=Wszystkie produkty"">Wszystkie  
    produkty</A> / "
  set RSChildren = conn.execute("select CategoryName from ASPCategories " _
    & "where ParentCategory = 'Wszystkie produkty' order by CategoryName")
  CurrentCategory = "Przecena"
  set RSProducts = conn.execute("SELECT ASPProducts.ProductID, ASPProducts.ProductName, " _
    & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
    & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
    & "FROM ASPProducts " _
    & "WHERE OnClearance = 1")
ElseIf Not Isempty(Request.QueryString("Category")) Then
  LastPath = Request.QueryString("Category")
  Do Until LastPath = "Wszystkie produkty"
    ParentPath = "<A HREF=""../html/products.asp?Category=" _
      & LastPath & """>" & LastPath & "</A> / " & ParentPath
    set RSParents = conn.execute("select ParentCategory from ASPCategories " _
      & "where CategoryName = '" & LastPath & "'")
    LastPath = RSParents("ParentCategory")
  Loop
    ParentPath = "<A HREF=""../html/products.asp?Category=Wszystkie produkty"">Wszystkie 
      produkty</A> / " _
    & ParentPath
  set RSChildren = conn.execute("select CategoryName from ASPCategories " _
    & "where ParentCategory = '" & Request.QueryString("Category") _
    & "' order by CategoryName")
  CurrentCategory = Request.QueryString("Category")
  set RSProducts = conn.execute("SELECT ASPProducts.ProductID, ASPProducts.ProductName, " _
    & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
    & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
    & "FROM (ASPProducts INNER JOIN ASPProductCategories ON " _
    & "ASPProducts.ProductID = ASPProductCategories.ProductID) INNER JOIN " _
    & "ASPCategories ON ASPProductCategories.CategoryID = ASPCategories.CategoryID " _
    & "WHERE ASPCategories.CategoryName = '" & Request.QueryString("Category") & "'")
Else
  ParentPath = "<A HREF=""../html/products.asp?Category=Wszystkie produkty"">Wszystkie 
    produkty</A> / "
  set RSChildren = conn.execute("select CategoryName from ASPCategories " _
    & "where ParentCategory like '%" & Request.QueryString("Search") _
    & "%' or CategoryName like '%" & Request.QueryString("Search") _
    & "%' order by CategoryName")
  CurrentCategory = Request.QueryString("Search")
  set RSProducts = conn.execute("SELECT ASPProducts.ProductID, ASPProducts.ProductName, " _
    & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
    & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
    & "FROM ASPProducts " _
    & "WHERE ProductName Like '%" & Request.QueryString("Search") & "%' " _
    & "or ShortDescription Like '%" & Request.QueryString("Search") & "%'")
End If
%>
