Ufa .. Galera To Conseguindo Login E Senha

[bolomaster]

é o seguinte eu estou quase conseguindo fazer funcionar o problema é o seguinte quando eu faço ele funcionar ele não me mostrar os dados de quem fez o login ele me mostra so o registro 1 eu gostaria que ele me mostrasse o registro de quem fez o login

compreendeu

como eu vou fazer isso??

to enviando os arquivos

para vocês analisarem

Primeiro default.asp

<form action="login.asp" method="post">

<table width="20%" border="1" align="center" cellpadding="5"cellspacing="0" bordercolor="#CCCCCC">

<tr>

<td><strong>Login:</strong></td>

<td><div align="left">

<input name="txt_login" type="text" 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" id="txt_senha" size="10" maxlength="8">

</div></td>

</tr>

<tr>

<td>&nbsp;</td>

<td align="right"> <div align="left">

<input name="Enviar" type="submit" id="Enviar" value="ENVIAR">

&nbsp;&nbsp;&nbsp; </div></td>

</tr>

</table>

</form>

Segundo arquivo login .asp

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("banco.mdb")

Conn.open

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

If RS.EOF Then

  Response.Write "usuário ou senha inválida!"

  Response.End

End If

session("nivel_acesso") = RS("nivel")

Response.Redirect "adm.asp" 'página restrita

%>

Ultima pagina ADM.asp

<%

dim db, rs

const cntcaminho = "C:\login\copia\banco.mdb"

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntcaminho

rs.open "usuarios", db

Response.Write "ID: " & rs.fields("id") & "<br>" & "<hr>" & "Nome: " & rs.fields("nome") & "<br>" & "<hr>" & "Email: " & rs.fields("email") & "<br>" & "<hr>"

rs.moveNext

rs.close

db.close

%>

[caicai]

Amigo,

Na pagina login.asp você acresenta:

Session("id") = RS("id")

e na pagina adm.asp você faz:

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntcaminho

tblrs = "Select * From usuarios where id = " & Session("id")

rs.open tblrs, db

feito isso é só roda que ele irá pegar os dados do usuário que fez o login.

T+

[bolomaster]

Meu muito obrigado e funcionou tudo ... esta esclarecido minhas duvidas...

Muito obrigado

Moderado pode fechar este post