array der lister kategorier sløver siden helt vildt..

Hjælp, vi har en funktion på vores shop der sløver serveren helt vildt.

Nu flere kategorier, med under kategorier der er, nu langsomer køre siden.

Serveren er stor, has massere ram og CPU.
det er testet på flere maskiner.

Alle reagere på samme måde. Nu flere kategorier, med under kategorier, nu langsom'er bliver den :(

er der nogle der har en ide om hvad der går galt. er det dem måde koden er lavet på?
kunne det lavet om ? rettes ??
------ Her er koden 2 funktioner Front end side --------

Function ListCategories(arrCats, lngParentCategoryID, lngSelectedID, strIndent)
  Dim A, strTemp, lngUBound, strClass, thisCat
  arrCats2 = GetCats()
  lngUBound = UBound(arrCats2, 2)
  For A = 0 To lngUBound
      If arrCats2(1, A) = lngParentCategoryID Then
        If lngExpandedCategoryID = arrCats2(0,A) Then
            strClass = "selectedCategory"
            strBullet = "<img src='/images/arrow_right.gif' style='border-width:0px;'>"
        Else
            strClass = "menuitem"
            strBullet = ""
        End If

        strTemp = strTemp & strIndent & IIf(True Or arrCats2(4, A), "<a title=""" & arrCats2(2, A) & """ href=""/shop/category.asp?id=" & arrCats2(0, A) & """ class='" & strClass & "'>", "") & strBullet & " " & IIf(lngParentCategoryID = 0, "<b>", "") & arrCats2(2, A) & IIf(lngParentCategoryID = 0, "</b>", "")  & IIf(True Or arrCats2(4, A), "</a>", "")
        strTemp = strTemp & "<br>"
        If InStr(strExpandedCats, "|" & arrCats2(0, A) & "|") > 0 Then
            strTemp = strTemp & ListCategories(arrCats2, arrCats2(0, A), lngSelectedID, strIndent & "&nbsp;&nbsp;&nbsp;")
        End If
      End If
  Next
  ListCategories = strTemp
End Function

--------- End front end -------