Relatorio Em Asp

[avontzdnb]

opa galera do mal!! intao

uma duvida meio idiota.. mas ta foda.. porque não sei como faiz.. :S

gostaria de saber como eu faço um relatorio em ordem descresente.. ou seja.. do maior para o menor

mandar exibir por ordem normal... via uma chava primaria e tal é facil...

mas agora ele verificar qual p maior que colocar em cima e tal.. dai eu já não manjo.. alguém da uma luz?

valeuz!

aa outra duvida.. tenho uma session normal...

quero restringir para apenas uma pessoa com uma valor especifico possaa vizualizar..

algo tipo

<%

if (session("login")=Administrador) then

%>

xxxxxxxxxxxxx so o adm pode ver isso

<%

end if

%>

manjo? rs xD falow!! thks

[dnlmosilva]

1º NO SQL COLOCA "SELECT ... FROM ... [WHERE ...] ORDER BY <CAMPO> DESC

2º VOCÊ DEU A RESPOSTA PARA SUA PERGUNTA. É AQUILO lá MESMO!! =)

[]s

[.Andreia.]

Quanto a session, se você estiver em algum momento usando autenticação pelo BD... pode definir o tipo de usuário, exemplo:

- usuario (codigo_grupo 1)

- administrador (codigo_grupo 2)

Então:

<% if session("codigo_grupo") = "1" then %>
Área do usuário

<% elseif session("codigo_grupo")= "2" then %>
Área do administrador

<% end if %>

[bareta]

so ajeitando sua session

[asp]

<%

if session("login")="Administrador" then

response.write "xxxxxxxxxxxxx so o adm pode ver isso"

else

response.redirect "login.asp"

end if

%>

[avontzdnb]

valeuz andreia.. eu adaptei com que já tinha aqui.. e funfo legal.

tentei colocar por ordem.. mas não sabia como fazer as aspas.. dai tentei isso

codigo=request.QueryString("msg")

sql = "SELECT * FROM [respostas] WHERE Codigo = "& codigo

sql2 = "SELECT * FROM [respostas] order by lances desc"

Set res = Server.CreateObject("ADODB.Recordset")

res.Open sql, sql2, conexao, 3, 3

do while Not res.eof

if res.fields("codigo") <> codigo then

abri 2 selects... mas entro em loop e meu site travo

alguma luz no fim do tunel?

[avontzdnb]

:|

[.Andreia.]

valeuz andreia.. eu adaptei com que já tinha aqui.. e funfo legal.

tentei colocar por ordem.. mas não sabia como fazer as aspas.. dai tentei isso

codigo=request.QueryString("msg")

    sql = "SELECT * FROM [respostas] WHERE Codigo = "& codigo

    sql2 = "SELECT * FROM [respostas] order by lances desc"

        Set res = Server.CreateObject("ADODB.Recordset")

        res.Open sql, sql2, conexao, 3, 3

    do while Not res.eof

    if res.fields("codigo") <> codigo then

abri 2 selects... mas entro em loop e meu site travo

alguma luz no fim do tunel?

Se eu entendi sua dúvida, é assim:

sql = "SELECT * FROM respostas WHERE Codigo = "& codigo &" order by lances desc"

[avontzdnb]

eu tb tentei isso andreia.. mas entro em loop denovo

ele recria infinitamente a tabela onde vai os dados.. ou senao .. da server is too busy...:/

[dnlmosilva]

cara você deve ter colocado o codigo pela metade.... num da pra ver onde esta o rs.MoveNext nem o Loop

tipo:

codigo=request.QueryString("msg")

sql = "SELECT * FROM [respostas] WHERE Codigo = " & codigo & " order by lances desc"

Set res = Server.CreateObject("ADODB.Recordset")

res.Open sql, conexao, 3, 3

do while Not res.eof

if res.fields("codigo") <> codigo then

<codigo>

end if

res.Movenext

Loop

[.Andreia.]

eu tb tentei isso andreia.. mas entro em loop denovo

ele recria infinitamente a tabela onde vai os dados.. ou senao .. da server is too busy...:/

Eu achei que a sua dúvida era quanto a colocar na ordem usando somente um select.

Se você disse que está em loop infinito, veja se não é o que o Daniel disse... tem que ter o movenext e wend

[avontzdnb]

<%

        codigo=request.QueryString("msg")

    sql = "SELECT * FROM [respostas] WHERE Codigo = " & codigo

        Set res = Server.CreateObject("ADODB.Recordset")

        res.Open sql, conexao, 3, 3

    do while Not res.eof

    if res.fields("codigo") <> codigo then

    %> [/color=red]

   

  <tr align="left" valign="middle">

<td width="260" height="18"> Nome do comprador: <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Server.HTMLEncode(res.Fields("nome").Value)%></font></td>

            <td width="517"> Lance: <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Server.HTMLEncode(res.Fields("lance").Value)%></font></td>

          </tr>

         

<%

      end if

      res.MoveNext

      loop

      res.close

      set res = Nothing

      conexao.close

      Set Conn=Nothing

      %>[/color=red]

desse jeito funciona que é uma beleza...

[avontzdnb]

poxa.. nada?ainda estou com esse problema... e nada que eu faça... nada... ordena essa josa em ordem descresente

[avontzdnb]

tipo..era so aspas dulpas...

tipo

"& codigo &"

que coisa né