hur gör man ifall man vill addera i två tabeller samtidigt...

där man lägger till "id" och "user" i tabellen "members" hur gör man för att samtidigt lägga till "id" och "user" i tabellen "traning"

så här ser koden ut:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select username From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("username") = Request.Form("username") Then

Session("meddelande") = "Det användarnamnet var redan taget! Försök med något annat"
RecSet.Close
Response.Redirect "default.asp"

End If

RecSet.MoveNext

Loop

RecSet.Close

'----------------------------Slut på kontroll------------------------

%>
<%
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("fnamn") = Request.Form("fnamn")
RecSet("enamn") = Request.Form("enamn")
RecSet("username") = Request.Form("username")
RecSet("losen") = Request.Form("pw1")
RecSet("epost") = Request.Form("epost")
RecSet("icq") = Request.Form("icq")
RecSet("adress") = Request.Form("adress")
RecSet("pnr") = Request.Form("pnr")
RecSet("stad") = Request.Form("stad")
RecSet("telefon") = Request.Form("telefon")
RecSet("mobil") = Request.Form("mobil")
RecSet("kunskap") = Request.Form("kunskap")
RecSet("syfte") = Request.Form("syfte")
RecSet("f1") = Request.Form("f1")
RecSet("f2") = Request.Form("f2")
RecSet("f3") = Request.Form("f3")
RecSet("f4") = Request.Form("f4")
RecSet("f5") = Request.Form("f5")
RecSet("b1") = Request.Form("b1")
RecSet("b2") = Request.Form("b2")
RecSet("bild") = Request.Form("bild")
RecSet("citat") = Request.Form("citat")
RecSet("datum") = Date
RecSet("status") = "offline"

RecSet.Update
RecSet.Close

Connect.Close
Set RecSet = nothing
Set Connect = nothing

Session("meddelande") = "Du har nu blivit inlagd i registret! Testa att logga in."
Response.Redirect "default.asp"


%>

Hoppas det inte är allt för "flummigt" skrivet!

Efter att du sparat till tabellen member får du ta upp den posten du precis sparade, har för mig att strSql = select last(id) from members ...ska fungera.

oRs.open, strSql, conn,1,2
IF oRs.RecordCount > 0 THEN
strSql = "INSERT INTO traning (id,user) VALUES(" & oRs("id") & ",'" & Request.Form("username") & "')"

END IF