Ir para conteúdo
Fórum Script Brasil
  • 0

Exibir Ultimos 6


bareta

Pergunta

14 respostass a esta questão

Posts Recomendados

  • 0

Pra limitar registros, depende do BD...

Access / SQL Server = Select Top 6 * From tabela Order by data

MySQL = Select * From tabela Order By data Limit 6

Pra colocar em colunas, faz algo parecido com isso:

<%

While Not rs.EOF

  Response.Write "<tr>"

  For i = 1 To 3

    Response.Write "<td>"

    If Not rs.EOF Then

      Response.Write "valor aqui"

      rs.MoveNext

    End If

    Response.Write "</td>"

  Next

  Response.Write "</tr>"

Wend

%>

[]s

Link para o comentário
Compartilhar em outros sites

  • 0

beleza...

tem como fazer pra esse numero ser de um campo do banco de dados?

tentei colocar algumas coisas mas ele sempre deu erro...

tipo assim:

(só que não funciona)

Select Top '"& numero &"' * From tabela Order by data

Link para o comentário
Compartilhar em outros sites

  • 0

Retire a 1ª aspas simples de antes e depois da variavel numero na sua string SQL.

Por curiosidade, veja este link:

FREECODE - Distribuindo registro em colunas

Link para o comentário
Compartilhar em outros sites

  • 0

cara não entendi muito foda....

vou colocar meu codigo aqui.....

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


<%
Set RecSet = Server.CreateObject("ADODB.Recordset")%>

<title>Galeria de Imagens | Super Bareta</title>

<table border=1 align="center" cellpadding=0 cellspacing=0 
bordercolor="#CCCCCC" style="border-collapse: collapse">

<%
RecSet.Open "Select top 6 id, evento, data, foto from eventos order by data", conn
i=0
z=true
while not RecSet.EOF
z = not z
if z = true then cor = "#EEEEEE"
if z = false then cor = "#DDDDDD"
 i=i+1
%>
<%  
id=RecSet("id")
evento= RecSet("evento")
data= RecSet("data")
foto= RecSet("foto")
  %>
 <td width=80 height="25" align=center bgcolor="<%=cor%>">

 <div align="center"><font size="-2" color="333333" face="Verdana"><b>

 <a href="javascript://" onClick="window.open

('fotos.asp?id=<%=id%>&evento=<%=evento%>&data=<%=data%
>','Galeria','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=700,height=500')"><%=evento%></a>

<p><%=data%></p></b></font></div></td>

 <td width=80 height="25" align=center bgcolor="<%=cor%>">

<div align="center"><font size="-2" color="333333" face="Verdana"><b>

<img src="<%=RecSet("foto")%>" width="100" 
height="100"></b></font></div></td>

<td><p></td>

  <%

 RecSet.MoveNext

wend

RecSet.Close

%>

o que tenho que modificar???

Link para o comentário
Compartilhar em outros sites

  • 0
E PRA DATA FICAR NA ORDEM DO MAIS RECENTE PRO MAIS ANTIGO??

NÃO CONSEGUI FAZER AS COLUNAS!!!

Access / SQL Server = Select Top 6 * From tabela Order by data DESC

Como o cara ae disse, coloque o DESC no final da sua string SQL

DESC = DESCRESCENTE

ASC = CRESCENTE (NÃO É NECESSÁRIO COLOCA-LO GERALMENTE)

Link para o comentário
Compartilhar em outros sites

  • 0

isso ai ta tranquilo consegui entender.....

a treta agora são duas coisas:

1ª Colocar o numero de registros como um valor pego no banco de dados

2ª colocar os registros em 3 colunas e 2 linhas

Link para o comentário
Compartilhar em outros sites

  • 0

urso sem condiçoes, li reli e li de novo mais não vai, ficou na mesma, quando naõ fica uma coluna so fica um linha so... da uma mão ai que a coisa ta complicada aqui

laugh.gif Tá na mão chefe..

<HTML>
<HEAD>
<TITLE>Distribuindo os registros em 3 Colunas - v1.0 - ursolouco@hotmail.com</TITLE>
</HEAD>
<BODY>
<%
	strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ursolouco;Initial 

Catalog=Northwind;Data Source=."
	Set Conn = Server.CreateObject("adodb.connection")
	Conn.Open(strConn)
	Set Rs = Server.CreateObject("adodb.recordset")
	Rs.CursorLocation = 3
	meuSQL = "SELECT * FROM Products"
	Set Rs = Conn.Execute(meuSQL)
	vetor = Rs.GetRows()
	Rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing

	Total = UBound(Vetor, 2)
	Contador = 0

	Response.Write("<table>")	
	While Contador < Total  
  Response.Write("<tr>")
  	For C = 0 To 2    
    If Contador <= Total Then
    	Response.Write("<td><p><font face='verdana' size='1' 

color='#000099'>" & Contador & "-> " & Vetor(1, Contador) & "</font></p></td>")
    End if
  	Contador = Contador + 1
  	Next
  Response.Write("</tr>")
	Wend
	Response.Write("</table>")
%>
</BODY>
</HTML>

tongue.gif

Da lirica bereta à lirica Block... manjas ?

Link para o comentário
Compartilhar em outros sites

  • 0

Da lirica bereta à lirica Block... manjas ?
q?????

tentei fazer uma alteração pra minha necessidade e so da erro....

ai:

<!--#include file="conecta.asp"-->
<% Set Rs = Server.CreateObject("adodb.recordset")
Rs.CursorLocation = 3
Rs.Open "Select * eventos order by data", conn
id=Rs("id")
evento= Rs("evento")
data= Rs("data")
foto= Rs("foto")
%><%
vetor = Rs.GetRows()
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Total = UBound(Vetor, 2)
Contador = 0
Response.Write("<table>") 
While Contador < Total  
 Response.Write("<tr>")
  For C = 0 To 2    
   If Contador <= Total Then
    Response.Write("<td><%=evento%><p><font face='verdana' size='1' 
color='#000099'>" & Contador & "-> " & Vetor(1, Contador) & "</font></p></td>")
   End if
  Contador = Contador + 1
  Next
 Response.Write("</tr>")
Wend
Response.Write("</table>")
%>

o q me diz?

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...