Skriv i database

Dette kan jeg ikke få til at virke:

Fíl 1:
<%
    Response.Expires = 0
    LoggedIn = CBool(True)
   
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"shop.mdb\")
   
    ID = CLng(Request.QueryString(\"ID\"))
    Session(\"LastCategory\") = ID

%>
<!-- #include file=\"top1.inc\" -->
<form method=\"POST\" action=\"kate2.asp\">
<%
    Set RS = Conn.Execute(\"SELECT Parent, Name FROM Categories WHERE ID = \" & ID)
    If RS.EOF Then
        Parent = -1
        Kategori = \"Hovedkategorier\"
    Else
        Parent = RS(\"Parent\")
        Kategori = RS(\"Name\")
    End If
   
    SQLstmt = \"SELECT * FROM Categories WHERE Parent = \" & ID & \" ORDER BY Name\"
    Set RS = Conn.Execute(SQLstmt)
    If Not RS.EOF Then
        Do While Not RS.EOF
            %>
            <b><input type=\"radio\" name=\"field\" value=\"<%=RS(\"ID\")%>\"><a href=\"kate.asp?id=<%= RS(\"ID\") %>\">&nbsp;&nbsp;<%= RS(\"Name\") %></a></b><br>
            <%
            If RS(\"Description\") <> \"\" Then
                %>
                - <%= RS(\"Description\") %><br>
                <%
            End If
            RS.MoveNext
        Loop
    End If

%>


Fil 2:

<%
ID=request.form(\"ID\")
if not ID=\"\" then


ID=Replace(Parent,\"\'\",\"\'\'\")
ID=\"\'\" & ID & \"\'\"

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"shop.mdb\")

sql=\"INSERT INTO articles (ID) \"
sql=sql & \"VALUES (\" & ID & \")\"
Conn.Execute(sql)
End if
%>


Den skal hente ID i en tabel der hedder categories, og gemme det i en tabel der hedder Articles under Parent