Po gente olha so isso

[masterofdreams 0]

meu banco esta otimo, so que tem um problema quando eu coloco numero no login ele da pau o que pode ser..no access ela ta login = textocomo é que eu facodefault.html<form action="login.asp" method="post" name="login" id="login"><table width="20%" border="1" align="center" cellpadding="5"cellspacing="0" bordercolor="#CCCCCC" class="categoria"><tr> <td><strong>Login:</strong></td><td><div align="left"> <input name="txt_login" type="text" class="form" id="txt_login" size="10" maxlength="8"></div></td></tr><tr> <td><strong>Senha:</strong></td><td><div align="left"> <input name="txt_senha" type="password" class="form" id="txt_senha" size="10" maxlength="8"></div></td></tr><tr> <td> </td><td align="right"> <div align="left"> <input name="Enviar" type="submit" class="Botao" id="Enviar" value="ENVIAR">    </div></td></tr></table>podem me ajudar so nisso :D

[crazybaby 0]

posta sua pagina q efetua o login e diga ql o erro..

[masterofdreams 0]

ta ai..login.asp<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/banco.mdb") Conn.open'Vamos capturar o login e a senha digitada no firmuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"Response.EndEnd If'Se chegou até aqui, é porque o login e senha estão corretos.'Vamos então verificar o nível de acesso do usuário.session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginassession("nome_usuario") = RS("login")Response.Redirect "adm.asp" 'página restrita%> :D

[crazybaby 0]

nada de errado com o codigo....é da coluna de asp, naum seria melhor entrar em contato com o colunista?tem certeza de q naum esta funcionando digitar numeors?

[diego_sl 0]

Mas diga qual o eror que dá e em qual linha :mellow:

[masterofdreams 0]

cara nao ta dando erro apenas diz que o nome e ou senha do usuário nao conferem..que é gerado por'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"Response.EndEnd Ifo que pode ser... :wacko:

[crazybaby 0]

cara nao ta dando erro apenas diz que o nome e ou senha do usuário nao conferem..que é gerado por'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"Response.EndEnd Ifo que pode ser... :wacko:

tem certeza de q tem registros no banco de dados?

[masterofdreams 0]

po cara to inserindo novos registros..login = 123456senha = 123456deu novamente usuário ou senha invalida...

[crazybaby 0]

Tenta assim, acho q naum vai mudar mto, eu só modifiquei a estrutura do codigo...

 

<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/banco.mdb") Conn.open'Vamos capturar o login e a senha digitada no firmuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha") 'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF ThenResponse.Write "usuário ou senha inválida!"else'Se chegou até aqui, é porque o login e senha estão corretos.'Vamos então verificar o nível de acesso do usuário.session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginassession("nome_usuario") = RS("login")Response.Redirect "adm.asp" 'página restritaend if%>

[masterofdreams 0]

Po cara , eu ja tentei de tudo, ta brabo.. to quase jogando a toalha.. :ph34r: :ph34r: :ph34r: :ph34r: :ph34r: :ph34r: :ph34r: