insert em duas tabelas

[lucianowolff 0]

novamente post minha dúvida será que existe algum crito que possa me ajudarnao sei sai disso, nao consigo entenderinser em diuas tabelas atraves de um formulario apenas:tenho a tabela Usuarioscod_user (chave primaria )nomeidadeestadocivilsexorgcpftenho a tabela enderecocod_user (chave estrangeira )enderecobairroestadocidadetelefonenao estou consiguindo inserir os dados na tabela endereco , que tem relacionamento com a tabela usuariossegue o codigo abaixo e o erro:Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)O driver ODBC não oferece suporte para as propriedades solicitadas./home/inserir_cliente.asp, line 26<%Set conn = Server.CreateObject("ADODB.Connection")conn.Open Application("str_conexao")sql = "INSERT INTO Usuario(nome, idade, estadocivil, sexo, rg, cpf) "sql = sql & "VALUES ('" & nome & "', '" & idade & "', '" & estadocivil & "', '" & sexo & "', '" & rg & "','" & cpf & "') "conn.execute sqlSet rs = Server.CreateObject("ADODB.RecordSet")'sql = "SELECT cod_user, FROM Usuario "sql = "SELECT cli_cod, FROM Usuario cli_codigo = '"& cli_cod &"'"rs.open sql, conn, 1, 1if not rs.eof then sql = "INSERT INTO Endereco( cod_user, endereco, bairro, estado, cidade, telefone)" sql = sql & "VALUES (" & rs("cod_user") & ",'" & endereco & "' , '" & bairro & "' , '" & estado & "' , '" & cidade & "', '" & telefone & "') " conn.execute sqlend ifrs.closeset rs = nothingconn.closeset conn = nothingresponse.redirect "inserir.asp?msg=1"%> ;)

[JucaMaster 0]

Bom vamos por partes, Primeiro.....nos indique a linha que está com erro. Segundo... verifique se a variável cod_cli que está no seu segundo select está vindo comn algum valor pois você não atribuiu nenhum valor nela neste trecho de código...Se a sua intenção é pegar o último registro inserido na tabela usuários, você pode fazer assimSelect top 1 cod_cli from usuarios oder by cod_cli desc...assim ele vai listar o últimno usuário....espero ter ajudado