Sub ShowLinksToSubcategories(HigherCategoryID, dbc)
  ' JAL 7/Nov/2007 15:51 
  ' Subroutine to display links to subcategories like shopdisplaycategories.asp 
	dim sql, rs, sqlWhere, recordCount, DisplayImages
	DisplayImages=getconfig("xdisplaycategoryimages")
	
	'Generate the WHERE clause for SQL statements
	sqlWhere = " where highercategoryid=" & HigherCategoryID
	if getconfig("xproductmatch")="Yes" then
	'VP-ASP 6.50 - enhanced product matching
	 Generateproductmatchsqlsubs sqlWhere          ' In shopproductsubs
    	'sql=sql & " and (productmatch='" & xproductmatch & "' or productmatch is null)"
	end if 
	if getconfig("xproductmatchcustomer")="Yes" then
   		if GetSess("CustomerProductGroup")<>"" then
      			sqlWhere=sqlWhere & " and customermatch='" & getsess("customerProductgroup") & "'"
    		end if  
	end if    
	If getconfig("xselectproductsbylanguage")="Yes" and getsess("language")<>"" then
		sqlWhere=sqlWhere & " and (catlanguage='" & getsess("language") & "'"
		sqlWhere=sqlWhere & " or catlanguage is null)"
	end if
	sqlWhere=sqlWhere & " order by " & Getconfig("xsortcategories")
	
	'Generate SQL statement to get record count
	sql="Select count(*) as nrecords from categories " & sqlWhere
	set rs = dbc.execute(sql)
	if not rs.eof then 
		recordCount = cint(rs("nrecords"))
	else
		exit sub
	end if
	
	'Generate SQL statement to get actual records
	sql="Select * from categories " & sqlWhere
	set rs = dbc.execute(sql)
	if rs.eof then exit sub

	'Get the number of columns for table, 
	dim tblRowCount,columns
	tblRowCount = ceiling(recordCount / 6)
	'Get the number of columns
	columns = ceiling(recordCount / tblRowCount)
	
	response.write("<table style=""width: 100%;"" width=""100%"" border=""0"" align=""center""><tr>")
	dim recordIdx
	recordIdx=0
	do while not rs.eof
		recordIdx=recordIdx+1
			response.write "<td align=""center"" valign=""top"">"
			response.write "<p style=""line-height:100%; margin-top:0; margin-bottom:0;"" align=""center"">"
			response.write "<a href=""/store/shopdisplayproducts.asp?id=" & rs("categoryid") & "&cat=" & _
			  server.URLEncode(rs("catdescription")) & """ style=""font-size: smaller;"">"
			if DisplayImages="Yes" then response.write "<img border=""0"" src=""" & rs("catimage") & """ /><br />"
			response.write "" & rs("catdescription") & "</a><br />"
			response.write "</p></td>"
		if recordIdx mod columns = 0 then response.write "</tr><tr>"
		rs.movenext	
	loop
	response.write "</tr></table>"
	rs.close
End Sub

If not isempty(CAT_ID) then 
	ShowLinksToSubcategories CAT_ID, dbc
end if