[VBScript]
<%
dim ISYSSearch : set ISYSSearch = ISYSEngine.NewSearch
ISYSSearch.QuerySource = "c:\indexes\documents"
ISYSSearch.QueryText = "Policies"
ISYSSearch.QueryType = isysQueryISYS
Set Results = ISYSSearch.Execute
if (Results.Length = 0) And (Results.Error <> "") then
Response.Write "Search Error: " & Results.Error
end if
%>
|