Få fram antalet träffar?

Finns garanterat ett mer optimerat sätt att få fram antalet sökningar än denna koden och som vanligt är jag öppen för förslag.
Det som jag skulle vilja få fram är hur många sökningar som har gjorts på ordet som loopas fram (om det nu går).

<%
Dim Rs,myArray,i,ord

Set Rs = Connect.Execute("Select DISTINCT ord From sokord Order BY ord DESC LIMIT 10")

myArray = Rs.GetRows()
Rs.Close : Set Rs = Nothing

For i = 0 To UBound(myArray,2)

ord=myArray(0,i)

If Len(ord) > 15 Then
Response.Write  Left(ord,15) & "..."
Else
Response.Write ord
End If

Response.Write("<br>")

Next

Set ord=nothing
%>