<%
' This sample demonstrates executing a query and checking for any errors that  
' may occured.  

' 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

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

if (SearchResults.Count = 0) And (SearchResults.Error <> "") then
  Response.Write "Search Error: " & SearchResults.Error
end  if  
%>