Checando o campo cpf

[felipefcruz 1]

Eae galera,

 

Preciso de uma ajudinha de vocês. Estou criando um formulário de cadastro, nele contém o campo cpf pra PF, preciso que, quando o usuário tentar cadastrar o mesmo cpf, ele seja redirecionado para uma próxima página informando que o CPF já existe!

Conto com a ajuda...

[xanburzum 169]

um simples If resolve, olha este link, ai esta de uma forma mais detalhada e organizada em como verificar se existe, e se existir redirecionar para outra página com uma mensagem que se fecha após x segundos.

[felipefcruz 1]

Fazendo testes, jájá posto dúvidas ou a resolução.

[xanburzum 169]

só seguir a lógica e os code, altere somente para sua adaptação, e vai funfar na boa

[felipefcruz 1]

Eu coloquei na página que o action que o form chama.

Desejo no código só o redirecionamento da página caso o campo já exista

 

<%

 

dim varcpf, conexao, conDBQ, constring, rsselect, SQLselect

 

varcpf=trim(request.form(“cpf”))

%>

<%

call abreconexao

 

 

 

set rsselect=server.createobject(“ADODB.Recordset”)

 

 

 

SQLselect=”SELECT * FROM CLIENTES WHERE cpf=’”&varcpf&”‘”

 

rsselect.open SQLselect,conexao,1,3

 

if not rsselect.eof then

 

response.redirect(“alert.htm″)

 

set rsselect=nothing

 

end if

 

call fechaconexao

%>

 

Ainda precisa do INSERT? Assim não funfo.

[xanburzum 169]

qual erro ele deu ?

[felipefcruz 1]

Invalid character

 

line 10

 

varcpf=trim(request.form(“cpf”))

-------------------------^

[Mário Monteiro 179]

aparentemente o problema está nas aspas que está usando

 

substitua

 

varcpf=trim(request.form(“cpf”))

 

por

 

varcpf=trim(request.form("cpf"))

 

e veja o que ocorre

[xanburzum 169]

qual o tipo de campo que colocou para varcpf ?

[felipefcruz 1]

Valeu Márcio Monteiro, mas agora o erro já é outro.

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'abreconexao'

 

Não tenho idéia do que seja esse erro agora.

 

 

xanburzum, coloquei cpf :s

[Mário Monteiro 179]

Onde define a abreconexao?

[xanburzum 169]

abreconexao esta dentro do include, e vc deve declarar as variáveis de abreconexao na página onde tem o include

[felipefcruz 1]

Os outros erros já foram solucionados.

 

Agora deu erro nesse "rsselect.open SQLselect,conexao,1,3"

Qual a serventia?

 

<%

call abreconexao

 

 

set rsselect=server.createobject("ADODB.Recordset")

 

 

 

SQLselect="SELECT * FROM CLIENTES WHERE cpf='"&varcpf&"'"

 

rsselect.open SQLselect,conexao,1,3

 

if not rsselect.eof then

 

response.redirect("erro")

 

set rsselect=nothing

 

end if

 

call fechaconexao

%>

 

O erro:

 

ADODB.Recordset error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

[xanburzum 169]

isso dae executa sua string SQL com os parâmetros de cursortype e locktype, cpf esta sendo passado como variável do tipo texto, veja se no bd esta com a mesma tipagem.

Dê um response.write na sua string SQL para ver o que esta sendo passado.

[felipefcruz 1]

Já dei um response.write, já chequei a tipagem no banco, mas continua dando o mesmo erro...

[xanburzum 169]

qual o resultado de sua string SQL ?

Isso é muitas vezes porque você usou nomes "amigáveis" do engine VBS para os valores (tais como adLockReadOnly), em vez dos constantes inteiras (que são os únicos valores compreendidos pelo engine), sem incluir ADOVBS.INC. Então, uma solução rápida muitas vezes pode ser para se certificar de que você incluiu ADOVBS.INC.

[felipefcruz 1]

<!--#include virtual="/adovbs.inc"-->

 

é isso ou tem mais coisas?

[felipefcruz 1]

Pode colocar algum exemplo de como ficaria, por favor.

[xanburzum 169]

você seguiu as recomendações ?

está gerando erro ainda ?

coloque o erro e linha atual

[felipefcruz 1]

"Acho" que segui as recomendações.

 

rsselect.open SQLselect,conexao,1,3

 

ADODB.Recordset error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

 

Continua o mesmo erro...