<% Response.Expires = 0 %>
Test page 10 for IXSSO tests.
Test 10 for IXSSO.
Test multi-scoped queries.
<%
set Util=Server.CreateObject("IXSSO.Util")
set Q=Server.CreateObject("IXSSO.Query")
Q.Columns = "Filename, Rank, vpath, Size, Write"
Q.Query = "#filename *.asp*"
Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/aspsamp", "SHALLOW"
Q.OptimizeFor = "recall"
Q.AllowEnumeration = TRUE
Q.MaxRecords = 20000
set RS=Q.CreateRecordSet( "nonsequential" )
RecordCount1 = RS.RecordCount
if RecordCount1 = 0 then
Response.Write "no records returned from first query
"
end if
RS.close
Set RS = Nothing
Q.Reset
Q.Columns = "Filename, Rank, vpath, Size, Write"
Q.Query = "#filename *.asp*"
Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/ixstest"
Q.OptimizeFor = "recall"
Q.AllowEnumeration = TRUE
Q.MaxRecords = 20000
set RS=Q.CreateRecordSet( "nonsequential" )
RecordCount2 = RS.RecordCount
if RecordCount2 = 0 then
Response.Write "no records returned from second query
"
end if
RS.close
Set RS = Nothing
Q.Reset
Q.Columns = "Filename, Rank, vpath, Size, Write"
Q.Query = "#filename *.asp*"
Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/aspsamp", "SHALLOW"
Util.AddScopeToQuery Q, "/ixstest"
Q.OptimizeFor = "recall"
Q.AllowEnumeration = TRUE
Q.MaxRecords = 40000
set RS=Q.CreateRecordSet( "nonsequential" )
RecordCount3 = RS.RecordCount
if RecordCount3 <> RecordCount1+RecordCount2 then
Response.Write "Error - third query is not union of first and second queries
"
end if
RS.close
Set RS = Nothing
%>
Record count 1 = <%= RecordCount1 & "
"%>
Record count 2 = <%= RecordCount2 & "
"%>
Record count 3 = <%= RecordCount3 & "
"%>