Update - 80040e10

Bom dia a todos( http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif ), estou aqui com um erro que creio seja falta de atenção de minha parte.

Vamos lá.

if Request.QueryString("fn_acao") = "cadastrar" Then QryUpdate = "UPDATE tbl_anuncio SET " ramo_atividade = split(Request("id_ramo_ativ"), ",") for x=0 to ubound(ramo_atividade) contador = contador + 1 next select case contador case "2" QryUpdate = QryUpdate & "id_ramo_ativ02="&ramo_atividade(1)&", " QryUpdate = QryUpdate & "id_ramo_ativ03=0, " QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", " case "3" QryUpdate = QryUpdate & "id_ramo_ativ02="&ramo_atividade(1)&", " QryUpdate = QryUpdate & "id_ramo_ativ03="&ramo_atividade(2)&", " QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", " case "1" QryUpdate = QryUpdate & "id_ramo_ativ02=0, " QryUpdate = QryUpdate & "id_ramo_ativ03=0, " QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", " End select QryUpdate = QryUpdate & "id_regiao = "&Request("id_regiao")&", " QryUpdate = QryUpdate & "id_valor = "&Request("id_valor")&", " QryUpdate = QryUpdate & "desp_agua = '"&Request("desp_agua")&"', " QryUpdate = QryUpdate & "desp_luz = '"&Request("desp_luz")&"', " QryUpdate = QryUpdate & "desp_gas = '"&Request("desp_gas")&"', " QryUpdate = QryUpdate & "desp_iptu = '"&Request("desp_iptu")&"', " QryUpdate = QryUpdate & "desp_condominio = '"&Request("desp_condominio")&"', " QryUpdate = QryUpdate & "desp_aluguel = '"&Request("desp_aluguel")&"', " QryUpdate = QryUpdate & "tempo_contrato = '"&Request("tempo_contrato")&"', " QryUpdate = QryUpdate & "desp_nro_funcionarios = '"&Request("desp_nro_funcionarios")&"', " QryUpdate = QryUpdate & "desp_folha_pagto = '"&Request("desp_folha_pagto")&"', " QryUpdate = QryUpdate & "desp_vt = '"&Request("desp_vt")&"', " QryUpdate = QryUpdate & "desp_vr = '"&Request("desp_vr")&"', " QryUpdate = QryUpdate & "desp_ps = '"&Request("desp_ps")&"', " QryUpdate = QryUpdate & "desp_impostos = '"&Request("desp_impostos")&"', " QryUpdate = QryUpdate & "horario_functo = '"&Request("horario_functo")&"', " QryUpdate = QryUpdate & "movimento_mensal = '"&Request("movimento_mensal")&"', " QryUpdate = QryUpdate & "preco_venda = '"&Request("preco_venda")&"', " QryUpdate = QryUpdate & "lucro_liq = '"&Request("lucro_liq")&"', " QryUpdate = QryUpdate & "percent_lucro = '"&Request("percent_lucro")&"', " if cint(Request("aceita_imovel")) = 1 Then QryUpdate = QryUpdate & "aceita_imovel='1', " else QryUpdate = QryUpdate & "aceita_imovel='0', " End if if cint(Request("aceita_carro")) = 1 Then QryUpdate = QryUpdate & "aceita_carro='1', " else QryUpdate = QryUpdate & "aceita_carro='0', " End if QryUpdate = QryUpdate & "cond_pagto = '"&Request("cond_pagto")&"', " QryUpdate = QryUpdate & "area_total = '"&Request("area_total")&"', " QryUpdate = QryUpdate & "qtd_lugares = '"&Request("qtd_lugares")&"', " QryUpdate = QryUpdate & "nro_vagas = '"&Request("nro_vagas")&"', " QryUpdate = QryUpdate & "preco_avunso = '"&Request("preco_avulso")&"', " QryUpdate = QryUpdate & "preco_lavagem_hora = '"&Request("preco_lavagem_hora")&"', " QryUpdate = QryUpdate & "descricao_estab = '"&Request("descricao_estab")&"', " QryUpdate = QryUpdate & "qtd_acessos='"&Request("qtd_acessos")&"'," QryUpdate = QryUpdate & "dt_venda='"&Request("data_venda")&"'," QryUpdate = QryUpdate & "val_comissao = '"&Request("val_comissao")&"', " if cint(Request("ativo")) = 1 Then QryUpdate = QryUpdate & "ativo='1', " else QryUpdate = QryUpdate & "ativo='0', " End if if cint(Request("oferta")) = 1 Then QryUpdate = QryUpdate & "oferta='1', " else QryUpdate = QryUpdate & "oferta='0', " End if if cint(Request("vendido")) = 1 Then QryUpdate = QryUpdate & "vendido='1', " else QryUpdate = QryUpdate & "vendido='0', " End if QryUpdate = QryUpdate & "obs = '"&Request("obs")&"', " QryUpdate = QryUpdate & "historico = '"&Request("historico")&"', " QryUpdate = QryUpdate & "seguro = '"&Request("seguro")&"', " QryUpdate = QryUpdate & "franquia = '"&Request("franquia")&"', " QryUpdate = QryUpdate & "taxafranquia = '"&Request("taxafranquia")&"', " QryUpdate = QryUpdate & "royalts = '"&Request("royalts")&"', " QryUpdate = QryUpdate & "mediasalarial = '"&Request("mediasalarial")&"', " QryUpdate = QryUpdate & "fgts = '"&Request("fgts")&"', " QryUpdate = QryUpdate & "inss = '"&Request("inss")&"', " QryUpdate = QryUpdate & "taxasindical = '"&Request("taxasindical")&"', " QryUpdate = QryUpdate & "alvara = '"&Request("alvara")&"', " QryUpdate = QryUpdate & "mensalidadecontador = '"&Request("mensalidadecontador")&"', " QryUpdate = QryUpdate & "contatocontador = '"&Request("nometelcontador")&"', " QryUpdate = QryUpdate & "lucratividade = '"&Request("lucratividade")&"', " QryUpdate = QryUpdate & "data_cadastro = '"&Request("data_cadastro")&"'" QryUpdate = QryUpdate & "WHERE id_ref_anuncio = "&Request("id_ref_anuncio")&"" ' id_ref_anuncio não é auto_increment e tb não é a pk da tabela. Response.Write QryUpdate ' Aqui como pode ser observado, esta ok, esta montando a Query normalmente.Linha 123 -> Set ObjUpdate = ObjConn.execute(QryUpdate)

O erro é o seguinte:

Microsoft JET Database Engine error '80040e10' No value given for one or more required parameters. /portal/atualiza_imovel.asp, line 123

Abraços a todos e bom trabalho aos colegas.

Grato,

Leonardo