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

Test 4 for IXSSO.

Define an alias name for DocTitle, 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 in the query.

<% set Q=Server.CreateObject("IXSSO.Query") Q.DefineColumn "Title = F29F85E0-4FF9-1068-AB91-08002B27B3D9 2" Q.Columns = "Filename, Rank, vpath, Size, Write, Title" Q.Query = "#filename *.asp*" Q.SortBy = "rank[d]" Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE Q.MaxRecords = 20000 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%>
<% RecordNumber = 1 %> <% Do While Not RS.EOF %> <% RS.MoveNext RecordNumber = RecordNumber+1 Loop RS.close Set RS = Nothing %>
Title Rank Path Size Write
<%if RS("Title") <> "" then Response.Write(RS("Title")) else Response.Write(RS("FileName")) end if%> <%=RS("Rank")%> ">http:<%=RS("vpath")%> <%=RS("Size")%> <%=RS("Write")%>