<%
' This sample demostrates creating a new ISYSSearch object and specifying the  
' QueryText, QuerySource and QueryType, applying synonyms and executing it to  
' get the result list.  

' Create the new ISYSSearch object  
dim ISYSSearch : set ISYSSearch = ISYSEngine.NewSearch

' Specify the Index to Search
ISYSSearch.QuerySource = "c:\indexes\documents"  

' Specify the Query Text
ISYSSearch.QueryText = "Policies"  

' Specify the Query Type
ISYSSearch.QueryType = isysQueryISYS

' Creating dynamic synonymn ring
ISYSSearch.Synonymns.Add Array("GST", "Goods and Services Tax")
ISYSSearch.Synonymns.Add Array("HR", "Human Resources")
ISYSSearch.Synonymns.Add Array("Cell", "Cell Phone", "Mobile Phone")

' Execute the Search  
dim SearchResults : set SearchResults = ISYSSearch.Execute
%>