Funktion der fucker

Jeg har følgende funktion:

<%
ID = Request(\"catID\")
    Function makeCatPath(id)
      If id = \"\" then
        Response.End
      end if

        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        SQL = \"SELECT * FROM kat WHERE id = \" & id
        RS.open SQL, \"dsn=musikerportal;\"

        If Not rs.EOF Then
            If LCase(rs(\"topcat\")) <> \"p\" Then
                writeString = makeCatPath(CInt(rs(\"topcat\"))) & \" - <B><A HREF=\"\"kategori.asp?catID=\" & rs(\"id\") & \"\"\">\" & rs(\"tekst\") & \"</A></B>\"
            Else
                writeString = \"<B><A HREF=\"\"default.asp\"\">Forsiden</A></B> - <B><A HREF=\"\"kategori.asp?catID=\" & rs(\"id\") & \"\"\">\" & rs(\"tekst\") & \"</A></B>\"
            End If
        End If

        rs.close
        set rs=nothing

        makeCatPath = writeString
    End Function
%>

Det virker bare kun periodisk...

Funktionen skulle gerne vise en oversigt over hvor i menuen brugeren befinder sig.

Hovdekategori - underkategori - underkategori osv.

Indtil nu har jeg kun fået det til at lykkes med hovdekategori, lige så snart jeg vælger en under kategori får jeg en

Provider fejl \'80004005\'

Uspecificeret fejl

test2.asp, linje 18


Til tider når jeg slet ikke så langt.

Jeg glæder mig til at høre Jeres bud på hvad der kunne være galt...

Ares