<%
' Executes a prepared ISYSSearch objectSet results = Search.Execute
' Extracts the word list from the results
wordList = Split(Results.Stats, Chr(13))
%>
<%
ForEach Word in wordList
Parts = Split(word, Chr(9))
%><%= Parts(0) %> occurs <%= Parts(1) %> times <br /><%
Next%>