script vil ikke gå i loop

Jeg forsøger at lave en loop i det her script, som kun viser 3 poster - en TOP3 over mine records. Men der sker intet. Jeg har lagt "For i=0 To 2" omkring det stykke, som altså kun skal vise 3 rækker i tabellen, istedet for hele tabellen. Men Hele tabellen vises alligevel. Hvad går galt?

strSQL = "SELECT * FROM afstemAlbums ORDER BY Points DESC"
objRS.Open strSQL, objConn

For i=0 To 2
Do While Not objRS.EOF
  If objRS("AntalStemmer") > 0 Then
    dblScore = Round(objRS("Points") / objRS("AntalStemmer"), 1)
    strKarakter = ""
    For score = 1 To CInt(dblScore)
      strKarakter = strKarakter & "<img src='grafik/rate.gif'>"
    Next
    strKarakter = strKarakter & dblScore
  Else
    strKarakter = "Ingen stemmer"
  End If
  HTML = HTML & "<tr><td>" & objRS("Titel") & "<i> (" & objRS("UdgivelseAar") & ")</i></td><td>"
  HTML = HTML & strKarakter
  HTML = HTML & "</td></tr>"
  objRS.MoveNext
Loop
HTML = HTML & "</table>"
next
%>


<%= HTML%>