indsætte data i to db tabeller

Hej eksperten

Jeg skal lave en funktion i et forum som sender en mail til de personer som har svaret på et indlæg. Dette har jeg valgt at lave ved hjælp af en tabel i en access database ved navn ”forummail” i denne tabel er der følgende felter: id, indlaegid, navn, email.

Jeg har i forvejen en side i mit forum, som indsætter svarerne på et indlæg, fra en form i en tabel i access, den ser således ud:

<%
Response.Cookies(\"12tri\")(\"navn\") = request.form(\"navn\")
Response.Cookies(\"12tri\")(\"email\") = request.form(\"email\")
Response.Cookies(\"12tri\").Expires = Date+365
function strCorrect(strInput)
strCorrect = Replace(strInput, \"\'\", \"\'\'\")
end function
Set objConn = Server.CreateObject(\"ADODB.Connection\")
conStr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
%><!--#INCLUDE FILE=\"../include/db.inc\" --><%
objConn.Open conStr
strSQL = \"Insert into forumsvar (\"
strSQL = strSQL & \"navn, \"
strSQL = strSQL & \"mail, \"
strSQL = strSQL & \"indlaegid, \"
strSQL = strSQL & \"indhold, \"
strSQL = strSQL & \"dato) \"
strSQL = strSQL & \"values( \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"navn\")) & \"\', \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"email\")) & \"\', \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"indlaegid\")) & \"\', \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"besked\")) & \"\', \"
strSQL = strSQL & \"\'\" & now() & \"\')\"
objConn.Execute(strSQL)
objconn.close
set objconn = nothing
Response.Redirect \"show.asp?id=\" & Request.form(\"indlaegid\")
%>

Jeg vil ny gerne have udvidet overstående således at værdierne også indsættes i tabellen forum mail evt således:

strSQL = \"Insert into forummail (\"
strSQL = strSQL & \"navn, \"
strSQL = strSQL & \"indlaegid, \"
strSQL = strSQL & \"email, \"
strSQL = strSQL & \"values( \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"navn\")) & \"\', \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"indlaegid\")) & \"\', \"
strSQL = strSQL & \"\'\" & strCorrect(Request.form(\"email\")) & \"\', \"
objConn.Execute(strSQL)

Mit spørgsmål er nu hvordan jeg kombinerer de to eksempler, således at informationer indsættes i begge tabeller ?