strSQL = "SELECT fnamn, enamn FROM tabell"
Set rsPerson = [i]connection[/i].Execute(strSQL, , 1)
While Not rsPerson.EOF
strSQL = "SELECT TOP 10 point FROM tabell WHERE fnamn = '" & rsPerson("fnamn") & "' AND enamn = '" & rsPerson("enamn") & _
"' ORDER BY point DESC"
Set rsPoint = [i]connection[/i].Execute(strSQL, , 1)
intTotalPoint = 0
For i = 1 To 10
intTotalPoint = intTotalPoint + CInt(rsPoint("point"))
rsPoint.MoveNext
If rsPoint.EOF Then Exit For [blue]'Ifall personen inte har 10 poäng...[/blue]
Next
Response.Write rsPerson("fnamn") & " " & rsPerson("enamn") & " har totalpoäng: " & intTotalPoint
rsPerson.MoveNext
Wend
Jag använder en for-loop, eftersom Access (om du nu kör det) inte hanterar TOP speciellt smart.
