Ajuda Com Erros

[odenir]

Ola Galera, olha eu tenho um banco de dados feito no Access 2000. Eu fiz o processo para não deixar duplicar o registro no BD, mas quando eu estou cadastrando os dados no Browser e tem um usuario igual ele me dá um erro de página...

O Codigo está aqui em baixo, por favor pode verificar para mim, ou se voce tiver um outro código mais facil eu agradeceria e muito

-------------------------------------------------------------

<%

Dim nome,endereco

nome = replace(request.form("nome"), "'", "''")

endereco = replace(request.form("endereco"), "'", "''")

cidade = replace(request.form("cidade"), "'", "''")

estado = replace(request.form("estado"), "'", "''")

cep = replace(request.form("cep"), "'", "''")

telefone = replace(request.form("telefone"), "'", "''")

email = replace(request.form("email"), "'", "''")

usuario = replace(request.form("usuario"), "'", "''")

senha = replace(request.form("senha"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")

cnpath="DBQ=" & server.mappath("dbportal.mdb")

DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

Set RS = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT usuario FROM cadprefeitura"

RS.Open sql,DB,3,3

if RS.EOF then

inserir = "INSERT INTO cadprefeitura (nome,endereco,cidade,estado,cep,telefone,email,usuario,senha) " & _

"VALUES ('" & nome & "','" & endereco & "','" & cidade & "','" & estado & "','" & cep & "','" & telefone & "','" & email & "','" & usuario & "','" & senha & "')"

DB.Execute(inserir)

else

response.write "NOME DO USUARIO já EXISTENTE"

end if

RS.Close

Set RS = Nothing

%>------------------------------------------------------------------

Me ajuda por favor, agradeço

Odenir Anholeto

[Lucky]

O teu select não tava testando se o nome já existia... usa assim:

sql = "SELECT usuario FROM cadprefeitura WHERE usuario='"&nome&"'"

[pgmador]

voce precisa fazer um select, como nosso amigo falou.

E depois você tratar este select...

Depois deste select é que você trata se vai cadastrar ou não.

[]´s

Nelson Soares

[odenir]

Muito Obrigado pessoal, deu certinho.. obrigado mesmo