Indtaste data i relaterede tabeller

Hej

Jeg har en Access-database med to tabeller. De to tabeller hedder tbl_lemma og tbl_equiv. De to tabeller har en en-til-mange relation via felterne id_lemma og fr_lemma. Feltet id_lemma er primærnøgle i tabellen tbl_lemma og feltet fr_lemma er fremmednøglen i tabellen tbl_equiv og er af datatypen tal.

Det hele virker fint, når jeg indtaster data direkte i databasen
via en formular med en underformular. Når jeg gør det, indsætter
databasen automatisk et tal i feltet fr_lemma.

Det virker dog ikke, når jeg forsøger at indtaste data via en HTML-formular og en tilhørede ASP-fil. Der bliver skrevet ned i alle ønskede felter, men det tal, der automatisk skal indsættes i feltet fr_lemma (og som skaber en-til-mange-relationen i databasen) bliver IKKE automatisk indsat, når jeg indtaster data via mine HTML/ASP-formularer. Jeg får ingen fejlmeddelelse.

Koden ser således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/xxxxxxx.mdb")
Conn.Open DSN

sql="INSERT INTO tbl_lemma (lemma, dkclass, dkmorph, dksyn, dkdef, dkex, dkcol, dkref, author, validation)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("lemma") & "',"
sql=sql & "'" & Request.Form("dkclass") & "',"
sql=sql & "'" & Request.Form("dkmorph") & "',"
sql=sql & "'" & Request.Form("dksyn") & "',"
sql=sql & "'" & Request.Form("dkdef") & "',"
sql=sql & "'" & Request.Form("dkex") & "',"
sql=sql & "'" & Request.Form("dkcol") & "',"
sql=sql & "'" & Request.Form("dkref") & "',"
sql=sql & "'" & Request.Form("author") & "',"
sql=sql & "'" & Request.Form("validation") & "')"

on error resume next
conn.Execute sql,recaffected

sql="INSERT INTO tbl_equiv (equiv, equivclass, equivmorph, equivsyn, equivdef, equivex, equivcol, equivref)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("equiv") & "',"
sql=sql & "'" & Request.Form("equivclass") & "',"
sql=sql & "'" & Request.Form("equivmorph") & "',"
sql=sql & "'" & Request.Form("equivsyn") & "',"
sql=sql & "'" & Request.Form("equivdef") & "',"
sql=sql & "'" & Request.Form("equivex") & "',"
sql=sql & "'" & Request.Form("equivcol") & "',"
sql=sql & "'" & Request.Form("equivref") & "')"

on error resume next
conn.Execute sql,recaffected
if err<>0 then
  Response.Write("<h3>Desværre - det lykkedes ikke at indtaste en artikel!</h3>")
else
  Response.Write("<h3>Sådan - artikel indtastet!</h3><br><a href=http://www.xxxxx.dk/xxxxxxx.htm>Indtast ny artikel?</a><br>")
end if
conn.close
%>

Er der nogen, der har et forslag - jeg har bakset med det i ufattelig lang tid nu og som ASP-nybegynder er jeg på bar bund?

Henrik