[Resolvido] Verificação de dado existente SQL Server / ASP

Gente, tenho um formulario (RelMedFormulario.asp) o usuario insere os dados lá tals... que eh gravado no SQL Server.

Tem dois campos (NUMERORM e NUMEROAMOSTRA) que são unicos... ou seja apesar do cara criar esse numero ele tem que criar um numero que não exista ainda.

Feito o preenchimento do formulário eu envio os dados preenchidos por parametro para um asp (RelMedInserir.asp).

Eu preciso pegar esses dois parametros "unicos" (NUMERORM e NUMEROAMOSTRA) e antes de inserir fazer uma busca na tabela para ver se são unicos mesmo.

Pois atualmente quando o cara digita um dado que ja tem ele da o seguinte erro:

Microsoft OLE DB Provider for SQL Server error '80040e2f'

 

Violation of UNIQUE KEY constraint 'UQ__ContEng_RelMedic__359DCDD0'. Cannot insert duplicate key in object 'ContEng_RelMedicao'.

 

/engenharia/RelMedInserir.asp, line 93

Segue o basico do meu asp (RelMedInserir.asp) que recebe os parametros e insere no banco.

***** aqui preciso de algo para fazer a verificação dos dados antes de inserir.

[....]
<%
'________________________________________________________________________________________________
'Instanciamos e abrimos nosso objeto conexão
'________________________________________________________________________________________________

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("Gestao_conn")

'________________________________________________________________________________________________
'Recolhemos os valores do formulário
'________________________________________________________________________________________________

NumRM = Request.Form("RequiredNumero RM")
Peca= Request.Form("Peca")
Categoria = Request.Form("Categoria")
Tipo = Request.Form("RequiredTipo")
NumPeca = Request.Form("RequiredNumero Peca")
Qtde = Request.Form("RequiredQtde")
NumAmostra = Request.Form("RequiredNumero Amostra")
Aplicacao = Request.Form("Aplicacao")
Cliente = Request.Form("RequiredCliente")
Inspetor = Request.Form("RequiredInspetor")
Solicitante = Request.Form("RequiredSolicitante")
Data = Request.Form("RequiredData")
ECN = Request.Form("RequiredECN")
StatusDesenho = Request.Form("Status Desenho")
Departamento = Request.Form("RequiredDepartamento")
Observacao = Request.Form("RequiredObservacao")

'________________________________________________________________________________________________
'Insiro no banco
'________________________________________________________________________________________________

sSQL="Insert Into ContEng_RelMedicao (Codigo, NumRM, Peca, Categoria, Tipo, NumPeca, Qtde, NumAmostra, Aplicacao, Cliente, Inspetor, Solicitante, Data, ECN, StatusDesenho, Departamento, Observacao) values ('" & Varx & "','" & NumRM & "','" & Peca & "','" & Categoria & "', '" & Tipo & "','" & NumPeca & "','" & Qtde & "','" & NumAmostra & "','" & Aplicacao & "','" & Cliente & "','" & Inspetor & "','" & Solicitante & "',convert(smalldatetime,'" & Data & " ',103),'" & ECN & "','" & StatusDesenho & "','" & Departamento & "','" & Observacao & "')"

'________________________________________________________________________________________________
'Executamos a ordem
'________________________________________________________________________________________________

set RS = Conn.Execute(sSQL)
%>

<div align="center"><font size = 2 color = "#666666">ADICIONAR NOVO REGISTRO ?</div><br>
<div align="center"><font size = 2><a href="RelMedFormulario.asp">Sim</a>
<font size = 2><a href="RelMed.asp">Não</a></div>

<%
'END IF

'________________________________________________________________________________________________
'Fechamos o sistema de conexão
'________________________________________________________________________________________________

Conn.Close
%>

 </BODY>
</HTML>