INSERT & ARRAY funktion

Nu har jeg set mig blind på dette lille stykke kode. Det skulle være forholdsvis tydeligt hvad jeg sigter mod.

Anyone - hvordan får jeg dette til at virke ?

-------------------------------------       

Set EmneConn = Server.CreateObject(\"ADODB.Connection\")
        DBPath = \"DBQ=\" & server.mappath(\"/DataBases/emneindeks.mdb\")
        EmneConn.Open \"Driver={Microsoft Access Driver (*.mdb)};\" & DBPath

        Sql_Nr = \"Select Top 1 * FROM kategorier ORDER BY KategoriID DESC;\"
          Set RsNr = EmneConn.Execute(Sql_Nr)         
        KatNummer = RsNr(\"KategoriID\") + 1
       
        Sql = \"INSERT INTO kategorier (KategoriNAVN) values (\'\"& Request.Form(\"Navn\") &\"\')\"
        Set Rs = EmneConn.Execute(Sql)
       
              Undkat(1) = Request.Form(\"U1\")
            Undkat(2) = Request.Form(\"U2\")
            Undkat(3) = Request.Form(\"U3\")
            Undkat(4) = Request.Form(\"U4\")
            Undkat(5) = Request.Form(\"U5\")
            Undkat(6) = Request.Form(\"U6\")
            Undkat(7) = Request.Form(\"U7\")
            Undkat(8) = Request.Form(\"U8\")

    For i = 1 to 8
        If Undkat(i) <> \"\" then
          Sql_2 = \"Insert Into underkategorier (UnderkategoriNAVN, KategoriID, Status) values (\'\"& Undkat(i) &\"\',\'\"& KatNummer &\"\',\'1\')\"
          Set Record = EmneConn.Execute(Sql_2)
            Set Record = Nothing
        end if
      Next