Ayuda con un formulario y db?

[clak]

Hola amigos necesito una ayudita, hice una cosilla que agrega nombres desde un formulario pero no quiero que se repitan los mismos nombres y puse de llave principal el campo de nombres, bueno ahora cuando ingreso un nombre repetido me sale un error algo asi:

Código:

Microsoft JET Database Engine error '80040e21' 

The changes you requested to the table were not successful
 because they would create duplicate values in the index, 
primary key, or relationship. Change the data in the field 
or fields that contain duplicate data, remove the index, or
 redefine the index to permit duplicate entries and try again. 

/cyber/add.asp, line 26

Osea eso me dice que ta existe el nombre, pero ahora como le puedo hacer para que me salga en vez de eso algo que diga, LO SIENTO ESE NOMBRE YA SE ENCUENTRA EN LA DB?? porfas si alguien sabe ayudeme, saludos...

[u_goldman]

A ver si con un error handler...

Pon antes de esa linea 26 lo siguiente

On error resume next
'Aqui tu código de incersión a la DB
If err.number <> 0 Then
Response.write("Lo sentimos, el nombre que elegiste ya se encuentra registrado en nuestro sistema")
Response.End
End If

Salu2,

[clak]

gracias men lo probare a ver si funciona, saludos...

[clak]

Creo que no funciono men, checa este es el código:

Código:

<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("dbx.mdb"))
sqltext = "SELECT * FROM mails"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim usermail
usermail = Request.Form("usermail")

if usermail ="" or usermail ="" then
error = "<center><font face=verdana size=2><b>Debe completar todos los datos correctamente.</b></font></center>"
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("mail") = usermail
rst.update
On error resume next

'Terminamos e imprimimos un mensaje
Response.Write "<br><br><br><font face=verdana size=3><b>¡Gracias por tu Registro!</b></font><br><br>"

%>

Si me puedes orientar para que jale? o alguien sabe como de otra forma? saludos...

[u_goldman]

Trata así:

Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("dbx.mdb"))


'Recogemos los datos y validamos que no haya ningun campo vacio
dim usermail
usermail = Request.Form("usermail")

if usermail ="" or usermail ="" then
error = "<center><font face=verdana size=2><b>Debe completar todos los datos correctamente.</b></font></center>"
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

Set rs= Server.CreateObejct("ADODB.Recordset")
strSQL= "SELECT * FROM mails WHERE mail='" & usermail & "'"
rs.Open strSQL, cnn, 3, 3

If rs.EOF Then
rs.Close
Cnn.Execute("INSERT INTO mails(mail) VALUES('"&usermail&"')")
Else
rs.Close
'Mensaje
End If
Set rs= Nothing
'Terminamos e imprimimos un mensaje
Response.Write "<br><br><br><font face=verdana size=3><b>¡Gracias por tu Registro!</b></font><br><br>"