Insert 2 Tabelas

[Boca 0]

Olá pessoal preciso fazer um Insert em duas tabelas de campos diferentes, mas com um campo com relacionamento, sei que preciso fazer o primeiro insert na primeira tabela e depois fazer um select da mesma para fazer o inseret na segunda, mas não estou conesguindo fazer, alguem pode me ajudar?

[asp.net 0]

La vai, caso você tenha alguma dúvida pvt.=============Inserindo na primeira tabela e redirecionando para a segunda página para cadastrar na outra tabela========================'response.Write(REquest.Form("idcarro"))'response.End()ObjConCarros.Open "veiculo"'Inicio do processo de transação para cadastro das informações do carro e dos opcionais ObjconCarros.AddNew ObjConCarros("id")=Trim(request.Form("idcarro")) ObjconCarros("modelo")=trim(request.Form("modelo")) ObjConCarros("placa")=trim(request.Form("placa")) Objconcarros("uf")=trim(request.Form("ufplaca")) ObjconCarros("cor")=trim(request.form("cor")) ObjconCarros("anofabr")=trim(request.Form("anofab")) ObjConCarros("km")=trim(request.Form("km")) ObjConCarros("ano")=trim(request.Form("anomodelo")) ObjConCarros("portas")=trim(request.Form("qtportas")) ObjConCarros("marchas")=trim(request.form("qtmarchas")) ObjConCarros("origem")=trim(request.Form("origem")) ObjconCarros("descric")=trim(request.Form("descricao")) ObjConCarros("preco")=trim(request.Form("preco")) ObjConCarros("loja")=Session("idloja") ObjConCarros.UpdateObjConCarros.Close'Update da tabela de anunciossql_updateanuncio="Select * from anuncios where id="&Session("id_anuncio")ObjConCarros.Open sql_updateanuncio ObjconCarros("anuncios")=Cint(Session("quant_anuncio"))+1 ObjConCarros.UpdateObjConCarros.Close'Cadastro de opcionais :::: Verificando se foi escolhido algum opcionalif len(Trim(request.Form("opabs")))=0 and len(Trim(request.Form("opairbag")))=0 and len(Trim(request.Form("opairbagd")))=0 and len(Trim(request.Form("opalarme")))=0 and len(Trim(request.Form("oparcond")))=0 and len(Trim(request.Form("oparcondd")))=0 and len(Trim(request.Form("opbancos")))=0 and len(Trim(request.Form("opbarras")))=0 and len(Trim(request.Form("opbcd")))=0 and len(Trim(request.Form("opcomputador")))=0 and len(Trim(request.Form("opdirereg")))=0 and len(Trim(request.Form("opdirhid")))=0 and len(Trim(request.Form("opfreios4")))=0 and len(Trim(request.Form("opdesembacador")))=0 and len(Trim(request.Form("oppiloto")))=0 and len(Trim(request.Form("opperolizada")))=0 and len(Trim(request.Form("opmetalica")))=0 and len(Trim(request.Form("opradioam")))=0 and len(Trim(request.Form("optocafitas")))=0 and len(Trim(request.Form("opretrovisor")))=0 and len(Trim(request.Form("oprodas")))=0 and len(Trim(request.Form("optravas")))=0 and len(Trim(request.Form("opvidrosverdes")))=0 then cadastrar_opcionais=0 else cadastrar_opcionais=1end ifif cadastrar_opcionais<>0 thenObjConCarros.Open "opcionais" ObjConCarros.AddNew ObjConCarros("veiculo")=Trim(request.Form("idcarro")) if len(Trim(request.Form("opabs")))>0 then IF trim(request.Form("opabs")=1) then ObjConCarros("abs")=true end if end if if len(Trim(request.Form("opairbag")))>0 then IF trim(request.Form("opairbag")=1) then ObjConCarros("airbag")=true end if end if if len(Trim(request.Form("opairbagd")))>0 then IF trim(request.Form("opairbagd")=1) then ObjConCarros("airbagduplo")=true end if end if if len(Trim(request.Form("oparsimples")))>0 then IF trim(request.Form("oparsimples")=1) then ObjConCarros("arsimples")=true end if end if if len(Trim(request.Form("opardigital")))>0 then IF trim(request.Form("opardigital")=1) then ObjConCarros("ardigital")=true end if end if if len(Trim(request.Form("opbancos")))>0 then IF trim(request.Form("opbancos")=1) then ObjConCarros("bancocouro")=true end if end if if len(Trim(request.Form("opcd")))>0 then IF trim(request.Form("opcd")=1) then ObjConCarros("cd")=true end if end if if len(Trim(request.Form("opdirreg")))>0 then IF trim(request.Form("opdirreg")=1) then ObjConCarros("dirregulavel")=true end if end if if len(Trim(request.Form("opdirreg")))>0 then IF trim(request.Form("opdirreg")=1) then ObjConCarros("direcaohidraulica")=true end if end if if len(Trim(request.Form("opcomputador")))>0 then IF trim(request.Form("opcomputador")=1) then ObjConCarros("computador")=true end if end if if len(Trim(request.Form("opfreios4")))>0 then IF trim(request.Form("opfreios4")=1) then ObjConCarros("freios4")=true end if end if if len(Trim(request.Form("opdesembacador")))>0 then IF trim(request.Form("opdesembacador")=1) then ObjConCarros("desembacador")=true end if end if if len(Trim(request.Form("oppiloto")))>0 then IF trim(request.Form("oppiloto4")=1) then ObjConCarros("piloto")=true end if end if if len(Trim(request.Form("opperolizada")))>0 then IF trim(request.Form("opperolizada")=1) then ObjConCarros("pinturaperolizada")=true end if end if if len(Trim(request.Form("opmetalica")))>0 then IF trim(request.Form("opmetalica")=1) then ObjConCarros("pinturametalica")=true end if end if if len(Trim(request.Form("opradioam")))>0 then IF trim(request.Form("opradioam")=1) then ObjConCarros("radio_am")=true end if end if if len(Trim(request.Form("optocafitas")))>0 then IF trim(request.Form("optocafitas")=1) then ObjConCarros("tocafitas")=true end if end if if len(Trim(request.Form("opretrovisor")))>0 then IF trim(request.Form("opretrovisor")=1) then ObjConCarros("retrovisoreseletricos")=true end if end if if len(Trim(request.Form("oprodas")))>0 then IF trim(request.Form("oprodas")=1) then ObjConCarros("rodasesportivas")=true end if end if if len(Trim(request.Form("optravas")))>0 then IF trim(request.Form("optravas")=1) then ObjConCarros("travaeletrica")=true end if end if if len(Trim(request.Form("opvidros")))>0 then IF trim(request.Form("opvidros")=1) then ObjConCarros("vidroseletricos")=true end if end if if len(opcabine) > "0" then ObjConCarros("cabine")=opcabine end if ObjConCarros("tracao")=optracao if len(Trim(request.Form("opbarras")))>0 then IF trim(request.Form("opbarras")=1) then ObjConCarros("barrasdeprotecao")=true end if end if if len(Trim(request.Form("opalarme")))>0 then IF trim(request.Form("opalarme")=1) then ObjConCarros("alarme")=true end if end if if len(Trim(request.Form("opvidrosverdes")))>0 then IF trim(request.Form("opvidrosverdes")=1) then ObjConCarros("vidrosverdes")=true end if end if ObjConCarros.UpdateObjConCarros.Closeend ifresponse.redirect("cadastrofoto.asp?id_carro="&Trim(request.Form("idcarro")))=============Segunda página, cadastro na segunda tabela===============================ObjConCarros.Open "opcionais" ObjConCarros.AddNew ObjConCarros("veiculo")=id_ultimo_carro if len(opabs)>0 then IF opabs=1 then ObjConCarros("abs")=true end if end if if len(opairbag) > "0" then IF opairbag=1 then ObjConCarros("airbag")=true end if end if if len(opairbagd) > "0" then IF opairbagd=1 then ObjConCarros("airbagduplo")=true end if end if if len(oparcond) > "0" then IF oparcond=1 then ObjConCarros("arsimples")=true end if end if if len(oparcondd) > "0" then IF oparcondd=1 then ObjConCarros("ardigital")=true end if end if if len(opbancos) > "0" then IF opbancos=1 then ObjConCarros("bancocouro")=true end if end if if len(opcd) > "0" then IF opcd=1 then ObjConCarros("cd")=true end if end if if len(opdirreg) > "0" then IF opdirreg=1 then ObjConCarros("dirregulavel")=true end if end if if len(opdirhid) > "0" then IF opdirhid=1 then ObjConCarros("direcaohidraulica")=true end if end if if len(opcomputador) > "0" then IF opcomputador=1 then ObjConCarros("computador")=true end if end if if len(opfreios4) > "0" then IF opfreios4=1 then ObjConCarros("freios4")=true end if end if if len(opdesembacador) > "0" then IF opdesembacador=1 then ObjConCarros("desembacador")=true end if end if if len(oppiloto) > "0" then IF oppiloto=1 then ObjConCarros("piloto")=true end if end if if len(opperolizada) > "0" then IF opperolizada=1 then ObjConCarros("pinturaperolizada")=true end if end if if len(opmetalica) > "0" then IF opmetalica=1 then ObjConCarros("pinturametalica")=true end if end if if len(opradioam) > "0" then IF opradioam=1 then ObjConCarros("radio_am")=true end if end if if len(optocafitas) > "0" then IF optocafitas=1 then ObjConCarros("tocafitas")=true end if end if if len(opretrovisor) > "0" then IF opretrovisor=1 then ObjConCarros("retrovisoreseletricos")=true end if end if if len(oprodas) > "0" then IF oprodas=1 then ObjConCarros("rodasesportivas")=true end if end if if len(optravas) > "0" then IF optravas=1 then ObjConCarros("travaeletrica")=true end if end if if len(opvidroelet) > "0" then IF opvidroelet=1 then ObjConCarros("vidroseletricos")=true end if end if if len(opcabine) > "0" then ObjConCarros("cabine")=opcabine end if ObjConCarros("tracao")=optracao if len(opbarras) > "0" then IF opbarras=1 then ObjConCarros("barrasdeprotecao")=true end if end if if len(opalarme) > "0" then IF opalarme=1 then ObjConCarros("alarme")=true end if end if if len(opvidrosverdes) > "0" then IF opvidrosverdes=1 then ObjConCarros("vidrosverdes")=true end if end if ObjConCarros.Update Fecharconexao() response.redirect("indexloja.asp")===========Fim do código===========================