<% Response.Expires = 0 %> Test page 3 for IXSSO tests.

Test 3 for IXSSO.

Create a query object, set query parameters, execute query and instantiate a non-sequential recordset. Use ADO to iterate over all rows in the recordset and print fields from the storage property set.

<% set Q=Server.CreateObject("IXSSO.Query") Q.Columns = "filename, rank, path, size, write" Q.Query = "#filename *.asp" Q.SortBy = "rank[d]" set Util=Server.CreateObject("IXSSO.Util") Util.AddScopeToQuery Q, "/" Q.Catalog = "web" Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE Q.MaxRecords = 20000 %> 
Query =   <%= Q.Query%>
Columns = <%= Q.Columns%>
SortBy =  <%= Q.SortBy%>

CiScope =	<%= Q.CiScope%>
CiFlags =	<%= Q.CiFlags%>
Catalog =	<%= Q.Catalog%>
CiMachine =	<%= Q.CiMachine%>

OptimizeFor =      <%= Q.OptimizeFor%>
AllowEnumeration = <%Response.Write(CStr(Q.AllowEnumeration))%>
MaxRecords =       <%= Q.MaxRecords%>
<% set RS=Q.CreateRecordSet( "nonsequential" ) %> 
QueryTimedOut =	<%if Q.QueryTimedOut then Response.Write("TRUE") else Response.Write("FALSE") %>
QueryIncomplete =	<%if Q.QueryIncomplete then Response.Write("TRUE") else Response.Write("FALSE") %>
OutOfDate =	<%if Q.OutOfDate then Response.Write("TRUE") else Response.Write("FALSE") %>

RS.EOF =	<%if RS.EOF then Response.Write("TRUE") else Response.Write("FALSE") %>
RS.BOF =	<%if RS.BOF then Response.Write("TRUE") else Response.Write("FALSE") %>
RS.RecordCount =	<%= RS.RecordCount%>
<% RS.MoveFirst %> After RS.MoveFirst 
RS.EOF =	<%if RS.EOF then Response.Write("TRUE") else Response.Write("FALSE") %>
RS.BOF =	<%if RS.BOF then Response.Write("TRUE") else Response.Write("FALSE") %>
<% RecordNumber = 1 %> <% Do While Not RS.EOF %> <%if RecordNumber <> 1 then %> <%else%> <%end if%> <% RS.MoveNext RecordNumber = RecordNumber+1 Loop RS.close Set RS = Nothing %>
File name Rank Path Size Write
<%=RS.Fields("FileName").Value%> <%=RS.Fields("Rank").Value%> "><%=RS("Path").Value%> <%=RS.Fields("Size").Value%> <%=RS.Fields("Write").Value%> <%=RS("FileName")%> <%=RS("Rank")%> "><%=RS("Path")%> <%=RS("Size")%> <%=RS("Write")%>