Bom Dia Pessoal Estou fazendo um formulario passo a passo, pois ele é muito grande são 5 passos. Gostaria de ligar duas tabelas, como eu faço para pegar o ID da primeira para ligarcom a próxima. <% @ language="Vbscript" %>
<%
'#########################################################
'# #
'# Joelmir Carravetta Matthes #
'# Web Designer #
'# joelmircarravetta@MSN.com #
'# #
'#########################################################
strURLdb = "db/database.mdb"
RecPerPag = 10
%>
<%
strAction = request("action")
strId_voce = request("id_voce")
strId_voce_residencial = request("id_voce_residencial")
strId_voce_trabalho = request("id_voce_trabalho")
strId_voce_referencia = request("id_voce_referencia")
strId_voce_conjuge = request("id_voce_conjuge")
strId_voce_cartao = request("id_voce_cartao")
if strAction = "envia_proposta_voce" then
strCpf_voce = Request("cpf_voce")
strNome_voce = Request("nome_voce")
strData_nascimento_voce = Request("data_nascimento_voce")
strSexo_voce = Request("sexo_voce")
strIdentidade_voce = Request("identidade_voce")
strOrgao_emissor_voce = Request("orgao_emissor_voce")
strData_emissao_voce = Request("data_emissao_voce")
strEstado_civil_voce = Request("estado_civil_voce")
strDependentes_voce = Request("dependentes_voce")
strNome_mae_voce = Request("nome_mae_voce")
strEmail_voce = Request("email_voce")
strSite_voce = Request("site_voce")
end if
if strAction = "envia_proposta_residencial" then
strEndereco_residencial = Request("endereco_residencial")
strNumero_residencial = Request("numero_residencial")
strComplemento_residencial = Request("complemento_residencial")
strBairro_residencial = Request("bairro_residencial")
strCidade_residencial = Request("cidade_residencial")
strUf_residencial = Request("uf_residencial")
strCep_residencial = Request("cep_residencial")
strData_residencial = Request("data_residencial")
strSituacao_residencia_residencial = Request("situacao_residencia_residencial")
strTelefone_residencial = Request("telefone_residencial")
strRamal_residencial = Request("ramal_residencial")
strTelefone_situacao_residencial = Request("telefone_situacao_residencial")
end if
if strAction = "envia_proposta_trabalho" then
strNome_trabalho = Request("nome_trabalho")
strData_inicio_trabalho = Request("data_inicio_trabalho")
strSalario_trabalho = Request("salario_trabalho")
strCargo_trabalho = Request("cargo_trabalho")
strNatureza_trabalho = Request("natureza_trabalho")
strEndereco_trabalho = Request("endereco_trabalho")
strNumero_trabalho = Request("numero_trabalho")
strComplemento_trabalho = Request("complemento_trabalho")
strBairro_trabalho = Request("bairro_trabalho")
strCidade_trabalho = Request("cidade_trabalho")
strUf_trabalho = Request("uf_trabalho")
strCep_trabalho = Request("cep_trabalho")
strTelefone_trabalho = Request("telefone_trabalho")
strRamal_trabalho = Request("ramal_trabalho")
strOutras_rendas_trabalho = Request("outras_rendas_trabalho")
strSalario_outras_rendas_trabalho = Request("salario_outras_rendas_trabalho")
end if
if strAction = "envia_proposta_referencia" then
strNome_1_referencia = Request("nome_1_referencia")
strTelefone_1_referencia = Request("telefone_1_referencia")
strRamal_1_referencia = Request("ramal_1_referencia")
strNome_2_referencia = Request("nome_2_referencia")
strTelefone_2_referencia = Request("telefone_2_referencia")
strRamal_2_referencia = Request("ramal_2_referencia")
strNumero_banco_referencia = Request("numero_banco_referencia")
strNumero_agencia_referencia = Request("numero_agencia_referencia")
strNumero_conta_referencia = Request("numero_conta_referencia")
strCheque_especial_referencia = Request("cheque_especial_referencia")
strCartao_master_referencia = Request("cartao_master_referencia")
strCartao_amex_referencia = Request("cartao_amex_referencia")
strCartao_sollo_referencia = Request("cartao_sollo_referencia")
strCartao_diners_referencia = Request("cartao_diners_referencia")
strCartao_loja_referencia = Request("cartao_loja_referencia")
strCartao_nenhuma_referencia = Request("cartao_nenhuma_referencia")
strCartao_outros_referencia = Request("cartao_outros_referencia")
strCartao_data_validade_referencia = Request("cartao_data_validade_referencia")
strCartao_numero_referencia = Request("Cartao_numero_referencia")
end if
if strAction = "envia_proposta_conjuge" then
strCpf_conjuge = Request("cpf_conjuge")
strNome_conjuge = Request("nome_conjuge")
strData_nascimento_conjuge = Request("data_nascimento_conjuge")
strEmpresa_conjuge = Request("empresa_conjuge")
strTelefone_comercial_conjuge = Request("telefone_comercial_conjuge")
strRamal_conjuge = Request("ramal_conjuge")
strSalario_conjuge = Request("salario_conjuge")
end if
if strAction = "envia_proposta_cartao" then
strVencimento_cartao = Request("vencimento_cartao")
strNome_cartao = Request("nome_cartao")
strNome_dependente_cartao = Request("nome_dependente_cartao")
strData_nascimento_dependente_cartao = Request("data_nascimento_dependente_cartao")
strParentesco_cartao = Request("parentesco_cartao")
end if
%>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(strURLdb)
'Recordset for add a new VOCE
if strAction="envia_proposta_voce" then
set objCadastra_Voce=server.createobject("adodb.recordset")
sql="select * from voce"
objCadastra_Voce.open sql,conn,3,3
objCadastra_Voce.AddNew
objCadastra_Voce("cpf_voce") = strCpf_voce
objCadastra_Voce("nome_voce") = strNome_voce
objCadastra_Voce("data_nascimento_voce") = strData_nascimento_voce
objCadastra_Voce("sexo_voce") = strSexo_voce
objCadastra_Voce("identidade_voce") = strIdentidade_voce
objCadastra_Voce("orgao_emissor_voce") = strOrgao_emissor_voce
objCadastra_Voce("data_emissao_voce") = strData_emissao_voce
objCadastra_Voce("estado_civil_voce") = strEstado_civil_voce
objCadastra_Voce("dependentes_voce") = strDependentes_voce
objCadastra_Voce("nome_mae_voce") = strNome_mae_voce
objCadastra_Voce("email_voce") = strEmail_voce
objCadastra_Voce("site_voce") = strSite_voce
objCadastra_Voce("data_voce") = Now()
Session("cod_voce") = strId_voce
objCadastra_Voce.Update
Session("estado_civil") = strEstado_civil_voce
response.redirect "gerenciamento.asp?action=residencial&id_voce_residencial="& strId_voce &""
end if
'Recordset for add a new RESIDENCIAL
if strAction="envia_proposta_residencial" then
set objCadastra_Residencial=server.createobject("adodb.recordset")
sql="select * from residencial where id_voce_residencial="& ID &""
objCadastra_Residencial.open sql,conn,3,3
objCadastra_Residencial.AddNew
objCadastra_Residencial("id_voce_residencial") = strId_voce_residencial
objCadastra_Residencial("endereco_residencial") = strEndereco_residencial
objCadastra_Residencial("numero_residencial") = strNumero_residencial
objCadastra_Residencial("complemento_residencial") = strComplemento_residencial
objCadastra_Residencial("bairro_residencial") = strBairro_residencial
objCadastra_Residencial("cidade_residencial") = strCidade_residencial
objCadastra_Residencial("uf_residencial") = strUf_residencial
objCadastra_Residencial("cep_residencial") = strCep_residencial
objCadastra_Residencial("data_residencial") = strData_residencial
objCadastra_Residencial("situacao_residencia_residencial") = strSituacao_residencia_residencial
objCadastra_Residencial("telefone_residencial") = strTelefone_residencial
objCadastra_Residencial("ramal_residencial") = strRamal_residencial
objCadastra_Residencial("telefone_situacao_residencial") = strTelefone_situacao_residencial
objCadastra_Residencial.Update
response.redirect "gerenciamento.asp?action=trabalho"
end if
'Recordset for add a new TRABALHO
if strAction="envia_proposta_trabalho" then
set objCadastra_Trabalho=server.createobject("adodb.recordset")
sql="select * from trabalho where id_voce_trabalho="& strId_voce_trabalho &""
objCadastra_Trabalho.open sql,conn,3,3
objCadastra_Trabalho.AddNew
objCadastra_Trabalho("id_voce_trabalho") = strId_voce_trabalho
objCadastra_Trabalho("nome_trabalho") = strNome_trabalho
objCadastra_Trabalho("data_inicio_trabalho") = strData_inicio_trabalho
objCadastra_Trabalho("salario_trabalho") = strSalario_trabalho
objCadastra_Trabalho("cargo_trabalho") = strCargo_trabalho
objCadastra_Trabalho("natureza_trabalho") = strNatureza_trabalho
objCadastra_Trabalho("endereco_trabalho") = strEndereco_trabalho
objCadastra_Trabalho("numero_trabalho") = strNumero_trabalho
objCadastra_Trabalho("complemento_trabalho") = strComplemento_trabalho
objCadastra_Trabalho("bairro_trabalho") = strBairro_trabalho
objCadastra_Trabalho("cidade_trabalho") = strCidade_trabalho
objCadastra_Trabalho("uf_trabalho") = strUf_trabalho
objCadastra_Trabalho("cep_trabalho") = strCep_trabalho
objCadastra_Trabalho("telefone_trabalho") = strTelefone_trabalho
objCadastra_Trabalho("ramal_trabalho") = strRamal_trabalho
objCadastra_Trabalho("outras_rendas_trabalho") = strOutras_rendas_trabalho
objCadastra_Trabalho("salario_outras_rendas_trabalho") = strSalario_outras_rendas_trabalho
objCadastra_Trabalho.Update
response.redirect "gerenciamento.asp?action=referencia"
end if
'Recordset for add a new REFERENCIA
if strAction="envia_proposta_referencia" then
set objCadastra_Referencia=server.createobject("adodb.recordset")
sql="select * from referencia where id_voce_referencia="& strId_voce_referencia &""
objCadastra_Referencia.open sql,conn,3,3
objCadastra_Referencia.AddNew
objCadastra_Referencia("id_voce_referencia") = strId_voce_referencia
objCadastra_Referencia("nome_1_referencia") = strNome_1_referencia
objCadastra_Referencia("telefone_1_referencia") = strTelefone_1_referencia
objCadastra_Referencia("ramal_1_referencia") = strRamal_1_referencia
objCadastra_Referencia("nome_2_referencia") = strNome_2_referencia
objCadastra_Referencia("telefone_2_referencia") = strTelefone_2_referencia
objCadastra_Referencia("ramal_2_referencia") = strRamal_2_referencia
objCadastra_Referencia("numero_banco_referencia") = strNumero_banco_referencia
objCadastra_Referencia("numero_agencia_referencia") = strNumero_agencia_referencia
objCadastra_Referencia("numero_conta_referencia") = strNumero_conta_referencia
objCadastra_Referencia("cheque_especial_referencia") = strCheque_especial_referencia
objCadastra_Referencia("cartao_master_referencia") = strCartao_master_referencia
objCadastra_Referencia("cartao_amex_referencia") = strCartao_amex_referencia
objCadastra_Referencia("cartao_sollo_referencia") = strCartao_sollo_referencia
objCadastra_Referencia("cartao_diners_referencia") = strCartao_diners_referencia
objCadastra_Referencia("cartao_loja_referencia") = strCartao_loja_referencia
objCadastra_Referencia("cartao_nenhuma_referencia") = strCartao_nenhuma_referencia
objCadastra_Referencia("cartao_outros_referencia") = strCartao_outros_referencia
objCadastra_Referencia("cartao_data_validade_referencia") = strCartao_data_validade_referencia
objCadastra_Referencia("Cartao_numero_referencia") = strCartao_numero_referencia
objCadastra_Referencia.Update
if Session("estado_civil") = "Casado" then
response.redirect "gerenciamento.asp?action=conjuge"
else
response.redirect "gerenciamento.asp?action=cartao"
end if
end if
'Recordset for add a new conjuge
if strAction="envia_proposta_conjuge" then
set objCadastra_Conjuge=server.createobject("adodb.recordset")
sql="select * from conjuge where id_voce_conjuge="& strId_voce_conjuge &""
objCadastra_Conjuge.open sql,conn,3,3
objCadastra_Conjuge.AddNew
objCadastra_Conjuge("id_voce_conjuge") = strId_voce_conjuge
objCadastra_Conjuge("cpf_conjuge") = strCpf_conjuge
objCadastra_Conjuge("nome_conjuge") = strNome_conjuge
objCadastra_Conjuge("data_nascimento_conjuge") = strData_nascimento_conjuge
objCadastra_Conjuge("empresa_conjuge") = strEmpresa_conjuge
objCadastra_Conjuge("telefone_comercial_conjuge") = strTelefone_comercial_conjuge
objCadastra_Conjuge("ramal_conjuge") = strRamal_conjuge
objCadastra_Conjuge("salario_conjuge") = strSalario_conjuge
objCadastra_Conjuge.Update
response.redirect "gerenciamento.asp?action=cartao"
end if
'Recordset for add a new CARTÃO
if strAction="envia_proposta_cartao" then
set objCadastra_Cartao=server.createobject("adodb.recordset")
sql="select * from cartao where id_voce_cartao="& strId_voce_cartao &""
objCadastra_Cartao.open sql,conn,3,3
objCadastra_Cartao.AddNew
objCadastra_Cartao("id_voce_cartao") = strId_voce_cartao
objCadastra_Cartao("venciemnto_cartao") = strVencimento_cartao
objCadastra_Cartao("nome_cartao") = strNome_cartao
objCadastra_Cartao("nome_dependente_cartao") = strNome_dependente_cartao
objCadastra_Cartao("data_nascimento_dependente_cartao") = strData_nascimento_dependente_cartao
objCadastra_Cartao("parentesco_cartao") = strParentesco_cartao
objCadastra_Cartao.Update
end if
%>
