Como Evitar A Entrada De Dados Duplicados

[Guest - Fábio -]

Oi

Gostaria de saber se o código abaixo que encontrei em um site está escrito corretamente para evitar a entrada de dados duplicados em uma tabela, caso esteje certo, como arrumar a linha que esta dando erros, segue abaixo o código e a mensagem de erro:

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'OrderID ='.

/catvi/Chapter5/boleto_log.asp, line 286

Código:

<%

If fIsDuplicate(vCriteria) Then

Response.Redirect = "carrinho.asp"

Else

Execute insert

End If

%>

<%Function fIsDuplicate(vCriteria)

Dim rsCheck

Set rsCheck = Server.CreateObject("ADODB.Recordset")

With rsCheck

.ActiveConnection = MM_catvi_STRING

.Source = "SELECT * FROM orders WHERE OrderID =" & "'"(vCriteria)"'" &

.CursorType = 0

.CursorLocation = 2

.LockType = 1

.Open() ----- linha 286 -----

If .Eof Then

'The value is already used in this field in the table

fIsDuplicate = True

Else

'Record isn't present in database so ok to use

fIsDuplicate = False

End If

.Close()

Set rsCheck = nothing

End With

End Function

%>

[ViniciusJau]

e ai Fábio...

dê mais alguns detalhes pra gente poder te ajudar... é umc arrinho de comprar,

porqeu você está usando esse monte de aspas

"'"(vCriteria)"'"

de onde você recebe esse valor vcriteria ?