problema com verificação de campos

[fpimenta 0]

ola pessoal, estou fazendo um formulario para cadastro de departamentos da minha pagina de suporte. quando eu envio o formulario gostaria que ele verificasse o nome do departamento e o email se ja ecadastrados. se ja estivessem cadastrados a pagina teria que exibir uma mensagem em vbscript

 

 

<%

'abrir conexao

set conexao = server.CreateObject("adodb.connection")

'abrir o banco

conexao.open "dbsuporte","",""

'criar variaveis

dim nomedepto

dim emailrespdepto

'recebendo valores do formulario

nomedepto = request.form("txtnomedepto")

emailrespdepto = request.form("txtemailrespdepto")

'setando o comando inserir

inserir = "Insert into tbdepto(nomedepto,emailrespdepto)" & _

"VALUES ('" & nomedepto & "','" & emailrespdepto & "')"

'setando o comando consultar

consultar = "select * from tbdepto"

 

set verifica = conexao.execute(consultar)

if request.form("txtnomedepto") = verifica("nomedepto") then

%>

<script language="VBSCRIPT">

msgbox"O Nome do Departamento e o Email do responsável pelo Departamento já se encontram cadastrados." & _

"Favor consultar a lista de Departamentos."

</script> <%

else

'executar o comando inserir

set grava = conexao.execute(inserir)

'response.Redirect("incluir_depto.htm")

end if

'redirecionar a pagina

 

 

 

%>

[DackAle 0]

SQL="SELECT * FROM admin WHERE email='" & email & "' OR usuario='" & usuario & "'"RS.open SQL,ConexaoSet RS = Conexao.execute(SQL)If NOT RS.EOF Thenresponse.redirect "erro_01.asp"end ifRS.Close

Se faz um SELECT usando WHERE e o nome do campo e o valor, dai o "If not.rs.eof the" significa tipo "se o record set NÃO chegar no final do arquivo então" quer dizer que se ele não chegar é porque ele encontrou os dados, dai você pode mandar ele redirecionar para uma pgina ou voc~e escreve algo na tela igual você esta fazendo, mas se ele não encontrar ele continua lendo o script e vai inserir tudo OK =)

Abraços