Halloj där ute

Jag har en fråga.
Jag har en Accessdatabas med nyheter och tänkte lista de fem senaste på sidan, mitt problem ligger dock i att jag inte alltid kan vara säker på att det finns fem nyheter att visa då databasen kanske innehåller 1-4 rader.

Hur göra?

Om man gör en
<code>
For x=1 to 5

response.write VO("NewsText")

VO.MoveNext
Next
</code>
fungerar inte helt fläckfritt om man säger så, då radantalet understiger 5.

Kör en SELECT COUNT(databasfält) as AntalPoster From tabell på din databas först för att se om posterna överstiger 4 poster. Skriv sedan in en;

If AntalPoster < 5 Then
Din selectdsats... "SELECT TOP " & AntalPoster & " FROM ..."
For x = 1 to AntalPoster
response.write VO("NewsText")
VO.MoveNext
Next
Else
Din selectdsats... "SELECT TOP 5 FROM ..."
For x = 1 to 5
response.write VO("NewsText")
VO.MoveNext
Next
End If

Typ så skulle säkert kunna fungera

Halloj själv...

testa detta (har inte provkört...men bör funka :-)

<code>
dim intCounter

intCounter = 0

do until VO.EOF

response.write VO("NewsText")
VO.MoveNext

intCounter = intCounter + 1
if (5 = intCounter) then exit do

loop
</code>

//Jörgen

Mange takk