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
%>