(o erro naum eh mostrado pq meu ie ta um pau
,)--paginas--
logando.asp (dps de efetuaro login)
<%
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("usuarios.mdb")
Conn.open
Response.Cookies("usuario") = Request.Form("usuario")
Response.Cookies("senha") = Request.Form("senha")
If Request.Form("autologin") = "True" Then
Response.Cookies("autologin") = "True"
Response.Cookies("usuario") = Request.Form("usuario")
Response.Cookies("senha") = Request.Form("senha")
End If
login2 = Request.Form("usuario")
senha2 = Request.Form("senha")
SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "
Set RS = Conn.Execute(SQL)
If RS.EOF Then
Response.Redirect "negado.asp"
Response.End
End If
session("nivel_acesso") = RS("nivel")
session("usuario") = RS("id")
Response.Redirect "painel.asp"
%>
painel.asp (onde ta dando erro)<html>
<body>
<%
url_conexao = Server.MapPath("geral.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
If session("id") = "" Then
Response.Write "Você não está logado!"
Response.End
elseIf session("id") = rs("id") Then
%>
<%
sql = "select * from usuarios where id='"&Session("id")&"'"
set rs = conexao.execute(sql)
response.write rs("nome")
response.write rs("idade")
response.write rs("email")
end if
%>
</body>
</html>e eu tnho o BD, geral.msb. com a tabela usuarios
pq nam ta dando certo ?
