Pessoal, tenho o código abaixo... e gostaria de saber como fazer para pesquisar se o registro novo existe, antes de inserir. Caso existe não permitir a inclusão, caso contrário, incluí-lo. []'s Fabí icq: 326555706 <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection, cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio cd_terminal = Request.Form("cd_terminal") ds_terminal = Request.Form("ds_terminal") cd_operador = Request.Form("cd_operador") ds_operador = Request.Form("ds_operador") ds_titulo_relatorio = Request.Form("ds_titulo_relatorio") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "INSERT INTO Cadastro_Terminal_Operador (cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio) VALUES ('"&cd_terminal&"','"&ds_terminal&"','"&cd_operador&"','"&ds_operador&"', '"&ds_titulo_relatorio&"' )" On error Resume Next Set ObjRs = objConn.Execute(strQuery) objConn.close Set objRs = Nothing Set objConn = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "sucesso.asp" Else response.write( "Não foi possível realizar a operação, verifique os dados!") end if %>
