Skriv til to tabeller - Hvordan hentes info

Koden:
--------------------------------------------------------
<%
Elseif Request.QueryString("Action") = "Add" Then
   
Set RS_opret = Server.CreateObject("ADODB.RecordSet")
RS_opret.open "Select * From [nyheder]" , Conn_crew, 1, 3

RS_opret.addnew
RS_opret("Dato") = date
RS_opret("Titel") = request.form("titel")
RS_opret("Type") = ("games")
RS_opret("Teaser") = request.form("Teaser")
RS_opret("Forfatter") = Session("userid")
RS_opret("Tekst") = request.form("tekst")
RS_opret("kilde") = request.form("kilde")
RS_opret.update

Set RS_opret1 = Server.CreateObject("ADODB.RecordSet")
RS_opret1.open "Select * From [forside]" , Conn_crew, 1, 3

RS_opret1.addnew
RS_opret1("Dato") = date
RS_opret1("Titel") = ("Nyhed: ") & request.form("titel")
RS_opret1("Tekst") = request.form("Teaser")
RS_opret1("link") = ("nyhed.asp?id=") PROBLEMMET, SKAL have id'en fra RS_Opret (nyhedens id) how?
RS_opret1.update
%>