Pegar o parametro de uma sesão e jogar numa selec e recordet

[romulorasec 0]

Pesoal quero pegar o parametro de uma sesão pra fazer uma select e usar o recordset normal.

Ex: O kara se loga, ao se logar tem um link especifico pro nivel dele, ou cetegoria dele, que quando clicado irá aparecer os dados dele, só que queria mostra sem usar sesão tipo Session("nome"), queria mostra assim <%=Rs("nome")%>.

 

Pois o que estou fazendo e que depois do logar e vai entra em um adm e la tem um link postagem, que depois de clicado irá pra uma pagina onde quero que mostre somente os registros relacionado a coluna ou categoria dele, podendo editar e apgar e inserir novo.

 

Agradeço a ajuda de todos.

[Mário Monteiro 179]

o que voce ja desenvolveu?

[romulorasec 0]

o que voce ja desenvolveu?

Como assim Mario, fiz a pagina de validar o login, valida.asp

Codigo:

<%

 

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/domains/blog/bd/bd.mdb"

 

login = Replace(Request.Form("login"),chr(39),"''")

senha = Replace(Request.Form("senha"),chr(39),"''")

 

Set Rs = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM usuario WHERE login='"&login&"' AND senha='"&senha&"'"

Set Rs = conn.execute(SQL)

 

If Not Rs.EOF then

 

Session("Cod") = Rs("Cod")

Session("Login") = Rs("Login")

Session("Nome") = Rs("Nome")

Session("senha") = Rs("senha")

Session("Admin") = Rs("Admin")

Session("Nivel") = Rs("Nivel")

Session("Coluna") = Rs("Coluna")

Session("Ok") = true

 

Response.Redirect ("default4.asp")

else

Response.Redirect ("default.asp")

end if

 

 

rs.close

set rs = nothing

conn.close

set conn=nothing

%>

A pagina pagina de links pra mostrar os registros

 

<%

Set conn = Server.CreateObject("ADODB.Connection")

Set Rs = createobject("adodb.recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/Domains/Blog/BD/bd.mdb"

%>

<!--#include file="travar.asp" -->

 

Olá! <strong><%=Session("nome")%></strong> Seja Bem Vindo(a)!<p>

 

<%SELECT CASE Session("nivel")%>

 

<%CASE 1%>

<table width="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">

<tr>

<td bgcolor="#999999">Administração Geral </td>

</tr>

<tr>

<td><A href="list_post.asp?coluna=blogao">:: LINK PAINEL</A></td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td bgcolor="#999999">Blog </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td bgcolor="#999999">Coluna 01 </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

</table>

<%CASE 2%>

<table width="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">

<tr>

<td align="center" bgcolor="#999999"><strong><%=Session("coluna")%></strong></td>

</tr>

<tr>

<td><a href="?pagina=postar">:: LINK INSERIR</a></td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

</table>

<p> </p>

<table width="768" border="1" align="center" cellpadding="0" cellspacing="0">

<tr>

<td>

<%

pagina = Request.QueryString("pagina") '------ RECUPERAMOS A PAGINA SOLICITADA ----- '

select case pagina '------ COMEÇO DE VERIFICAÇÂO DA PAGINA -------'

case "postar" '-------- CASE SEJA A PAGINA LINK 1 INCLUIMOS ELA NO CENTRO DO SITE ---- '

%>

<!--#include file="list_post.asp"-->

<%

end select '---- FINALIZAMOS A VERIFICAÇÂO ----' >

%> </td>

</tr>

</table>

<p> </p>

<p> </p>

<p> </p>

<p>

<%END SELECT%>

 

 

 

Você está logado como <strong><%= Session("Admin") %>    </strong> Nivel:  <strong><%= Session("nivel") %></strong> -

<strong>

<%

ip = Request.ServerVariables("REMOTE_ADDR")

response.Write(ip)

%>

</strong>-

<strong>

<%

response.write Now()

%>

<% IF session("nivel")= 1 THEN %>

</strong>

- <a href="inserir_administrador.asp" class="texto3">Inserir Administrador!</a> - <a href="administradores.asp" class="texto3">Ver Administradores!</a>

<% end if %>

- <a href="logout.asp" class="texto3">Fazer Logoff</a>

 

Mostrar registros

 

<!--#include file="conexao.asp" -->

<!--#include file="travar.asp" -->

<html>

<head>

<title>Administrando!</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="estiloadmin.css" rel="stylesheet" type="text/css">

<link href="../fatepi.css" rel="stylesheet" type="text/css">

</head>

 

<body bgcolor="#EFEFEF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div align="left">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td valign="middle"><div align="center"> <br>

<table width="650" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#486C98">

<tr>

<td valign="top" bgcolor="#FFFFFF"><table width="100%" height="172" border="0" cellpadding="0" cellspacing="0">

<tr>

<td height="38" class="bodystyle">

<div align="center">

<p class="titulo">Gerenciando noticias! <a href="artigo_inserir.asp?categoria=noticia" class="titulo">[inserir

noticias]</a> <a href="default2.asp" class="titulo">[Voltar

para o Painel]</a></p>

</div></td>

</tr>

<tr>

<td valign="top" class="bodystyle">

<div align="center">

<table width="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2">

<tr class="bodystyle">

<td height="18" valign="top" bgcolor="#FFFFFF">

<div align="left">

<span class="texto2"> </span> <span class="texto2">

<%

SQL = "SELECT * FROM materias WHERE coluna='blogao' ORDER BY data DESC"

Set Rs = conn.execute(SQL)

if rs.eof then

response.write "<font class='texto'>Não há Notícias Cadastradas!</font>"

else

Rs.movefirst

do while not rs.eof

%>

</span><span class="texto"><%

data = Rs("data")

response.write PreparaData(data) & " - " & Rs("Titulo")

%></span></div>

<div align="center"></div>

<div align="center"></div>

<div align="center"></div></td>

<td width="8%" bgcolor="#FFFFFF">

<div align="center">

<% if Rs("status") = "Ativar" then %>

<a href="artigo_status.asp?desativar=<%=Rs("cod")%>" onClick="return confirm('Você deseja desativar esta Notícia?')"><img src="IMAGENS\icones\acao.gif" width="32" height="32" border="0"></a>

<% else%>

<a href="artigo_status.asp?ativar=<%=Rs("cod")%>" onClick="return confirm('Você deseja ativar esta Notícia?')"><img src="IMAGENS\icones\acaodesa.gif" width="32" height="32" border="0"></a>

<%end if%>

</div></td>

<td width="8%" bgcolor="#FFFFFF">

<div align="center"><a href="artigo_editar.asp?cod=<%=Rs("cod")%>"><img src="IMAGENS\icones\editar.gif" alt="Editar" width="32" height="32" border="0"></a></div></td>

<td width="10%" bgcolor="#FFFFFF">

<div align="center"><a href="artigo_excluirsql.asp?cod=<%=Rs("cod")%>" onClick="return confirm('Você deseja excluir esta Notícia?')"><img src="IMAGENS\icones\excluir.gif" alt="Excluir" width="32" height="32" border="0"></a> </div></td>

</tr>

<tr class="bodystyle">

<td height="18" bgcolor="#FFFFFF">

<%

rs.movenext

loop

end if

%> </td>

<td bgcolor="#FFFFFF"> </td>

<td bgcolor="#FFFFFF"> </td>

<td bgcolor="#FFFFFF"> </td>

</tr>

</table>

</p>

<br>

<span class="texto4">

<%

 

Conta = "SELECT COUNT(cod) AS total FROM materias WHERE coluna='blogao'"

Set Rs = Conn.Execute(Conta)

total = Rs("total")

response.write total

%>

</span> <span class="texto3"> Notícia(s)! Sendo</span><span class="texto4">

</span> <span class="texto3"> </span> <span class="texto4">

<%

 

Conta2 = "SELECT COUNT(cod) AS total2 FROM materias WHERE coluna='blogao' AND status='Ativar'"

Set Rs = Conn.Execute(Conta2)

total2= Rs("total2")

response.write total2

%>

</span> <span class="texto3"> Ativados e </span><span class="texto4">

<%

 

Conta3 = "SELECT COUNT(cod) AS total3 FROM materias WHERE coluna='blogao' AND status='Desativar'"

Set Rs = Conn.Execute(Conta3)

total3= Rs("total3")

response.write total3

%>

</span> <span class="texto3"> Desativados!</span></div></td>

</tr>

</table>

 

</td>

</tr>

</table>

<br>

</div></td>

</tr>

</table>

</div>

</body>

</html>

<%

function PreparaData(data)

if Day(data) <= 9 AND len(Day(data)) <=2 then

dia = "0" & Day(data)

else

dia = Day(data)

end if

if month(data) <= 9 AND len(Month(data)) <=2 then

mes = "0" & month(data)

else

mes = month(data)

end if

if Year(data) <= 9 AND len(Year(data)) <=2 then

ano = Left(Year(Now),2) & Year(data)

else

ano = Year(data)

end if

data = dia & "/" & mes & "/" & ano

PreparaData = data

end function

%>

<%

rs.close

set rs = nothing

conn.close

set conn=nothing

%>

 

 

Nesa pagian de mostrar registro é queria mostra os dados equivalente ao coluna do usuario

ja que exite um tabela de Materia que contem os campos titulo, texto, e coluna e etc, a de usuario tem login, senha, nome, email, coluna etc.

[Mário Monteiro 179]

entao voce precisa selecionar os dados relativos a este usuario que esta logado

[romulorasec 0]

entao voce precisa selecionar os dados relativos a este usuario que esta logado

Isso mesmo, mas com recordset, pois facilita pra mim, usar em outras situações mas se tiver alguma outra opção melhor agradeço. Mas sempre lenbrando que eu vou depois de logar querer fazer um painel onde tera o menu de acesso, pra incluir, editar, excluir, minha explicação de ser assim é pq vão ser varios usuarios usando o mesmo sistema, então temos que verificar qual a coluna dele pra só editar, listar e inserir somente na coluna dele. Ok MArio Vlw, estou aki esperando a resposta rsrs.

[Mário Monteiro 179]

entao romulo os dados refentes a cada um estarão no DB o que selecionar para ele os outros nao verão mesmo