(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 ?