Problema

[shumi 0]

Boa tarde!Estou finalizando meu programinha ele é assim:O usuário vai la e se cadastra no cadastro todos os campos são obrigatórios(JavaScript) e quando ele acaba de se cadastrar eé enviado um e-mail para ele com a confirmação de cadastro...Tem também a parte da administração com senha antes de entrar e quando o administrador entra tem filtros para ficar mais fácil a consulta....Mas o Problema é o seguinte....O Programinha aceita o mesmo CPF, por exemplo ele aceita que a pessoa se cadastre mais de uma vez egostaria de barrar isso!!!!!Como faço? alguem pode me ajudar????Muito Obrigado!!ShUmI

[Mário Monteiro 179]

tem que selecionar antes de gravar tiozinhoai voce verifica se ja tem algum cpf igual cadastrado

[shumi 0]

tem que selecionar antes de gravar tiozinhoai voce verifica se ja tem algum cpf igual cadastrado

Como assim??? no meu cadastro eu tenho que colocar alguma coisa ou na verificação???

[Mário Monteiro 179]

na pagina que vai inserir os dadosantes de inserir voce testaRS = CONN.EXECUTE("SELECT CPF FROM TABELA WHERE CPF = '" & request("CPF") & "'")IF RS.EOF THENINSERT aquiELSEja tem cadastro com este CPFEND IF

[shumi 0]

na pagina que vai inserir os dadosantes de inserir voce testaRS = CONN.EXECUTE("SELECT CPF FROM TABELA WHERE CPF = '" & request("CPF") & "'")IF RS.EOF THENINSERT aquiELSEja tem cadastro com este CPFEND IF

carinha aonde eu errei???tentei mudar algumas coisas, mas ta dando erro!!!

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("convencao.mdb")Conexcao.open%><%Dim Conexcao,sql,rs,verifica,nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim,blnEnvioEmail,intRetorno,varcodnome = Request.Form("nome")razao = Request.Form("razao")fantasia = Request.Form("fantasia")rg = Request.Form("rg")cpf = Request.Form("cpf")cidpart = Request.Form("cidpart")estado = Request.Form("estado")sexo = Request.Form("sexo")telefone = Request.Form("telefone")celular = Request.Form("celular")email = Request.Form("email")consultor = Request.Form("consultor")cargo = Request.Form("cargo")manequim = Request.Form("manequim")%><%Response.Expires = 0%><%RS = Conexcao.execute("SELECT cpf FROM cadastro WHERE cpf = '" & request("cpf") & "'")IF RS.EOF THENsSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidpart &"','"& estado &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"set RS = Conexcao.Execute(sSQL)ELSECPF Já cadastrado!END IF%><%Set RS=Conexcao.Execute(sSQL,intRetorno)set RS=nothingConexcao.closeSet Conexcao=nothing	If intRetorno > 0 Then		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "rodrigo@lavyflowers.com.br"			objCDO.Cc= "rodrigo2@lavyflowers.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "Confirmação de presença"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidpart			sMsg = sMsg & "<br>Estado: " & estado			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>Consultor: " & consultor			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Usuario que cadastrou: " & varcod			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing				Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "Newstyle <rodrigo@lavyflowers.com.br>"			objCDO2.Subject = "Confirmação de presença convenção TIM"			sMsg2 = sMsg2 & "Confirme os dados abaixo"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidpart			sMsg2 = sMsg2 & "<br>Estado: " & estado			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>Consultor: " & consultor			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br>Qualquer duvida ou alteração ligue para XXXXX-XXXXX"			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing				If err.number = "0" Then			blnEnvioEmail = True		End If		On Error Goto 0	End If%><html><head><title>Contamos com sua presença!!!!</title></head><body bgcolor="#9f0203"  link="#9f0203" alink="#9f0203" ulink="#9f0203" blink="#9f0203"><center><table width="75%" border="0">  <tr> 	<td><div align="center"><img src=logo-TIM-2005.gif width="300" height="119"></div></td>  </tr></table></center><center>  <table width="75%" border="0">	<tr>	<td><div align="center">		  <p> </p>		  <p> </p>		  <p><font color="#FFFFFF" size="6">Muito Obrigado por se cadastrar!</font></p>		<p> </p>		<p> </p>		<p><a href="cadastro.asp"><img src=voltar.gif width="178" height="48"></a></p>	  </div></td>  </tr></table></center><p> </p></body></html>

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[Mário Monteiro 179]

qual o erro agora??? e onde???

[shumi 0]

qual o erro agora??? e onde???

o erro ta aki la nakele eskema do cpf vo comenta aonde esta o erro...

<%Dim Conexcao,sql,rs,verifica,nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim,blnEnvioEmail,intRetorno,varcodnome = Request.Form("nome")razao = Request.Form("razao")fantasia = Request.Form("fantasia")rg = Request.Form("rg")cpf = Request.Form("cpf")cidpart = Request.Form("cidpart")estado = Request.Form("estado")sexo = Request.Form("sexo")telefone = Request.Form("telefone")celular = Request.Form("celular")email = Request.Form("email")consultor = Request.Form("consultor")cargo = Request.Form("cargo")manequim = Request.Form("manequim")%><%Response.Expires = 0%><%// o erro esta por aki.... tenta me ajudar, pois tenho q entragar isso amanha meio diaRS = Conexcao.execute("SELECT cpf FROM cadastro WHERE cpf = '" & request("cpf") & "'")IF RS.EOF THENsSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidpart &"','"& estado &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"set RS = Conexcao.Execute(sSQL)ELSECPF Já cadastrado!END IF%><%Set RS=Conexcao.Execute(sSQL,intRetorno)set RS=nothingConexcao.closeSet Conexcao=nothing

Valeu!!!ShUmI

[Mário Monteiro 179]

tente assimRS = Conexcao.execute("SELECT cpf FROM cadastro WHERE cpf = '" & cpf & "'")e se der erro posta o erro que ta dando tambem que facilitae não esquenta que amanha 9 vou ta no trampo e te ajudo se voce ainda não tiver resolvidose for só esse o erro acho que ate meio dia voce resolve

[shumi 0]

tente assimRS = Conexcao.execute("SELECT cpf FROM cadastro WHERE cpf = '" & cpf & "'")e se der erro posta o erro que ta dando tambem que facilitae não esquenta que amanha 9 vou ta no trampo e te ajudo se voce ainda não tiver resolvidose for só esse o erro acho que ate meio dia voce resolve

Da dando o erroTipo de erro:Erro de compilação do Microsoft VBScript (0x800A0408)Caractere inválido/cad.asp, line 38, column 5CPF Já cadastrado!Obrigado

[shumi 0]

Mexi um pouco e coloquei como você me falou esta assim:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("convencao.mdb")Conexcao.open%><%Dim Conexcao,sql,rs,verifica,nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim,blnEnvioEmail,intRetorno,varcodnome = Request.Form("nome")razao = Request.Form("razao")fantasia = Request.Form("fantasia")rg = Request.Form("rg")cpf = Request.Form("cpf")cidpart = Request.Form("cidpart")estado = Request.Form("estado")sexo = Request.Form("sexo")telefone = Request.Form("telefone")celular = Request.Form("celular")email = Request.Form("email")consultor = Request.Form("consultor")cargo = Request.Form("cargo")manequim = Request.Form("manequim")%><%Response.Expires = 0%><%RS = Conexcao.execute("SELECT cpf FROM convencao WHERE cpf = '" & cpf & "'")if RS.EOF thensSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidpart &"','"& estado &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"elsedocument.write="CPF Já cadastrado!"end ifSet RS=Conexcao.Execute(sSQL,intRetorno)set RS=nothingConexcao.closeSet Conexcao=nothing	If intRetorno > 0 Then		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "rodrigo@lavyflowers.com.br"			objCDO.Cc= "rodrigo2@lavyflowers.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "Confirmação de presença"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidpart			sMsg = sMsg & "<br>Estado: " & estado			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>Consultor: " & consultor			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Usuario que cadastrou: " & varcod			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing				Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "Newstyle <rodrigo@lavyflowers.com.br>"			objCDO2.Subject = "Confirmação de presença convenção TIM"			sMsg2 = sMsg2 & "Confirme os dados abaixo"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidpart			sMsg2 = sMsg2 & "<br>Estado: " & estado			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>Consultor: " & consultor			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br>Qualquer duvida ou alteração ligue para XXXXX-XXXXX"			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing				If err.number = "0" Then			blnEnvioEmail = True		End If		On Error Goto 0	End If%><html><head><title>Contamos com sua presença!!!!</title></head><body bgcolor="#9f0203"  link="#9f0203" alink="#9f0203" ulink="#9f0203" blink="#9f0203"><center><table width="75%" border="0">  <tr> 	<td><div align="center"><img src=logo-TIM-2005.gif width="300" height="119"></div></td>  </tr></table></center><center>  <table width="75%" border="0">	<tr>	<td><div align="center">		  <p> </p>		  <p> </p>		  <p><font color="#FFFFFF" size="6">Muito Obrigado por se cadastrar!</font></p>		<p> </p>		<p> </p>		<p><a href="cadastro.asp"><img src=voltar.gif width="178" height="48"></a></p>	  </div></td>  </tr></table></center><p> </p></body></html>

e esta dando o erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'EOF'

/cad.asp, line 35

[Mário Monteiro 179]

mostra a linha do erro...

[shumi 0]

mostra a linha do erro...

<%

RS = Conexcao.Execute("SELECT cpf FROM convecao WHERE cpf = '" & request("cpf") & "'")

IF RS.EOF THEN

sSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,telefone,celular,email,consu

ltor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"

else

CPF Já Cadastrado!!!

end if

 

Set RS=Conexcao.Execute(sSQL,intRetorno)

set RS=nothing

 

Conexcao.close

Set Conexcao=nothing

 

If intRetorno > 0 Then

On Error Resume Next

[Salgado 4]

Testa esse trecho

<%
SET RS = Conexcao.Execute("SELECT cpf FROM convecao WHERE cpf = '" & request("cpf") & "'")
IF RS.EOF THEN
sSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,telefone,celular,email,consu
ltor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"
Conexcao.Execute(sSQL,intRetorno)
else
CPF Já Cadastrado!!!
end if

set RS=nothing

Conexcao.close
Set Conexcao=nothing

If intRetorno > 0 Then
On Error Resume Next

Substitui o que você postou por esse.

[Mário Monteiro 179]

tava faltando o set antes do RS

[shumi 0]

entao testei como o salgado postou e deu o seguinte erro:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0414)

Não é possível usar parênteses ao chamar um Sub

/cad.asp, line 35, column 33

Conexcao.Execute(sSQL,intRetorno)

 

 

a linha 35 é essa:

 

<%

SET RS = Conexcao.Execute("SELECT cpf FROM convencao WHERE cpf = '" & request("cpf") & "'")

IF RS.EOF THEN

sSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,telefone,celular,email,consu

ltor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"

Conexcao.Execute(sSQL,intRetorno)else

CPF Já Cadastrado!!!

end if

 

set RS=nothing

 

Conexcao.close

Set Conexcao=nothing

[Marcelo Barcellos 0]

Troque isso

Conexcao.Execute(sSQL,intRetorno)elseCPF Já Cadastrado!!!end if

Por isso

Call Conexcao.Execute(sSQL,intRetorno)elseResponse.Write "CPF Já Cadastrado!!!"end if

[Salgado 4]

<%
SET RS = Conexcao.Execute("SELECT cpf FROM convencao WHERE cpf = '" & request("cpf") & "'")
IF RS.EOF THEN
sSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,telefone,celular,email,consu
ltor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"
Conexcao.Execute(sSQL)
else
CPF Já Cadastrado!!!
end if

set RS=nothing

Conexcao.close
Set Conexcao=nothing

Teste agora.

[shumi 0]

Consegui fiz assim:<%SET RS = Conexcao.Execute("SELECT cpf FROM convencao WHERE cpf = '" & request("cpf") & "'")IF RS.EOF THENsSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,telefone,celular,email,consultor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"Conexcao.Execute sSQL,intRetornoelseresponse.Write("CPF Já Cadastrado!!!")end ifset RS=nothingObrigado a todos!!!!!!!!!!!