'****************************************************************
'Generates links back to the product's categories at top of page
'Modified by ~D so that clicking on a category will go to that category
'instead of the one above it.
'****************************************************************
Sub GenerateCategoryLinks
dim highercatid, cats(10),catids(10), i
dim cathead, more, catsql, rs
dim id,name
'use the category we're in to determine which category we descended from
highercatid=getsess("Cat_id")
 catsql="select * from categories where categoryid=" & highercategoryid
 Set rs=dbc.execute(catsql)
 highercatid=rs("highercategoryid")
 Closerecordset rs
cathead=""
More=True
i=0

Do while more=True
'Loop to generate a list of categories until we hit the root - ie, where the highercatid=0
 catsql="select * from categories where categoryid=" & highercatid
 Set rs=dbc.execute(catsql)
 If not rs.eof then
   name=rs("catdescription")
   id=rs("categoryid")
   dim mylink
   mylink="<a HREF=""shopdisplaycategories.asp?id=" & highercatid & "&cat=" & Server.URLEncode(name) & """>" &  name & "</a>"
   cats(i)=mylink
   highercatid=rs("highercategoryid")
   i=i+1
   if highercatid=0 then
        more=false
   end if
 else
   more=false
 end if             
 Closerecordset rs
loop 
'When the root of the categories is hit add a link to the base level
mylink="<a HREF=""shopdisplaycategories.asp?id=" & highercatid & "&cat=" & Server.URLEncode(name) & """>" &  "All Products" & "</a>"
cats(i)=mylink
i=i+1

For i = 0 to i-1
'Write out list of links
   If cathead="" Then
      cathead = cats(i)
   else
     cathead= cats(i) & subcatseparator & cathead 
   end if  
next       
response.write subcatheader & cathead & subcatheaderend
end sub

'****************************************************************
'Generates links back to the product's categories at top of page
'Modified by ~D so that clicking on a category will go to that category
'instead of the one above it. Modified for use in shopdisplayproducts.asp
'****************************************************************
Sub GenerateCategoryLinks
dim highercatid, cats(10),catids(10), i
dim cathead, more, catsql, rs
dim id,name
highercatid=getsess("Cat_id")
if highercatid<>"" then
'ignore this part if "Cat_id" is null to avoid errors when page is accessed through the shop search
'use the category we're in to determine which category we descended from
  catsql="select * from categories where categoryid=" & highercatid
  Set rs=dbc.execute(catsql)
  highercatid=rs("highercategoryid")
  cathead=""
  More=True
  i=0

  Do while more=True
'Loop to generate a list of categories until we hit the root - ie, where the highercatid=0
    catsql="select * from categories where categoryid=" & highercatid
    Set rs=dbc.execute(catsql)
    If not rs.eof then
      name=rs("catdescription")
      id=rs("categoryid")
      dim mylink
      mylink="<a HREF=""shopdisplaycategories.asp?id=" & highercatid & "&cat=" & Server.URLEncode(name) & """>" &  name & "</a>"
      cats(i)=mylink
      highercatid=rs("highercategoryid") 'Move one up in the chain
      i=i+1
      if highercatid=0 then
     'When the root of the categories is hit add a link to the base level
        more=false
   	 	mylink="<a HREF=""shopdisplaycategories.asp?id=" & highercatid & "&cat=" & Server.URLEncode(name) & """>" &  "All Products" & "</a>"
   		cats(i)=mylink
		i=i+1
      end if
    else
      more=false 'Handling for unexpected end of file
    end if             
    Closerecordset rs
  loop 

  For i = 0 to i-1 
'Write out the links
    If cathead="" Then
      cathead = cats(i)
    else
      cathead= cats(i) & subcatseparator & cathead 
    end if  
  next       
  response.write subcatheader & cathead & subcatheaderend
end if
end sub 

quote:

---

Sure! I just e-mailed you the code that should do the trick - let me know if you still have trouble.

In summary, though, if anyone else wants to do the same:
1) add a new variable at the top to store the current category name. (eg: add the line "dim currentname" with the rest of the "dim ..." statements)

2) set the variable equal to the category name, rs("catdescription"), right after the following line (also near the top):
catsql="select * from categories where categoryid=" & highercatid
Set rs=dbc.execute(catsql)

3) modify the response.write line at the bottom of the sub so that we get an extra seperator and the name of the current category.

response.write subcatheader & cathead & subcatheaderend
becomes:
response.write subcatheader & cathead & subcatseparator & currentcatname & subcatheaderend

~D

---

quote:

---

innocenti - what version of the cart are you using? Did you follow the links to the version that I worked on before (it was for v4.5) you might find that helps you understand the logic a little better.


Justin

---