Rosangela Silveira

Eu estava tentando fazer via include e não estava dando certo, mas consegui fazer criando duas conexões no próprio arquivo. Obrigada

Estou criando um arquivo em ASP que precisa conectar dois bancos de dados. Em um banco de dados (associados) ele irá pesquisar pelo CPF o nome da pessoa e fazer a inclusão deste nome, cpf e os demais dados no outro banco de dados (juridico). Acontece que o sistema não aceita dois includes, só reconhece um banco de dados.

tenta tirar isso: enctype="multipart/form-data"

Usei o código indicado mas deu essa mensagem: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /SasV2/associados/Altera.asp, line 202, column 34 strUpdate = strUpdate & "obito = "#"&obito&"#", " ---------------------------------^ Tirei a aspa dupla inicial e troquei por aspa simples e acusou o erro de Tipo de dados incompatível na expressão de critério novamente

Quando tento atualizar um determinado registro aparece a seguinte mensagem: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /SasV2/associados/Altera.asp, line 258 Observei que o problema está relacionado ao campo data, quando ele está vazio. No Banco de Dados este campo está configurado como Data/Hora (data abreviada) e não requerido. Aqui vai o código completo, não estou conseguindo corrigir este problema. Por favor ajudem. <!--#include file="../conexao_associados.asp" --> <!--#include file="../CheckLogin.asp"--> <% Dim conexao, strSQL, rsSQL, strUpdate, rsUpdate Set conexao = Server.CreateObject("ADODB.Connection") Set rsSQL = Server.CreateObject("ADODB.Recordset") call abreconexao strSQL = " SELECT * FROM tab_associados WHERE " strSQL = strSQL & " tab_associados.cod =" & session.Contents("cod") & "; " set rsSQL=conexao.execute(strSQL) data_pagto = request.form("mes_pagto") & "/01/" & request.form("ano_pagto") cod = request.form("codigo") nome = Trim(request.form("nome")) endereco = request.form("endereco") Zona = request.form("zona") bairro = request.form("bairro") cidade = request.form("cidade") uf = request.form("uf") cep = request.form("cep") ddd_residencia = request.form("ddd_residencia") telefone_residencia = request.form("telefone_residencia") ddd_celular = request.form("ddd_celular") celular = request.form("celular") ddd_recado = request.form("ddd_recado") telefone_recado = request.form("telefone_recado") nome_recados = request.form("nome_recados") email = request.form("email") dtnc = request.form("dtnc") estadocivil = request.form("estadocivil") sexo = request.form("sexo") autoriza_site = request.form("autoriza_site") rg = request.form("rg") cpf = request.form("cpf") conjuge = request.form("conjuge") dtnc_conjuge = request.form("dtnc_conjuge") nome_titular = request.Form("nome_titular") obito = request.Form("obito") categoria = request.form("categoria") opapos = request.form("opapos") beneficio = request.form("beneficio") matricula = request.form("matricula") admissao = request.form("admissao") dtdgsb = request.form("DTDGSB") cargp = request.form("cargo") escolaridade = request.form("escolaridade") profissao = request.form("profissao") dtapis = request.form("DTAPIS") assmed = request.form("assmed") seguro = request.form("seguro") correio = request.form("correio") pagto = data_pagto remunera = request.form("remunera") valor_inss = request.form("valor_inss") valor_compl = request.form("valor_compl") valor_suple = request.form("valor_suple") salario = request.form("salario") valor = request.form("valor") forma_pagto = request.form("forma_pagto") periodicidade = request.form("periodicidade") agencia = request.form("agencia") conta = request.form("conta") administrativo = request.Form("administrativo") financeiro = request.Form("financeiro") institucional = request.Form("institucional") juridico = request.Form("juridico") saude = request.Form("saude") social = request.Form("social") apu = request.form("apu") aesabesp = request.form("aesabesp") associacao_sabesp = request.form("associacao_sabesp") cecres = request.form("cecres") sintaema = request.form("sintaema") sintius = request.form("sintius") engenheiros = request.form("engenheiros") esporte = request.form("esporte") danca = request.form("danca") internet = request.form("internet") leitura = request.form("leitura") musica = request.form("musica") teatro_show = request.form("teatro_show") viagens_turismo = request.form("viagens_turismo") data_alt = request.Form("data_alt") dtad = request.form("dtad") dtds = request.Form("dtds") motivo = request.Form("motivo") insu1 = request.form("insu1") insu2 = request.form("insu2") Login = session.Contents("login") If rsSQL("categoria") = "ATIVO" THEN strUpdate = "UPDATE tab_associados SET " strUpdate = strUpdate & "nome = '" & nome & "', " strUpdate = strUpdate & "endereco = '" & endereco & "', " strUpdate = strUpdate & "zona = '" & zona & "', " strUpdate = strUpdate & "bairro = '" & bairro & "', " strUpdate = strUpdate & "cidade = '" & cidade & "', " strUpdate = strUpdate & "uf = '" & uf & "', " strUpdate = strUpdate & "cep = '" & cep & "', " strUpdate = strUpdate & "ddd_residencia = '" & ddd_residencia & "', " strUpdate = strUpdate & "telefone_residencia = '" & telefone_residencia & "', " strUpdate = strUpdate & "ddd_celular = '" & ddd_celular & "', " strUpdate = strUpdate & "celular = '" & celular & "', " strUpdate = strUpdate & "ddd_recado = '" & ddd_recado & "', " strUpdate = strUpdate & "telefone_recado = '" & telefone_recado & "', " strUpdate = strUpdate & "nome_recados = '" & nome_recados & "', " strUpdate = strUpdate & "email = '" & email & "', " strUpdate = strUpdate & "dtnc = '" & dtnc & "', " strUpdate = strUpdate & "estadocivil = '" & estadocivil & "', " strUpdate = strUpdate & "sexo = '" & sexo & "', " strUpdate = strUpdate & "autoriza_site = '" & autoriza_site & "', " strUpdate = strUpdate & "rg = '" & rg & "', " strUpdate = strUpdate & "cpf = '" & cpf & "', " strUpdate = strUpdate & "conjuge = '" & conjuge & "', " strUpdate = strUpdate & "dtnc_conjuge = '" & dtnc_conjuge & "', " strUpdate = strUpdate & "categoria = '" & categoria & "', " strUpdate = strUpdate & "opapos = '" & opapos & "', " strUpdate = strUpdate & "beneficio = '" & beneficio & "', " strUpdate = strUpdate & "matricula = " & matricula & ", " strUpdate = strUpdate & "admissao = '" & admissao & "', " 'strUpdate = strUpdate & "dtdgsb = '" & DTDGSB & "', " strUpdate = strUpdate & "cargo = '" & cargo & "', " strUpdate = strUpdate & "escolaridade = '" & escolaridade & "', " strUpdate = strUpdate & "profissao = '" & profissao & "', " strUpdate = strUpdate & "dtapis = '" & DTAPIS & "', " strUpdate = strUpdate & "assmed = '" & assmed & "', " strUpdate = strUpdate & "seguro = '" & seguro & "', " strUpdate = strUpdate & "correio = '" & correio & "', " strUpdate = strUpdate & "pagto = '" & data_pagto & "', " strUpdate = strUpdate & "remunera = '" & remunera & "', " strUpdate = strUpdate & "valor_inss = '" & valor_inss & "', " strUpdate = strUpdate & "valor_compl = '" & valor_compl & "', " strUpdate = strUpdate & "valor_suple = '" & valor_suple & "', " strUpdate = strUpdate & "salario = '" & salario & "', " strUpdate = strUpdate & "valor = '" & valor & "', " strUpdate = strUpdate & "forma_pagto = '" & forma_pagto & "', " strUpdate = strUpdate & "periodicidade = '" & periodicidade & "', " strUpdate = strUpdate & "agencia = '" & agencia & "', " strUpdate = strUpdate & "conta = '" & conta & "', " strUpdate = strUpdate & "administrativa = '" & administrativo & "', " strUpdate = strUpdate & "financeiro = '" & financeiro & "', " strUpdate = strUpdate & "institucional = '" & institucional & "', " strUpdate = strUpdate & "juridico = '" & juridico & "', " strUpdate = strUpdate & "saude = '" & saude & "', " strUpdate = strUpdate & "social = '" & social & "', " strUpdate = strUpdate & "apu = '" & apu & "', " strUpdate = strUpdate & "aesabesp = '" & aesabesp & "', " strUpdate = strUpdate & "associacao_sabesp = '" & associacao_sabesp & "', " strUpdate = strUpdate & "cecres = '" & cecres & "', " strUpdate = strUpdate & "sintaema = '" & sintaema & "', " strUpdate = strUpdate & "sintius = '" & sintius & "', " strUpdate = strUpdate & "engenheiros = '" & engenheiros & "', " strUpdate = strUpdate & "esporte = '" & esporte & "', " strUpdate = strUpdate & "danca = '" & danca & "', " strUpdate = strUpdate & "internet = '" & internet & "', " strUpdate = strUpdate & "leitura = '" & leitura & "', " strUpdate = strUpdate & "musica = '" & musica & "', " strUpdate = strUpdate & "teatro_show = '" & teatro_show & "', " strUpdate = strUpdate & "viagens_turismo = '" & viagens_turismo & "', " strUpdate = strUpdate & "data_alt = '" & data_alt & "', " strUpdate = strUpdate & "dtad = '" & dtad & "', " strUpdate = strUpdate & "dtds = '" & dtds & "', " strUpdate = strUpdate & "motivo = '" & motivo & "', " strUpdate = strUpdate & "insu1 = '" & insu1 & "', " strUpdate = strUpdate & "insu2 = '" & insu2 & "', " strUpdate = strUpdate & "Login = '" & login & "' " strUpdate = strUpdate & "WHERE tab_associados.cod = " & cod & " " end if If rsSQL("categoria") <> "ATIVO" THEN strUpdate = "UPDATE tab_associados SET " strUpdate = strUpdate & "nome = '" & nome & "', " strUpdate = strUpdate & "endereco = '" & endereco & "', " strUpdate = strUpdate & "zona = '" & zona & "', " strUpdate = strUpdate & "bairro = '" & bairro & "', " strUpdate = strUpdate & "cidade = '" & cidade & "', " strUpdate = strUpdate & "uf = '" & uf & "', " strUpdate = strUpdate & "cep = '" & cep & "', " strUpdate = strUpdate & "ddd_residencia = '" & ddd_residencia & "', " strUpdate = strUpdate & "telefone_residencia = '" & telefone_residencia & "', " strUpdate = strUpdate & "ddd_celular = '" & ddd_celular & "', " strUpdate = strUpdate & "celular = '" & celular & "', " strUpdate = strUpdate & "ddd_recado = '" & ddd_recado & "', " strUpdate = strUpdate & "telefone_recado = '" & telefone_recado & "', " strUpdate = strUpdate & "nome_recados = '" & nome_recados & "', " strUpdate = strUpdate & "email = '" & email & "', " strUpdate = strUpdate & "dtnc = '" & dtnc & "', " strUpdate = strUpdate & "estadocivil = '" & estadocivil & "', " strUpdate = strUpdate & "sexo = '" & sexo & "', " strUpdate = strUpdate & "autoriza_site = '" & autoriza_site & "', " strUpdate = strUpdate & "rg = '" & rg & "', " strUpdate = strUpdate & "cpf = '" & cpf & "', " strUpdate = strUpdate & "conjuge = '" & conjuge & "', " strUpdate = strUpdate & "dtnc_conjuge = '" & dtnc_conjuge & "', " strUpdate = strUpdate & "nome_titular = '" & nome_titular & "', " strUpdate = strUpdate & "obito = '" & obito & "', " strUpdate = strUpdate & "categoria = '" & categoria & "', " strUpdate = strUpdate & "opapos = '" & opapos & "', " strUpdate = strUpdate & "beneficio = '" & beneficio & "', " strUpdate = strUpdate & "matricula = " & matricula & ", " strUpdate = strUpdate & "admissao = '" & admissao & "', " strUpdate = strUpdate & "dtdgsb = '" & DTDGSB & "', " strUpdate = strUpdate & "cargo = '" & cargo & "', " strUpdate = strUpdate & "escolaridade = '" & escolaridade & "', " strUpdate = strUpdate & "profissao = '" & profissao & "', " strUpdate = strUpdate & "dtapis = '" & DTAPIS & "', " strUpdate = strUpdate & "assmed = '" & assmed & "', " strUpdate = strUpdate & "seguro = '" & seguro & "', " strUpdate = strUpdate & "correio = '" & correio & "', " strUpdate = strUpdate & "pagto = '" & data_pagto & "', " strUpdate = strUpdate & "remunera = '" & remunera & "', " strUpdate = strUpdate & "valor_inss = '" & valor_inss & "', " strUpdate = strUpdate & "valor_compl = '" & valor_compl & "', " strUpdate = strUpdate & "valor_suple = '" & valor_suple & "', " strUpdate = strUpdate & "salario = '" & salario & "', " strUpdate = strUpdate & "valor = '" & valor & "', " strUpdate = strUpdate & "forma_pagto = '" & forma_pagto & "', " strUpdate = strUpdate & "periodicidade = '" & periodicidade & "', " strUpdate = strUpdate & "agencia = '" & agencia & "', " strUpdate = strUpdate & "conta = '" & conta & "', " strUpdate = strUpdate & "administrativa = '" & administrativo & "', " strUpdate = strUpdate & "financeiro = '" & financeiro & "', " strUpdate = strUpdate & "institucional = '" & institucional & "', " strUpdate = strUpdate & "juridico = '" & juridico & "', " strUpdate = strUpdate & "saude = '" & saude & "', " strUpdate = strUpdate & "social = '" & social & "', " strUpdate = strUpdate & "apu = '" & apu & "', " strUpdate = strUpdate & "aesabesp = '" & aesabesp & "', " strUpdate = strUpdate & "associacao_sabesp = '" & associacao_sabesp & "', " strUpdate = strUpdate & "cecres = '" & cecres & "', " strUpdate = strUpdate & "sintaema = '" & sintaema & "', " strUpdate = strUpdate & "sintius = '" & sintius & "', " strUpdate = strUpdate & "engenheiros = '" & engenheiros & "', " strUpdate = strUpdate & "esporte = '" & esporte & "', " strUpdate = strUpdate & "danca = '" & danca & "', " strUpdate = strUpdate & "internet = '" & internet & "', " strUpdate = strUpdate & "leitura = '" & leitura & "', " strUpdate = strUpdate & "musica = '" & musica & "', " strUpdate = strUpdate & "teatro_show = '" & teatro_show & "', " strUpdate = strUpdate & "viagens_turismo = '" & viagens_turismo & "', " strUpdate = strUpdate & "data_alt = '" & data_alt & "', " strUpdate = strUpdate & "dtad = '" & dtad & "', " strUpdate = strUpdate & "dtds = '" & dtds & "', " strUpdate = strUpdate & "motivo = '" & motivo & "', " strUpdate = strUpdate & "insu1 = '" & insu1 & "', " strUpdate = strUpdate & "insu2 = '" & insu2 & "', " strUpdate = strUpdate & "Login = '" & login & "' " strUpdate = strUpdate & "WHERE tab_associados.cod = " & cod & " " end if Set rsUpdate=conexao.execute(strUpdate)