Avanceret søgning

G'aften

Jeg sidder og roder med en søgefunktion, som ikke virker helt efter hensigten.

Funktionen skal bruges til en shop, som har flere varekategorier. Jeg har brug for at kunne vælge hvilke kategorier, jeg vil søge i, og definere et søgeord....og det går også fint.

For at lave en "ren" søgning pr. kategori, definerer jeg kategori-ID'erne som et array og looper den omkring min SQL-søgning. Det virker fint hvis jeg vælger under 5 kategorier går det normalt hurtigt (ca. 1-2 sek.), men hvis jeg vælger flere laver den time-out.

Hvem kan sige hvad der er galt, eller lave et alternativ????

Her er min kode:


-------------------------------------
catSearchStr = Replace(catSearchStr," ","")
catSearchArr = Split(catSearchStr, ",")
catSearchStr = ""

for i = 0 to ubound(catSearchArr)

catId = catSearchArr(i)

    SQL = ""
    SQL = SQL & "SELECT * FROM productCatalog WHERE"
    SQL = SQL & " (categoryId = "&catId&" AND vareName like '%"&searchWord&"%') "
    SQL = SQL & "OR"
    SQL = SQL & " (categoryId = "&catId&" AND vareTeaser like '%"&searchWord&"%') "
    SQL = SQL & "OR"
    SQL = SQL & " (categoryId = "&catId&" AND vareDesc like '%"&searchWord&"%') "
    Set RS = Connect.Execute(SQL)


    Do While NOT RS.BOF AND NOT RS.EOF

    itemSearchStr = itemSearchStr & "<td valign=""top"">"&FormatText("breadNormal",noStore&RS("VareName"),0,"<b>","</b>","pad")&"</td>"

    noStore = ""

    RS.Movenext
    Loop

next
-------------------------------------

"catSearchStr" kan f.eks. se således ud

28, 35, 40....o.s.v.