indsætte poster i forskellige tabeller

hej

Jeg forsøger at indsætte poster, der vælges fra en tabel og så skal placeres i nogle andre alt afhængig af hvilken kategori de tilhører. har prøvet lidt at hvert, men det virker ikke. Der bliver ikke indsat noget i tabellen.

lidt kode

opret_emne
opret_emne
sub opret_emne   
    set dbConn = Server.CreateObject("ADODB.connection")
    strDSN = strPlacering
    dbConn.Open strDSN
   
    if Request.Form("kategori") = "arkitektur" then
       
    strSQL = "INSERT into arkitektur(kategori, emne, begrundelse) values('" & kategori & "', '" & emne & "', '" & begrundelse & "');"
    dbConn.Execute (strSQL)

    end if
   
    if Request.Form("kategori") = "kulturmiljø" then
        strSQL = "INSERT into kulturmiljoe(kategori, emne, begrundelse) values('" & kategori & "', '" & emne & "', '" & begrundelse & "');"
    dbConn.Execute (strSQL)

    end if
   
dbConn.Close
set dbConn = nothing

end sub