será que é tão difícil assim?

[eff 0]

Olá pessoal.Gostaria de saber como evito que um usuário se registre duas vezes. Queria usar como filtro o CPF. O código para inserção na base é esse aí embaixo. Podem me ajudar??<%Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\dados\banco.mdb;"Set Conexao = Server.CreateObject ("ADODB.Connection")Conexao.Open Caminho%><%botaoAcionado = Request.Form ("botao")If botaoAcionado = "cadastrar" Thennome = Request.Form ("nome")email = Request.Form ("email")area = Request.Form ("area")pretensao = Request.Form ("pretensao")cpf = Request.Form ("cpf")endereco = Request.Form ("endereco")cep = Request.Form ("cep")bairro = Request.Form ("bairro")cidade = Request.Form ("cidade")estado = Request.Form ("estado")prefixo = Request.Form ("prefixo")telefone = Request.Form ("telefone")nascimento = Request.Form ("nascimento")qualificacoes = Request.Form ("qualificacoes")empresa01 = Request.Form ("empresa01")telefone01 = Request.Form ("telefone01")cargo01 = Request.Form ("cargo01")periodo01 = Request.Form ("periodo01")resumo01 = Request.Form ("resumo01")empresa02 = Request.Form ("empresa02")telefone02 = Request.Form ("telefone02")cargo02 = Request.Form ("cargo02")periodo02 = Request.Form ("periodo02")resumo02 = Request.Form ("resumo02")redacao = Request.Form ("redacao")'Grava o registroSet rsCadastro = Server.CreateObject ("ADODB.RecordSet")sqlCadastro = "SELECT * FROM curriculo"rsCadastro.Open sqlCadastro, Conexao, 1, 2rsCadastro.AddNewrsCadastro ("nome") = nomersCadastro ("cpf") = cpfrsCadastro ("area") = arearsCadastro ("pretensao") = pretensaorsCadastro ("email") = emailrsCadastro ("endereco") = enderecorsCadastro ("cep") = ceprsCadastro ("bairro") = bairrorsCadastro ("cidade") = cidadersCadastro ("estado") = estadorsCadastro ("prefixo") = prefixorsCadastro ("telefone") = telefonersCadastro ("nascimento") = nascimentorsCadastro ("qualificacoes") = qualificacoesrsCadastro ("empresa01") = empresa01rsCadastro ("telefone01") = telefone01rsCadastro ("cargo01") = cargo01rsCadastro ("periodo01") = periodo01rsCadastro ("resumo01") = resumo01rsCadastro ("empresa02") = empresa02rsCadastro ("telefone02") = telefone02rsCadastro ("cargo02") = cargo02rsCadastro ("periodo02") = periodo02rsCadastro ("resumo02") = resumo02rsCadastro ("redacao") = redacaorsCadastro ("data_cadastro") = Now()rsCadastro.UpdatersCadastro.CloseSet rsCadastro = NothingConexao.CloseSet Conexao = NothingResponse.Redirect ("thanks_curriculo.htm")Conexao.CloseSet Conexao = NothingEnd If%>

[Salgado 4]

Tente trocar a gravação por essa

'Grava o registro

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

sqlCadastro = "SELECT * FROM curriculo Where cpf="& cpf &";"

rsCadastro.Open sqlCadastro, Conexao, 1, 2

 

If rsCadastro.EOF Then

rsCadastro.AddNew

rsCadastro ("nome") = nome

rsCadastro ("cpf") = cpf

rsCadastro ("area") = area

rsCadastro ("pretensao") = pretensao

rsCadastro ("email") = email

rsCadastro ("endereco") = endereco

rsCadastro ("cep") = cep

rsCadastro ("bairro") = bairro

rsCadastro ("cidade") = cidade

rsCadastro ("estado") = estado

rsCadastro ("prefixo") = prefixo

rsCadastro ("telefone") = telefone

rsCadastro ("nascimento") = nascimento

rsCadastro ("qualificacoes") = qualificacoes

rsCadastro ("empresa01") = empresa01

rsCadastro ("telefone01") = telefone01

rsCadastro ("cargo01") = cargo01

rsCadastro ("periodo01") = periodo01

rsCadastro ("resumo01") = resumo01

rsCadastro ("empresa02") = empresa02

rsCadastro ("telefone02") = telefone02

rsCadastro ("cargo02") = cargo02

rsCadastro ("periodo02") = periodo02

rsCadastro ("resumo02") = resumo02

rsCadastro ("redacao") = redacao

rsCadastro ("data_cadastro") = Now()

rsCadastro.Update

 

rsCadastro.Close

Set rsCadastro = Nothing

Conexao.Close

Set Conexao = Nothing

 

Response.Redirect ("thanks_curriculo.htm")

 

Else

Response.Write("CPF Já Cadastrado!!!")

End If

End If

%>

Ela ta verificando antes de inserir no BD!

[eff 0]

valeu heim Salgado!Funcionou redono, só vou trocar o response.write por um redirect.valeu mesmo!!!