select top 6

[Daniel Paes 0]

Usa esse order by:

Order By Year(data) Desc, Month(data) Desc, Day(data) Desc

No final de sua SQL.

Era isso mesmo.... só falta agora esse maldito select top 6 *... order by data pegar apenas os 6 ultimos registros mesmo que tenha datas iguais.... já rodei a net toda.. mas ta brabo... tentei de tudo um pouco.... por favor.. se alguem tiver uma ideia... me ajudem.Obrigado

[Salgado 4]

A forma que o Bicicleta citou é a que vai lhe atender, tente fazer um arquivo novo (do zero) com isso, quando funcionar você aplica sua formatação!

[Daniel Paes 0]

A forma que o Bicicleta citou é a que vai lhe atender, tente fazer um arquivo novo (do zero) com isso, quando funcionar você aplica sua formatação!

Tipo... eu até fiz um.. mas com uma coluna só... quando eu tento com duas eu naum consigo.... você conhece algum link para que possa saber um pouco mais sobre loop???? No caso é isso que eu tenho que usar né?

[Daniel Paes 0]

A forma que o Bicicleta citou é a que vai lhe atender, tente fazer um arquivo novo (do zero) com isso, quando funcionar você aplica sua formatação!

Po.. estou com muta dificuldades para fazer isto...... alguem conhece algum link que possa me auxiliar neste problema, com explicações de como fazer ...essas coisa.... serve site em inglês mesmoAgradeco

[Salgado 4]

Fiz o corte de um While, aparentemente sem sentido, e pequenas alterações:

<%AbreConexao
SQL = "SELECT TOP 6 * FROM tblnews ORDER BY data DESC"
Set rs = Conexao.Execute(SQL)%>
<Table width="427" border="0" cellpadding="5" cellspacing="0">
<%Colunas=2 'Defina o número de colunas

Contador = 0
While not rs.EOF Or Contador<=6
Contador=Contador+1

response.write"<tr>"
for x= 1 to Colunas
if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça
response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"
else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça
response.write "<TD valign=""top"">"
response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"
response.write "<tr>"
response.write "<td width=""63"" valign=""top"">"
response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"
response.write "</td>"
response.write "<td width=""143"" class=""fonte"" valign=""top"">"
response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>"&rs("titulo")&"</strong>"
response.write "<br>"&fResumir(rs("headline"), qtd)&"</font></a></td>"
response.write "</tr>"
response.write "</table>"
response.write "</TD>"
rs.movenext
end if
next
response.write linha&"</TR>"
Wend

rs.close
FechaConexao
Set rs = nothing %>

[Daniel Paes 0]

Olha salgado... ta dando esse erro....

ADODB.Recordset erro '800a0cc1' O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. /asp/lol12.asp, line 80

a linha do erro é essa:

response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"

O que será que esta acontecendo???? essa parada de tabela me tira do sério...

[Salgado 4]

Verifique o nome dos campos da tabela, esse erro se refere à isso.

[Daniel Paes 0]

Verifique o nome dos campos da tabela, esse erro se refere à isso.

Bom... realmente era da tabela.... eu tinha mudado o nome de um campo e me esqueci de fazer a troca no código, porém........ ainda naum está funcionando..... alem de continuar mostrando 7 registros ao invés de seis, ele tá repetindo a tabela mais 7 vezes, mas só que vazia.Vou explicar melhor:ta aparecendo assim:

reg1  reg2reg3  reg4reg5  reg6reg7    -  -        -  -        -  -        -

você tem alguma idéia do que aconteceu???

[m/ster 0]

cara.. eita dificuldade... copia esse codigo aki embaixo e ver se da certo.. era soh tirar um while .. pois tem 2 while entao por isso aparece mais de 6 registros..

 

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews ORDER BY data DESC"Set rs = Conexao.Execute(SQL)id_new = rs("id_new")Response.Write "<Table width=""427"" border=""0"" cellpadding=""5"" cellspacing=""0"">Colunas=2 'Defina o número de colunasWhile not rs.EOF  response.write"<tr>"  for x= 1 to Colunas    if rs.EOF or rs.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça      response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"    else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça      response.write "<TD valign=""top"">"      response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"      response.write "<tr>"      response.write "<td width=""63"" valign=""top"">"      response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"      response.write "</td>"      response.write "<td width=""143"" class=""fonte"" valign=""top"">"      response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>"&rs("titulo")&"</strong>"      response.write "<br>"&fResumir(rs("headline"), qtd)&"</font></a></td>"      response.write "</tr>"      response.write "</table>"      response.write "</TD>"      rs.movenext    end if  next  response.write linha&"</TR>"wendResponse.Write "</Table>"rs.closeFechaConexaoSet rs = nothing%>

responda dizendo se deu certo ;)/>

[Daniel Paes 0]

Nop´s ..... mesma coisa que o outro

[Salgado 4]

Troca onde está Contador=0 por Contador=1

[Daniel Paes 0]

Nop´s ..... mesma coisa que o outro

reformulando a resposta.... apareceu assim agora:

reg1  reg2reg3  reg4reg5  reg6reg7    -

(foi mal.... eu tinha aberto o arquivo errado..... rs)

[m/ster 0]

rpz, cria um novo arquivo e coloca esse codigo, pq o codigo esta sem erro.. não tem como mostrar mais que 6 rehgistro.. copia esse código novamente, fiz algumas alterações, e mostra o resultado:

 

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews ORDER BY data DESC"Set rs = Conexao.Execute(SQL)id_new = rs("id_new")Response.Write "<Table width=""427"" border=""0"" cellpadding=""5"" cellspacing=""0"">"Colunas=2 'Defina o número de colunasWhile not rs.EOF response.write"<tr>" for x= 1 to Colunas   if rs.EOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça     response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"   else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça     response.write "<TD valign=""top"">"     response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"     response.write "<tr>"     response.write "<td width=""63"" valign=""top"">"     response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"     response.write "</td>"     response.write "<td width=""143"" class=""fonte"" valign=""top"">"     response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>"&rs("titulo")&"</strong>"     response.write "<br>"&fResumir(rs("headline"), qtd)&"</font></a></td>"     response.write "</tr>"     response.write "</table>"     response.write "</TD>"     rs.movenext   end if next response.write "</TR>"wendResponse.Write "</Table>"rs.closeFechaConexaoSet rs = nothing%>

[Daniel Paes 0]

Troca onde está Contador=0 por Contador=1

não... ainda naum é isso ... :(/> deu a mesma coisa

[Daniel Paes 0]

rpz, cria um novo arquivo e coloca esse codigo, pq o codigo esta sem erro.. não tem como mostrar mais que 6 rehgistro.. copia esse código novamente, fiz algumas alterações, e mostra o resultado:

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews ORDER BY data DESC"Set rs = Conexao.Execute(SQL)id_new = rs("id_new")Response.Write "<Table width=""427"" border=""0"" cellpadding=""5"" cellspacing=""0"">"Colunas=2 'Defina o número de colunasWhile not rs.EOF response.write"<tr>" for x= 1 to Colunas   if rs.EOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça     response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"   else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça     response.write "<TD valign=""top"">"     response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"     response.write "<tr>"     response.write "<td width=""63"" valign=""top"">"     response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"     response.write "</td>"     response.write "<td width=""143"" class=""fonte"" valign=""top"">"     response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>"&rs("titulo")&"</strong>"     response.write "<br>"&fResumir(rs("headline"), qtd)&"</font></a></td>"     response.write "</tr>"     response.write "</table>"     response.write "</TD>"     rs.movenext   end if next response.write "</TR>"wendResponse.Write "</Table>"rs.closeFechaConexaoSet rs = nothing%>

Deu a mesma coisa:

reg1  reg2reg3  reg4reg5  reg6reg7    -

aparece um registro a mas porque tem registro com data duplicadas, ou seja, se tiver 10 registro para a data 25/12/2003 vai aparecer os 10..... bom... acho que é isso

[m/ster 0]

troquei o while por for e deu certo.. testai

 

<%AbreConexaoSQL = "SELECT TOP 6 * FROM tblnews ORDER BY data DESC"Set rs = Conexao.Execute(SQL)id_new = rs("id_new")Response.Write "<Table width=""427"" border=""0"" cellpadding=""5"" cellspacing=""0"">"Colunas=2 'Defina o número de colunasfor i=1 to 3  if rs.EOF then exit for  response.write"<tr>"  for x= 1 to Colunas    if rs.EOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça      response.write "<TD>-</TD>" 'Em caso de EOF ou BOF ele completa as colunas com "-"    else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça    response.write "<TD valign=""top"">"    response.write "<table width=""206"" height=""55"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" valign=""top"">"    response.write "<tr>"    response.write "<td width=""63"" valign=""top"">"    response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><img src='"&rs("img_principal")&"' border=""0"" width=""55"" height=""55""></a>"    response.write "</td>"    response.write "<td width=""143"" class=""fonte"" valign=""top"">"    response.write "<a href='ler.asp?codigo="&rs("id_new")&"'><font color=""#999999""><strong>"&rs("titulo")&"</strong>"    response.write "<br>"&fResumir(rs("headline"), qtd)&"</font></a></td>"    response.write "</tr>"    response.write "</table>"    response.write "</TD>"    rs.movenext    end if  next  response.write "</TR>"nextResponse.Write "</Table>"rs.closeFechaConexaoSet rs = nothing%>

[Daniel Paes 0]

Tipo... tem como, em vez de usar select top, colocar uma tabela pronta para mostrar os registros como tem no PHP... que você coloca ID[0], ID[1], ID[2]....ID[5]... ai você ordena por dataTem como???? espero que vcs tenham entendido..

[m/ster 0]

Tipo... tem como, em vez de usar select top, colocar uma tabela pronta para mostrar os registros como tem no PHP... que você coloca ID[0], ID[1], ID[2]....ID[5]... ai você ordena por dataTem como???? espero que vcs tenham entendido..

testou o codigo que coloquei?? ele funciona.. nem precisa usar o SELECT TOP 6 ... apenas usa SELECT * ....testa ele que ele funciona.. mostra apenas 6 registros..

[Daniel Paes 0]

Tipo... tem como, em vez de usar select top, colocar uma tabela pronta para mostrar os registros como tem no PHP... que você coloca ID[0], ID[1], ID[2]....ID[5]... ai você ordena por dataTem como???? espero que vcs tenham entendido..

testou o codigo que coloquei?? ele funciona.. nem precisa usar o SELECT TOP 6 ... apenas usa SELECT * ....testa ele que ele funciona.. mostra apenas 6 registros..

Aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee....... Aleluia................ hehehehehehehePow véio.... foi mal... eu tava procurando alguma coisa e nem vi seu post..... ta certinho é isso mesmo...... brigadão mesmo

[m/ster 0]

Tipo... tem como, em vez de usar select top, colocar uma tabela pronta para mostrar os registros como tem no PHP... que você coloca ID[0], ID[1], ID[2]....ID[5]... ai você ordena por dataTem como???? espero que vcs tenham entendido..

testou o codigo que coloquei?? ele funciona.. nem precisa usar o SELECT TOP 6 ... apenas usa SELECT * ....testa ele que ele funciona.. mostra apenas 6 registros..

Aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee....... Aleluia................ hehehehehehehePow véio.... foi mal... eu tava procurando alguma coisa e nem vi seu post..... ta certinho é isso mesmo...... brigadão mesmo

:rolleyes:/> :D/> :)/> B)/>