tenho uma pagina que busca os dados e e outra que mostra os dados para alterar e a ultima que faz o update no bd, mas ai é que dá erro, pois ela não altera os dados mas não mostra a msg de erro o que preciso é que o sistema só altere os registros que estiverem com mesmo ID e RE
<% Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim db, StrSql, rs, re, id Dim datarevisao, , abertura, levantamentonecessidades, conhecimentotecnicos 'Atrubuição dos valores as respectivas variáveis re = request.querystring("re") if re="" then re= session("re") end if id = request.querystring("id") if id="" then id= Session("id") end if datarevisao = Request.Form("datarevisao") abertura = Request.Form("abertura") levantamentonecessidades = Request.Form("levantamentonecessidades") conhecimentotecnicos = Request.Form("conhecimentotecnicos") 'Cria o objeto RecordSet e atribui a variável Set db = Server.CreateObject("ADODB.Connection") db.Open "DBQ=C:\inetpub\wwwroot\monitoria_online\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}" StrSql = "UPDATE monitorias SET datarevisao='"&datarevisao&"', abertura='"&abertura&"', levantamentonecessidades='"&levantamentonecessidades&"', conhecimentotecnicos='"&conhecimentotecnicos&"', WHERE re= "& re &" And id= "&id 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados Set Rs = db.Execute(StrSql) 'Fecha o Objeto de Conexão db.close '"APAGA" qualquer instancia que possa ter no objeto Rs e db Set Rs = Nothing Set db = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.write "sucesso" end if %>