Ir para conteúdo
Fórum Script Brasil
  • 0

Verificar No Db


smez

Pergunta

olá pessoal tudo bem, to com uma duvida,

tenho um formulario com o seguinte campos

numero do contrado

cpf

senha

e no banco de dados tenho cadastrado o numero do contrato e cpf

dai o cliente vai cadastrar a senha atraves do formulario.

como que eu faço para que o sistema verifica se o cpf e o numero do contrato e do mesmo cliente para cadastrar a senha.

AQUI SEGUE O CODIGO QUE DESENVOLVI

<%
Dim contrato
contrato = Request.Form("contrato")
senha = request("senha") '
csenha = request("csenha") '

Set conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\supermidia\db\supermidia.mdb'"

dim seleciona
seleciona = "select * from clientes where contrato = '"&contrato&"'"
set rs = conexao.execute(seleciona) 

contrato = session("contrato")

'INCLUI NO BANCO O ENDEREÇO DA FIGURA QUE ESTÁ NO SERVER, DEPOIS É FÁCIL PEGAR A FIGURA!

conexao.Execute("update clientes set senha = '"&senha&"'  where contrato = '"&contrato&"'")
%>

<head>
<title>::| Super Mídia - TV A CABO |::</title>
</head>

<p align="center"><b><font size="5" face="Verdana">SUA SENHA FOI SOLICITADA COM
SUCESSO</font></b></p>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Guest Walter(unknown)

<%

Dim contrato

contrato = Request.Form("contrato")

senha = request("senha") '

csenha = request("csenha") '

Set conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\supermidia\db\supermidia.mdb'"

Este é o codigo corrigido...ou quase... fica mais ou menos assim!!!!

dim seleciona

'seleciona = "select * from clientes where contrato = '"&contrato&"'"

'suponho que você recuperou contrato e cpf..tipo request e tal

seleciona = "select * from clientes where contrato = '" & contrato &"' and cpf = '" & cpf & "'"

set rs = conexao.execute(seleciona)

'preciso disso

if rs.eof then

response.write "erro"

response.end

else

conexao.Execute "update clientes set senha = '" & senha & "' where contrato = '" & contrato & "' and cpf = '" & cpf &"'"

end if

contrato = session("contrato")

'INCLUI NO BANCO O ENDEREÇO DA FIGURA QUE ESTÁ NO SERVER, DEPOIS É FÁCIL PEGAR A FIGURA!

'------------------------------------------------

'não preciso disso aqui....

'conexao.Execute("update clientes set senha = '"&senha&"' where contrato = '"&contrato&"'")

'------------------------------------------------

%>

<head>

<title>::| Super Mídia - TV A CABO |::</title>

</head>

<p align="center"><b><font size="5" face="Verdana">SUA SENHA FOI SOLICITADA COM

SUCESSO</font></b></p>

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...