erro em login e senha...

[hunger 0]

pra concluir td aquilo q andei perguntando aqui, estou fazendo a parte de login e senha...

 

está dando o seguinte erro quando tento fazer o login:

 

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/funcionarios/login.asp, line 9

 

Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

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

 

 

 

segue o código (a linha 9 ja está indicada no erro acima):

 

ASP [/tr][tr]<%@Language=VBScript%>

<%response.buffer="true"%>

<%

'Recupero o texto que foi escrito no formulário

vlogin=request.form("login")

vsenha=request.form("senha")

'Faço a conexão com o banco de dados

db=("e:\home\dad\dados\admlogin.mdb")

Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

set rs=con.execute("select*from login where login='"&vlogin&"' and senha='"&vsenha&"'")

'Se não for encontrado nenhum registro aparecerá uma mensagem de erro. Caso contrário o visitante receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida

if rs.EOF then

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

else

session("logado")="sim"

response.redirect"cadastro.asp"

end if

%>

[/tr]

 

 

Há uma maneira de o login e senha não aparecerem na barra de endereço no navegador? pq quando mando prosseguir ele escreve la em cima....

[Maximum2003 0]

pra concluir td aquilo q andei perguntando aqui, estou fazendo a parte de login e senha...

 

está dando o seguinte erro quando tento fazer o login:

 

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/funcionarios/login.asp, line 9

 

Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

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

 

 

 

segue o código (a linha 9 ja está indicada no erro acima):

 

ASP [/tr][tr]<%@Language=VBScript%>

<%response.buffer="true"%>

<%

'Recupero o texto que foi escrito no formulário

vlogin=request.form("login")

vsenha=request.form("senha")

'Faço a conexão com o banco de dados

db=("e:\home\dad\dados\admlogin.mdb")

Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

set rs=con.execute("select*from login where login='"&vlogin&"' and senha='"&vsenha&"'")

'Se não for encontrado nenhum registro aparecerá uma mensagem de erro. Caso contrário o visitante receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida

if rs.EOF then

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

else

session("logado")="sim"

response.redirect"cadastro.asp"

end if

%>

[/tr]

 

 

Há uma maneira de o login e senha não aparecerem na barra de endereço no navegador? pq quando mando prosseguir ele escreve la em cima....

Para o login e a senha não aparecerem na barra do browser, basta mudar o método do form para POST ao invés de GET como deve estar rodando... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[hunger 0]

beleza....agora só falta ver o q é esse erro ae q está dando...

[Mário Monteiro 179]

posta o codigo da linha, ou melhor do trecho...

[hunger 0]

esse aqui?

 

 

ASP [/tr][tr]

db=("e:\home\dad\dados\admlogin.mdb")

Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

set rs=con.execute("select*from login where login='"&vlogin&"' and senha='"&vsenha&"'")

[/tr]

[Mário Monteiro 179]

cara quebra a linha aidb=("e:\home\dad\dados\admlogin.mdb")Set con = Server.CreateObject( "adodb.Connection" )con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"set rs=con.execute("select*from login where login='"&vlogin&"' and senha='"&vsenha&"'")e tira os parenteses lá em cima no db =...

[hunger 0]

legal..... funcionou! vlw...

 

 

agora, mesmo o login e senha q estão la no bd, está resultando como invalido! o q pode ser? vou colocar o codigo das duas paginas pra ver, ok?!

 

 

login.htm

<html><style type="text/css"><!--@import url("../webdad.css");--></style><body><form action="login.asp">  <p class="texto">Login<br>    <input name="login" type="text" id="login">  </p>  <p class="texto">Senha<br>    <input name="senha" type="password" id="senha">  </p>  <input type="submit" value="Entrar"></form></body></html>  

login.asp

ASP [/tr][tr]

<%@Language=VBScript%>

<%response.buffer="true"%>

<%

'Recupero o texto que foi escrito no formulário

vlogin=request.form("login")

vsenha=request.form("senha")

'Faço a conexão com o banco de dados

db="e:\home\dad\dados\admlogin.mdb"

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

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

set rs=con.execute("select*from login where login='"&vlogin&"' and senha='"&vsenha&"'")

 

'Se não for encontrado nenhum registro aparecerá uma mensagem de erro. Caso contrário o visitante receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida

if rs.EOF then

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

else

session("logado")="sim"

response.redirect"cadastro.asp"

end if

%>

[/tr]

[FabricioGomes 0]

1. força um method post no form<form action="login.asp" method="POST">2. verifique se as variaveis nao esta vaziasResponse.Write "vlogin: " & vloginResponse.Write "vsenha: " & vsenha3. acho que nao tem erro, mas separa o select*from... select * fromtambem no redirect, voce separa --> response.redirect "cadastro.asp"oko?

[hunger 0]

vlw fabricio.....brigadao mesmo!vou verificar td isso e, qquer problema q persista, postarei aqui!abço,marcos hunger.

[hunger 0]

entao...fiz as alterações e verificações. continua nao validando.qdo mandei escrever o vlogin e vsenha pra ver se nao estavam vazias, a pagina retornou o seguinte:vlogin: dadmvsenha: 875421Senha ou Login inválido! Volte e tente novamente.acredito entao q vazio nao está ne, mas nao sei o q é ainda....

[Mário Monteiro 179]

mas o login é examente isto, incluindo letras maiusculas e minusculas??

[hunger 0]

é exatamente isso. o login é dadm e a senha 875421

[hunger 0]

ó...apaguei td, fiz de novo....mudei login e senha.... nao sei se era algum pau.agora foi.... deu certo! ta louco...to pirando aqui!!Vlw!!!

[hunger 0]

agora, qdo faço o logoff, ele vai pra tela com a msg de que foi feito corretamente. pra nao ficar ali parado seria legal aquele comando de redirecionar a página (em x segundos) para outro endereço.como faço isso?!

[Mário Monteiro 179]

coloca isto no head da page<meta http-equiv="Refresh" content="3;URL=principal.asp">o numero é em segundos

[hunger 0]

legal....brigadao!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

legal....brigadao!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

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