Evitar Usuario Duplicado

[smez]

tenho um sistema de cadastro de usuario com logum e senha

como que eu faço para evitar que outro usuario se cadastre com o mesmo nome de usuario que já tem no banco de dados, tipo assim,

antes de salvar os dados ele verefica se já exista um nome de usuario cadastro, se existir ele voltar para a tela de cadastro, senão ele faz o cadastro

obrigado...

[X-MAN]

Ola, é facil, você pega o que o usuario inseriu no campo que corresponde ao nome de usuario, tipo:

// pega o que foi inserido no campo que corresponde ao usuario:
campo1=Request.Form("nome_do_campo_no_formulario")


conn....
//Sua conexão, eu uso a base de dados MySql

Set RS = Server.CreateObject("adodb.recordset")
//verifica se há aquele usuario na base de dados
SQL= "select nome_da_coluna_onde_é_inserido_o_nome_do_usuario from tabela where nome_do_campo='"&campo1&"'"
RS.Open SQL,Conn,3,3

// se não chegar ao fim do arquivo, é porque existe, e volta para a pagina_de_cadastro.asp, se chegar ao fim do aquivo, é porque não exixte e vai para a pagina inserindo_cadastro.asp.
If NOT RS.EOF Then
response.Redirect("pagina_de_cadastro.asp")
else
response.Redirect("inserindo_cadastro.asp")
end if

está ai, se tiver duvidas diga!!!!

Abraço!

[smez]

o codigo de cadastro que eu tenho e esse, fica na mesma pagina do formulario, onde que eu coloca a função????

<%

set rs = createobject("adodb.recordset")

set rs.activeconnection = abredb

etapa = request("etapa")

select case etapa

case 1

titulocolunista = request.Form("titulocolunista")

nome = request.Form("nome")

sexo = request.Form("sexo")

relacionamento = request.Form("relacionamento")

nasc = request.Form("nasc")

interesse = request.Form("interesse")

filhos = request.Form("filhos")

humor = request.Form("humor")

estilo = request.Form("estilo")

fumo = request.Form("fumo")

bebo = request.Form("bebo")

animal = request.Form("animal")

moro = request.Form("moro")

cidade_natal = request.Form("cidade_natal")

quem_sou = request.Form("quem_sou")

usuario = request.Form("usuario")

senha = request.Form("senha")

email = request.Form("email")

'INSERE OS DADOS NO BANCO DE DADOS

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

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\home\baladeirossp\databases\baladeiros.mdb'"

insert = "insert into usuario"

insert = insert & "(titulocolunista, nome, sexo, relacionamento, nasc, interesse, filhos, humor, fumo, bebo, animal, moro, cidade_natal, pagina_web, quem_sou, usuario, senha, email)"

insert = insert & " values (" & "'" & Request.Form("titulocolunista") & "', " & "'" & Request.Form("nome") & "', " & "'" & Request.Form("sexo") & "', " & "'" & Request.Form("relacionamento") & "', " & "'" & Request.Form("nasc") & "', " & "'" & Request.Form("interesse") & "', " & "'" & Request.Form("filhos") & "', " & "'" & Request.Form("humor") & "'," & "'" & Request.Form("fumo") & "', " & "'" & Request.Form("bebo") & "', " & "'" & Request.Form("animal") & "', " & "'" & Request.Form("moro") & "', " & "'" & Request.Form("cidade_natal") & "', " & "'" & Request.Form("pagina_web") & "', " & "'" & Request.Form("quem_sou") & "', " & "'" & Request.Form("usuario") & "', " & "'" & Request.Form("senha") & "', " & "'" & Request.Form("email") & "'" & ")"

conexao.Execute(insert)

dim seleciona

seleciona = "select * from usuario where usuario = '"&usuario&"'"

set rs = conexao.execute(seleciona)

Response.Cookies("usuario") = rs("usuario")

Response.Cookies("codigo")

Response.Cookies("usuario")

Session("codigo") = rs("codigo")

Session("foto") = rs("foto")

Session("nome") = rs("nome")

Session("usuario") = rs("usuario")

Session("senha") = rs("senha")

Session("email") = rs("email")

Session("titulocolunista") = rs("titulocolunista")

Session("cadastro") = rs("cadastro")

Session("sexo") = rs("sexo")

Session("relacionamento") = rs("relacionamento")

Session("nasc") = rs("nasc")

Session("cidade") = rs("cidade")

Session("estado") = rs("estado")

Session("cep") = rs("cep")

Session("pais") = rs("pais")

Session("interesse") = rs("interesse")

Session("filhos") = rs("filhos")

Session("humor") = rs("humor")

Session("fumo") = rs("fumo")

Session("bebo") = rs("bebo")

Session("estilo") = rs("estilo")

Session("animal") = rs("animal")

Session("moro") = rs("moro")

Session("cidade_natal") = rs("cidade_natal")

Session("pagina_web") = rs("pagina_web")

Session("quem_sou") = rs("quem_sou")

Session("acesso") = rs("acesso")

Session("paixao") = rs("paixao")

Session("esportes") = rs("esportes")

Session("atividades") = rs("atividades")

Session("livros") = rs("livros")

Session("musica") = rs("musica")

Session("programa_tv") = rs("programa_tv")

Session("filmes") = rs("filmes")

Session("MSN") = rs("MSN")

Session("tel_res") = rs("tel_res")

Session("celular") = rs("celular")

Session("endereco") = rs("endereco")

Session("cidade") = rs("cidade")

Session("estado") = rs("estado")

Session("cep") = rs("cep")

Session("pais") = rs("pais")

Session("atencao") = rs("atencao")

Session("altura") = rs("altura")

Session("olhos") = rs("olhos")

Session("cabelo") = rs("cabelo")

Session("fisico") = rs("fisico")

Session("aparencia") = rs("aparencia")

Response.Redirect("enviar_cadastro.asp?sucesso=s")

end select

%>

[X-MAN]

faz o formulario numa pagina, colocas para qd clicar em Submeter, vai para uma outra pagina que tem primeiramente a verificação se o usuario existe, ai você coloca como esta la em cima, se não tiver volta a pagina de formulario, se tiver, ai sim, você coloca o codigo de Insert

ok?!

Abraço