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
%>
