Optimering af SQL sætning/løkker som bliver for langsomme

Jeg har denne del kode som på siden køres 3 gange for at lave det i 3 niveauer, men den bliver vanvittig langsom når den startes, der er ca 3800 varer i tabellen men hvis jeg derimod med en anden søgning jeg har lavet søger efter tekster hvor den så søger i felterne med %like% så får den fundet alle resultater meget hurtigt, så er der en måde at optimer koden her på evt. genbruge den første DB opslag i næste løkke hvor kaldet er ens igen.

Jeg vil også gerne betale for en løsning hvis nogen kan hjælpe

På forhånd 1000 tak

koden:
' Tager alt fra tabellen "kategori_et"
set dbKategori_et = con.execute("select distinct kategori1 from varer where Kategori1<>NULL order by kategori1 asc")
' Tjekker om tabellen er tom
if not (dbKategori_et.bof or dbKategori_et.eof) then
    ' Hvis den ikke er tom, loop igennem alt den finder
    do until dbKategori_et.eof
        ' Laver en <div> rundt om kategori navnet, så den kan styres ved hjælp af CSS
        response.write "<div class='kategori_et'>"
        %>
        <!-- Laver links til at vise og skjule kategorien -->
        <table border="0" cellspacing="0" cellpadding="0" id="1.<%=dbKategori_et("kategori1")%>_show" class="show">
        <tr>
            <td width="15">
            <a
            onclick="show_element('1.<%=dbKategori_et("kategori1")%>');
            <% 'Looper gennem alle andre kategorier på niveau 1, og skjuler dem
            set dbKategori_et_cats = con.execute("select distinct kategori1 from varer where Kategori1<>NULL")
     
            if not (dbKategori_et_cats.bof or dbKategori_et_cats.eof) then
                do until dbKategori_et_cats.eof
                    if dbKategori_et_cats("kategori1") <> dbKategori_et("kategori1") then
                        response.write "hide_element('1." &dbKategori_et_cats("kategori1")& "');"
                    end if
             
                    set dbKategori_et_elements = con.execute("select * from varer where kategori1='" &dbKategori_et_cats("kategori1")& "'")
             
                    'Skjuler alle åbner kategorier på niveau 2
                    if not (dbKategori_et_elements.bof or dbKategori_et_elements.eof) then
                        do until dbKategori_et_elements.eof
                            response.write "hide_element('2." &dbKategori_et_elements("kategori2")& "');"
                     
                            dbKategori_et_elements.movenext
                        loop
                    end if
             
                    dbKategori_et_cats.movenext
                loop
            end if
            %>