Tratar error!

[NewUser 0]

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%>

[hargon 64]

Qual campo é chave primária na sua tabela GRUPOS?

 

Para tratar erro você deve utilizar o linha On error Resume Next logo acima do comando a ser executado, no caso acima a inserção no banco de dados.

 

Se o erro existir retornará o um valor para error, senão existir, retornará 0.

[NewUser 0]

sem abusar me mostra na prática!

[hargon 64]

Segue um exemplo com o seu próprio código.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit
Dim strgrupo, mensagem
Dim strgr, strselect
Dim stringConexao, stringSQL, objConexao, objRecordSet

strgrupo = 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&"'"

On error Resume Next
if strgrupo<>"" and strgr<>"" and request("submit")="INSERIR" then
set objRecordSet=objconexao.execute(strselect)
if objRecordSet.eof then
set objRecordSet=objConexao.execute(stringSQL)


else
Response.Write "<script>location = 'inserir_grupo.asp';alert('Este GRUPO já está cadastrado.')</script>"
end if
end if

if error <> 0 then
	response.write Err.Description
else
	response.write "ok"
end if
%>

[NewUser 0]

legal!

obrigado!

 

mais uma dúvida:

< menor q

> maior q

- menos

+ mais!

 

Como indico diferente em asp!

[hargon 64]

<>

[NewUser 0]

valeu