Indsætning af værdier i database

Hejsa

Jeg har en database med 2 tabeller (T_Konkakter, T_Kontaktpersoner). I T_kontakter har jeg navnene på forskellige firmaer og i T_Kontaktpersoner har jeg kontaktpersoner til de forskellige firmaer.

Jeg skal nu have oprettet en ny tabel (Brevflet), som der skal brevflettes fra. Tabellen Brevflet bliver oprettet udfra hvilken virksomhed man vælger.

Jeg opretter tabellen Brevflet således:

sql2 = "create table Brevflet (Firma TEXT, Afdeling TEXT, Adresse TEXT, Nr TEXT, Postnr TEXT, Bynavn TEXT, Kontaktperson TEXT)"
Conn.execute sql2

og værdierne således:

set rsID = server.createobject("adodb.recordset")
sql = "select ID from T_Kontakter where Firma = '" & request.form("brevflet_kommune") & "'"
rsID.open sql, conn

set rsKommune = server.createobject("adodb.recordset")
SQL1="INSERT INTO Brevflet ( Firma, Adresse, Nr, Postnr, Bynavn ) SELECT T_Kontakter.Firma, T_Kontakter.Adresse, T_Kontakter.Nr, T_Kontakter.Postnr, T_Kontakter.Bynavn FROM T_Kontakter WHERE (((T_Kontakter.Firma)='" & Request.Form("brevflet_kommune") & "'))"
rsKommune.open SQL1, Conn

set rsKontaktperson = server.createobject("adodb.recordset")
SQL2="INSERT INTO Brevflet ( Afdeling, Kontaktperson ) SELECT T_Kontaktpersoner.Afdeling, T_Kontaktpersoner.Kontaktperson From T_Kontaktpersoner WHERE (((T_Kontaktpersoner.KontaktID)=" & rsID("ID") & "))"
rsKontaktperson.open SQL2, Conn

mit problem er bare at når firmaet er oprettet i tabellen bliver de efterfølgende kontaktpersoner oprettet nedenunder firmaet. Dvs. firmaet står øverst i tabellen med felterne "Afdeling" og "Kontaktperson" tomme og nedenunder følger så alle kontaktpersonerne med felterne "Firma", "Adresse", "Nr", "Postnr" og "Bynavn" tomme.

Mit spørgssmål er så, hvordan får disse tomme hos kontaktpersonerne fyldt ud med firma adresse osv.

Håber det er til at forstå

/Mickill