Problemas para alterar o BD

Olá, agora o problema é outro.. eu até vi que no fórum existe uma pessoa com o mesmo problema, porém fiz o que falaram pra fazer, e não foi resolvido... então posto o código como eu alterei do original(somente foi alterado os nomes de tabela, BD, campo de formulários, variáveis e campo do BD)

<%'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, strQuery, sql_query, RsQuery, campo, sql, autonumDim ID, area, funcao, faixa, descricao, empresa, endereco, bairro, cidade, estado, telefone, email, senha, ObjRs'Atrubuição dos valores as respectivas variáveisarea = Request.Form("area")funcao = Request.Form("funcao")faixa = Request.Form("faixa")descricao = Request.Form("descricao")empresa = Request.Form("empresa")endereco = Request.Form("endereco")bairro = Request.Form("bairro")cidade = Request.Form("cidade")estado = Request.Form("estado")telefone = Request.Form("telefone")email = Request.Form("email")senha = Request.Form("senha")if email = "" thenemail = " "end ifif senha = "" thensenha = " "end ifid = Request.Form("id")'Cria o objeto RecordSet e atribui a variávelSet objConn =  Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & Server.MapPath("vagas.mdb") & ";Driver={Microsoft Access Driver (.mdb)}","username","password"strQuery = "UPDATE vagas SET area = '"&area&"', funcao='"&funcao&"', faixa='"&faixa&"', descricao='"&descricao&"', empresa='"&empresa&"', endereco = '"&endereco&"', bairro = '"&bairro&"', cidade = '"&cidade&"', estado = '"&estado&"', telefone = '"&telefone&"'  email = '"&email&"', senha = '"&senha&"'   WHERE id ="&id'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executaa inserção no Banco de DadosSet ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothingif err = 0 Then'Redireciona o usuário caso não tenha ocorrido erro na transaçãoresponse.redirect "ok.htm"ElseResponse.Write "ocorreu algo"end if%>

Na página para alterar os dados, eu peço ID, e os outros dados..

Não há erro escrito, o que fala é: Ocorreu algo, ou seja: IF esta errado..................