Login

[pacokaca]

galera.. to tentandu fazer um sistema de login.. só q ta dando erro.. vo coloca pra vocês como ta..

Essa parte eu peguei pornto dum tuto.. os campos são esses mesmo.. login é nome.. e sneha é endereço.. ateh ai beleza..

db=Server.MapPath("/cadastro/dados/cadastro.mdb")

Set con = Server.CreateObject( "adodb.Connection" )

con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

set rs=con.execute("select * from cadastro_cliente where nome='"&vlogin&"' and endereco='"&vsenha&"'")

Agora eu tentei fazer aqui a verificação no BD...porque a verificacao do tuto pronto q eu peguei num tava funcionando.. sempre dava senha errada..

dim verify

do while verify = false

verify = false

if vlogin = rs.fields("nome") and vsenha = rs.fields("endereco") then

session("logado")="sim"

response.redirect"teste.asp"

verify=true

exit do

else

rs.movenext

if rs.eof then

response.write"Senha ou Login inválido! Volte e tente novamente."

exit do

end if

end if

loop

%>

Como eu nu mnmanjo nada de asp.. e eu vi q a linguagem lembra um pouco VB q eu manjo.. eu fiz q nem VB quase.. deu tudo certo.. ateh essa linha

if vlogin = rs.fields("nome") and vsenha = rs.fields("endereco") then

alguém pode me ajudar.. o q errado nessa linha ai em cima? valeus..

[ViniciusJau]

qual a linha deu erro ?????? porque você usou dois end IF ?

[pacokaca]

usei dois end if.. porque eu abri 2 if..

a linha qdeu erro foi essa aqu ioh

if vlogin = rs.fields("nome") and vsenha = rs.fields("endereco") then

[dark0]

qual a descrição do erro?

[pacokaca]

esse é o problema.. antes tava dando uns erro.. mas ele informava onde era certinhu etal.. ai efui corrigindo e aprendendo.. só q agora ele num explica dirieto.. olha ai

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

(0x80020009)

Exceção.

/login.asp, line 19

tipo.. esse script q eu usei pra comparar com o Bd ta certoo?? e achu q ta errado no codigo SQl q eu usei na conexao com o Bd.. tem como alguém me ensinar algum simples? q peguei todos usuarios da tabela?

[pacokaca]

EDITANDOO!!!

Galera.. descobri u q tava acontecendo achu.. mas ainda num conseui arrumar.. o mandei um responde.write vlogin e responde.write vsenha

e descobri q eles tam em branco.. ou seja.. o asp num ta recebendo eles da outra pagina.. olha o codigo q eu to usando pra isso ve se ta certo..

<%@Language=VBScript%>

<%response.buffer="true"%>

<%

'Recupero o texto que foi escrito no formulário

vlogin=request.form("login")

vsenha=request.form("senha")

valeus

[dark0]

amigo, você colocou response.buffer=true.

Ou seja, não vai escrever nada na tela enquanto não carregar toda a pagina.

Comente essa linha e tente ver o conteudo destes campos de novo