Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

mostrar de 1 até 10

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

olá amigos postei um post igual a esse a 2 semanas sem sucesso e por isto est estou tentando achar a resposta se alguém souber me de uma dica quero mostrar os 10 ultimos acessos do cara no sistema só que assim.

1

2

3

4 um embaixo do outro como faço.

 

<%CALL AbreConexao()%><% SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"Set rs = Conexao.Execute(Sql)If NOT rs.EOF Then %><%=rs("DataAcesso")%><%end if%><%CALL FechaConexao()%>

 

sei que é aquele negocio

For i = 1 to 10response.write iNext

mais onde colocar isto neste codigo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado
ASP

    [*]<%CALL AbreConexao()

    [*]SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"

    [*]Set rs = Conexao.Execute(Sql)

    [*]i = 0

    [*]WHILE NOT rs.EOF Then

    [*]i=i+1

    [*]response.write( i & " " & rs("DataAcesso" & "<br>")

    [*]rs.movenext

    [*]WEND

    [*]CALL FechaConexao()%>

    [*]

 

veja se é isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

amigo deu este pau Erro de compilação do Microsoft VBScript error '800a0400' Instrução esperada /minhas webs/troca_banner/logs.asp, line 155 WHILE NOT rs.EOF Then-----------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O problema parece que esta em duas linhas:

 

5.WHILE NOT rs.EOF Then => While não possui THEN, entao seria so WHILE NOT rs.EOF

 

7.response.write( i & " " & rs("DataAcesso" & "<br>") => faltou terminar de fechar a chamada do RS com parentese, vai ficar assim: response.write( i & " " & rs("DataAcesso") & "<br>")

 

Código corrigido...

ASP
  • <%CALL AbreConexao()
  • SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"
  • Set rs = Conexao.Execute(Sql)
  • i = 0
  • WHILE NOT rs.EOF
  • i=i+1
  • response.write( i & " " & rs("DataAcesso") & "<br>")
  • rs.movenext
  • WEND
  • CALL FechaConexao()%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

cara ainda não deu certo olha só o meu codigo.

 

<!--#include file="urestrito.asp"--><!--#include file="conectar.asp"--><%AbreConexao()SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"Set rs = Conexao.Execute(SQL)If NOT rs.EOF Then %>            <table border="0" width="100%" cellspacing="0" cellpadding="0">              <tr>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana">Login de Acesso</font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana">Host de Acesso</font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana">Data do Acesso</font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana">Hora do Acesso</font>                </td>              </tr>              <tr>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana" color="#FFFFFF">.</font>                </td>                <td width="25%" valign="top" align="center">                </td>                <td width="25%" valign="top" align="center">                </td>                <td width="25%" valign="top" align="center">                </td>              </tr>              <tr>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana"><font color="#3399FF"><%=rs("login")%>                  </font></font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana"><font color="#3399FF"><%=rs("host")%>                  </font></font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana"><font color="#3399FF"><%=rs("DataAcesso")%>                  </font></font>                </td>                <td width="25%" valign="top" align="center">                  <font size="1" face="Verdana"><font color="#3399FF"><%=rs("hora")%>                  </font></font>                </td>              </tr>            </table><% End IfFechaConexao()%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

O problema parece que esta em duas linhas:5.WHILE NOT rs.EOF Then => While não possui THEN, entao seria so WHILE NOT rs.EOF7.response.write( i & " " & rs("DataAcesso" & "<br>") => faltou terminar de fechar a chamada do RS com parentese, vai ficar assim: response.write( i & " " & rs("DataAcesso") & "<br>")

isso mesmo...primeiro testa este codigo ai e depois adapta dentro de um loop pois você ainda continua usando um IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

cara esta dando o mesmo erro veja só o que consegui fazer, acontece que quero que mostre assim

1

2

3

4

5

mais aontece que não mostra.

 

<!--#include file="urestrito.asp"--><!--#include file="conectar.asp"--><%AbreConexao()SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"Set rs = Conexao.Execute(SQL)%><%do while not rs.eof and contador < 10%>  		  <table border="0" width="100%" cellspacing="0" cellpadding="0">			<tr>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana">Login de Acesso</font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana">Host de Acesso</font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana">Data do Acesso</font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana">Hora do Acesso</font>			  </td>			</tr>			<tr>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana" color="#FFFFFF">.</font>			  </td>			  <td width="25%" valign="top" align="center">			  </td>			  <td width="25%" valign="top" align="center">			  </td>			  <td width="25%" valign="top" align="center">			  </td>			</tr>			<tr>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana"><font color="#3399FF"><%=rs("login")%>				</font></font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana"><font color="#3399FF"><%=rs("host")%>				</font></font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana"><font color="#3399FF"><%=rs("DataAcesso")%>				</font></font>			  </td>			  <td width="25%" valign="top" align="center">				<font size="1" face="Verdana"><font color="#3399FF"><%=rs("hora")%>				</font></font>			  </td>			</tr>		  </table><% contador = contador +1 rs.movenext loop FechaConexao()%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado 

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

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

<%

AbreConexao()

SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"

Set rs = Conexao.Execute(SQL)

%>

 

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

<tr>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana">Login de Acesso</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana">Host de Acesso</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana">Data do Acesso</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana">Hora do Acesso</font>

</td>

</tr>

<tr>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana" color="#FFFFFF">.</font>

</td>

<td width="25%" valign="top" align="center">

</td>

<td width="25%" valign="top" align="center">

</td>

<td width="25%" valign="top" align="center">

</td>

</tr>

<%

do while not rs.eof and contador < 10

%>

<tr>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana"><font color="#3399FF"><%=rs("login")%>

</font>

</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana"><font color="#3399FF"><%=rs("host")%>

</font>

</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana"><font color="#3399FF"><%=rs("DataAcesso")%>

</font>

</font>

</td>

<td width="25%" valign="top" align="center">

<font size="1" face="Verdana"><font color="#3399FF"><%=rs("hora")%>

</font>

</font>

 

</td>

</tr>

<%

contador = contador +1

rs.movenext

loop

%>

</table>

<%

FechaConexao()

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

esse seu ultimo codigo naum funciona?o que acontece com ele?não é pq você nao inicializou a variavel contador com 0?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara você não ta fazendo nem parecido com o que foi mostrado...e não precisa dissodo while not rs.eof and contador < 10sódo while not rs.eofpois você já pega apenas dez na sql...

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Cara,

 

tenta esse código:

 

ASP

[*]

[*]

[*]<%

[*] CALL AbreConexao()

[*] SQL = "SELECT top 10 * FROM Log ORDER BY DataAcesso ASC"

[*] Set rs = Conexao.Execute(Sql)

[*]

[*] DO WHILE NOT rs.EOF

[*] response.write(rs("DataAcesso") & "<br>")

[*] rs.movenext

[*] LOOP

[*]

[*] CALL FechaConexao()%>

[*]

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito