2 replies to this topic

[alessancost]

Alguém pode me ajudar?! Ta quase funcionando perfeitamente... só tenho que fazer agora aparecer os dez últimos. O estranho que coloquei <%SQL2 = "Select top 10 datapost, titpost... mas aparece onze e se eu colocar nove aparece os novo, ou seja não aparece dez.

<%SQL2 = "Select top 10 datapost, titpost, id From posts where id <> " & id & " AND autorpost = '" & autor & "' order by datapost desc"
Set Rs = ConnDB.Execute(SQL2) 
postautor = 0
While not Rs.EOF 
if postautor = 0 then 
postautor = 1%>
<div class="linha05">Outros posts do Autor</div>
<%end if
data2 = Rs("datapost")
data = split(Rs("datapost"),"/")
dia = data(0)
mes = data(1)
ano = data(2)
if len(dia) = 1 then
dia = "0" & dia
end if
if len(mes) = 1 then
mes = "0" & mes
end if
if len(ano) = 1 then
mes = "0" & ano
end if
datapost = dia &"/"& mes &"/"& Right(ano, 2)%>
<div class="fonte01"></div><div class="fonte06"><font title="Data do Post"><%= datapost %></font> - <a href="../blog/post.asp?id=<%= Rs("id") %>" title="Ler o Post"> <%= Rs("titpost") %></a></div>
<%data = Rs("datapost")
Rs.MoveNext 
Wend%>

Obrigado

[Generation]

É isso acontece porque há um empate e ele seleciona o outro dado se voce tivesse mais dados empatados ele ia mostrar eles tbem...

O que sugiro é voce colocar um contador no seu laço de repetição...fazendo...

While not Rs.EOF AND Contador < 10

e acrescentar + 1 no final dele ...

Contador = Contador + 1
Rs.MoveNext
Wend

[]'s

[alessancost]

Funciou 100% Generation. Muito obrigado