Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

NewUser

Como não repetir registros?

Por , em ASP Clássico

Recommended Posts

NewUser    0

NewUser
Postado

bom galera oq quero fazer é o seguinte:Tenho um BD de usurário, quero que quando for cria um novo login de acesso se ja existir da uma mensagem de erro pro usuário!como fazer?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

bom, em asp seria assim uma das formas:

no formulário de cadastro você aponta o action do form para a mesma página de cadastro. Ai no inicio da pagina você faz as verificações necessárias e abaixo exibe a mensagem

<%nome=request("nome")telefone=request("telefone")if nome<>"" and telefone<>"" and request("submit")="Gravar" thenset rs=conexao.execute("select * from tabela were nome='"&nome&"'")if rs.eof thenset rsgrava=conexao.execute("insert into tabela (nome,telefone) values('"&nome&"','"&telefone&"')")nome=""telefone=""mensagem="Gravado"elsemensagem="Nome existente no cadastro"end ifend if%><form action"cadastro.asp" method="post"><input name="nome" type="text" value="<%=nome%>"><input name="telefone" type="text" value="<%=telefone%>"><input name="submit" type="submit" value"Gravar"></form><%=mensagem%>
fiz na mão, não testei, mas a lógica é essa. Se você quer o alert dê uma pesquisada no forum de javascript e implemente no asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Tendi, mias eu tenho uma pagina q aponta para outra! como proceder?[a primeira é uma pagina de cadastro com os campos do form.e a ou é pagina inserção que contem o script pegando os texto pelo resquest form! como proceder?Eis o meu CODIGO:

<% Option ExplicitDim strgrupoDim strgrDim stringConexao, stringSQL, objConexao, objRecordSetstrgrupo = Request.Form("nome")strgr = Trim (Request.Form("gr"))  stringConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../data/emails.mdb")&";Persist Security Info=False"  Set objConexao = Server.CreateObject("ADODB.Connection")  objConexao.Open stringConexao  stringSQL = "INSERT INTO grupos (grupo, cod_grupo)"  stringSQL = stringSQL & "VALUES ('"& strgrupo &"', '"& strgr &"')"  Set objRecordSet = objConexao.Execute(stringSQL)   %><html xmlns="http://www.w3.org/1999/xhtml"><body><p class="title2"><strong>Novo Grupo Inserido com sucesso !!!</strong></p><table width="184" height="38" border="0" cellpadding="0" cellspacing="0">  <tr>    <td width="103" height="19" class="text2"><a href="inserir_grupo.asp">Nova Inserção </a></td>    <td width="81" class="text2"><a href="java script:window.close();">Sair</a></td>  </tr>  <tr>    <td height="19"> </td>    <td> </td>  </tr></table></body></html>

VALEU!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

vamos supor que você tenha a página cadastro.asp e verifica.aspem cadastro.asp você escolhe um local para exibir a mensagem, tipo dentro de um <table> você coloca isso<%=request.querystring("mensagem")%>ate ai beleza, agora vamos a outra parteno arquivo verifica.asp tem todo o código para ver se existe o email e no final dela, logo depois que executa a query de SELECT você faz um redirect de acordo com a resposta do recordsetif rs.eof then'faz a query pra gravar no banco de dados e depois redireciona pra exibir a mensagemresponse.redirect("cadastro.asp?mensagem=Cadastro realizado") elseresponse.redirect("cadastro.asp?mensagem=Email existe") end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

utilizando o exemplo que passei anteriormente:

 

verifica.asp

<%nome=request("nome")telefone=request("telefone")if nome<>"" and telefone<>"" and request("submit")="Gravar" thenset rs=conexao.execute("select * from tabela were nome='"&nome&"'")if rs.eof thenset rsgrava=conexao.execute("insert into tabela (nome,telefone) values('"&nome&"','"&telefone&"')")response.redirect("cadastro.asp?mensagem=Gravação OK")elseresponse.redirect("cadastro.asp?mensagem=Nome já cadastrado&nome="&nome&"&telefone="&telefone&"")end ifend if%>
cadastro.asp

<%nome=request("nome")telefone=request("telefone")mensagem=request("mensagem")%><form action"verifica.asp" method="post"><input name="nome" type="text" value="<%=nome%>"><input name="telefone" type="text" value="<%=telefone%>"><input name="submit" type="submit" value"Gravar"></form><%=mensagem%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Bom esta parte concegui, agora tenho outra dúvida!

tenho um BD e nele tenho uma tabela chamada emails, dentro desta tabela tem alguns campos:

Email - grupo - fone acesso etc...

Quando cadastro um novo email tenho q escolher em q grupo ele vai entrar, oq quero é q quando for inserir se eu digitar um grupo q ainda não tenho cido criado q d uma msg de erro parecido com esta!

Atulmente quando isso acontece da um erro no browser!

VLW!!!

 

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% Option ExplicitDim strgrupo, mensagemDim strgr, strselectDim stringConexao, stringSQL, objConexao, objRecordSetstrgrupo = Request.Form("nome")strgr = Trim (Request.Form("gr"))stringConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&("d:\Webs\inbram\data\emails.mdb")&";Persist Security Info=False"  Set objConexao = Server.CreateObject("ADODB.Connection")objConexao.Open stringConexao  stringSQL = "INSERT INTO grupos (grupo, cod_grupo)"  stringSQL = stringSQL & "VALUES ('"& strgrupo &"', '"& strgr &"')"  strselect = "select * from grupos Where grupo='"&strgrupo&"'"if strgrupo<>"" and strgr<>"" and request("submit")="INSERIR" thenset objRecordSet=objconexao.execute(strselect)if objRecordSet.eof thenset objRecordSet=objConexao.execute(stringSQL)elseResponse.Write "<script>location = 'inserir_grupo.asp';alert('Este GRUPO já está cadastrado.')</script>"end ifend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito