"
end if
end if
'Show category summary
if (UseCats = 1 AND DisplayCatSummary = 1 AND CatCounterFilled = 1) then
OutBuf(OUTPUT_CATSUMMARY) = OutBuf(OUTPUT_CATSUMMARY) & "

" & STR_CAT_SUMMARY & "

"
Dim catSummaryItemCount
catSummaryItemCount = 0
for catit = 0 to NumCats-1
' if all the results found belonged in this current category, then we don't show it in the summary
if (CatCounter(catit) > 0) then
if (CatCounter(catit) <> matches) then
catSummaryItemCount = catSummaryItemCount + 1
OutBuf(OUTPUT_CATSUMMARY) = OutBuf(OUTPUT_CATSUMMARY) & "