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

Test 2 for IXSSO.

Create a query object, set query parameters, execute query and instantiate a 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, vpath, size, write" Q.Query = "#filename *.asp*" Q.SortBy = "rank[d]" set Util=Server.CreateObject("IXSSO.Util") Util.AddScopeToQuery Q, "/" Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE Q.MaxRecords = 20000 %> 
Query =   <%= Q.Query%>
Columns = <%= Q.Columns%>
CiScope = <%= Q.CiScope%>
CiFlags = <%= Q.CiFlags%>
SortBy =  <%= Q.SortBy%>

Catalog =          <%= Q.Catalog%>
OptimizeFor =      <%= Q.OptimizeFor%>
AllowEnumeration = <%Response.Write(CStr(Q.AllowEnumeration))%>
MaxRecords =       <%= Q.MaxRecords%>
<% set RS=Q.CreateRecordSet( "sequential" ) %> 
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") %>
<% Do While Not RS.EOF %> <% RS.MoveNext Loop RS.close Set RS = Nothing %>
File name Rank Vpath Size Write
<%=RS("Filename")%> <%=RS("Rank")%> "><%=RS("vpath")%> <%=RS("Size")%> <%=RS("Write")%>