Problemão com Update

[Herycles 0]

Preciso de ajuda.. please..Nao sei qual o motivo pra nao funcionar esse codigo, que funciona para outras tabelas...

Dim objConn, strQueryDim Codigo, DataAtualizacao, Titular, Matricula, Ativo, Codinome, Admissao, Categoria, Tipo, DescricaoDim NomeCompleto, Foto, Email, EmailProprio, Endereco, Cidade, Estado, CEP, TelefoneResidencial, TelefoneCelularDim DataNascimento, Naturalidade, Identidade, ExpedID, CPF, CNH, TipoSangue, TamCamisa, EstadoCivilDim Profissao, NomeEmpresa, EnderecoComercial, BairroComercial, CEPComercial, TelefoneComercial, Fax, AtividadeDim ObjRsDataAtualizacao = Request.Form("DataAtualizacao")Titular = Request.Form("Titular")Matricula = Request.Form("Matricula")Ativo = Request.Form("Ativo")Codinome = Request.Form("Codinome")Admissao = Request.Form("Admissao")Categoria = Request.Form("Categoria")Tipo = Request.Form("Tipo")Descricao = Request.Form("Descricao")if Descricao = "" then Descricao = " "end ifNomeCompleto = Request.Form("NomeCompleto")Foto = Request.Form("Foto")Email = Request.Form("Email")EmailProprio = Request.Form("EmailProprio")Endereco = Request.Form("Endereco")Cidade = Request.Form("Cidade")Estado = Request.Form("Estado")CEP = Request.Form("CEP")TelefoneResidencial = Request.Form("TelefoneResidencial")TelefoneCelular = Request.Form("TelefoneCelular")DataNascimento = Request.Form("DataNascimento")Naturalidade = Request.Form("Naturalidade")Identidade = Request.Form("Identidade")ExpedID = Request.Form("ExpedID")CPF = Request.Form("CPF")CNH = Request.Form("CNH")TipoSangue = Request.Form("TipoSangue")TamCamisa = Request.Form("TamCamisa")EstadoCivil = Request.Form("EstadoCivil")Profissao = Request.Form("Profissao")NomeEmpresa = Request.Form("NomeEmpresa")EnderecoComercial = Request.Form("EnderecoComercial")BairroComercial = Request.Form("BairroComercial")CEPComercial = Request.Form("CEPComercial")TelefoneComercial = Request.Form("TelefoneComercial")Fax = Request.Form("Fax")Atividade = Request.Form("Atividade")if Atividade = "" then Atividade = " "end ifCodigo = Request.Form("Codigo")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...strQuery = "UPDATE cadastro SET "strQuery = strQuery + "Codinome = '"&Codinome&"', "strQuery = strQuery + "Tipo = '"&Tipo&"', "strQuery = strQuery + "Descricao = '"&Descricao&"', "strQuery = strQuery + "NomeCompleto = '"&NomeCompleto&"', "strQuery = strQuery + "Foto = '"&Foto&"', "strQuery = strQuery + "Email = '"&Email&"', "strQuery = strQuery + "EmailProprio = '"&EmailProprio&"', "strQuery = strQuery + "Endereco = '"&Endereco&"', "strQuery = strQuery + "Cidade = '"&Cidade&"', "strQuery = strQuery + "Estado = '"&Estado&"', "strQuery = strQuery + "CEP = '"&CEP&"', "strQuery = strQuery + "TelefoneResidencial = '"&TelefoneResidencial&"', "strQuery = strQuery + "TelefoneCelular = '"&TelefoneCelular&"', "strQuery = strQuery + "DataNascimento = '"&DataNascimento&"', "strQuery = strQuery + "Naturalidade = '"&Naturalidade&"', "strQuery = strQuery + "Identidade = '"&Identidade&"', "strQuery = strQuery + "ExpedID = '"&ExpedID&"', "strQuery = strQuery + "CPF = '"&CPF&"', "strQuery = strQuery + "CNH = '"&CNH&"', "strQuery = strQuery + "TipoSangue = '"&TipoSangue&"', "strQuery = strQuery + "TamCamisa = '"&TamCamisa&"', "strQuery = strQuery + "EstadoCivil = '"&EstadoCivil&"', "strQuery = strQuery + "Profissao = '"&Profissao&"', "strQuery = strQuery + "NomeEmpresa = '"&NomeEmpresa&"', "strQuery = strQuery + "EnderecoComercial = '"&EnderecoComercial&"', "strQuery = strQuery + "BairroComercial = '"&BairroComercial&"', "strQuery = strQuery + "CEPComercial = '"&CEPComercial&"', "strQuery = strQuery + "TelefoneComercial = '"&TelefoneComercial&", "strQuery = strQuery + "Fax = '"&Fax&"', "strQuery = strQuery + "Atividade = '"&Atividade&"' "strQuery = strQuery + "WHERE Codigo ="&CodigoSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothing

Quando tento fazer o update, surge o erro...

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''32147600, Fax = '214 7604', Atividade = 'Diretor Administrativo e Financeiro -Empresa de Engenharia especializada na área Sanitária e Rodoviária. ' WHERE Codigo =1'. /wmaster/socios_altera.asp, line 102

Todos os campos da tabela aceitam valores de comprimento zero e não está sendo inserido dado de tipo diferente.. o que pode ser???Agradeço qualquer ajuda..

[Mário Monteiro 179]

Dê um response.write na strQuery para ver o que está retornando...

faça isso e poste aqui tb...

 

deve ter alguma besteirinha errada...