Code :
<% set objQuery =Server.CreateObject("ixsso.Query" ) objQuery.Catalog = "telindus" objQuery.Columns = "Characterization, DocTitle, Filename, Path, Rank, Size, Vpath, Write, objecttype" objQuery.SortBy = "Rank[d], size" Set objUtil = Server.CreateObject("ixsso.Util" ) objUtil.AddScopeToQuery objQuery, "/", "deep" objQuery.Query = "(@objecttype = 22)" set RecSet = objQuery.CreateRecordset("nonsequential" ) while not RecSet.EOF Response.Write "<A HREF=""" & RecSet("vPath" ) & """>" & RecSet("DocTitle" ) & "</A><BR>" & vbCrLf Response.Write "<b>Summary: </b>" & RecSet("Characterization" ) & "<BR>" & vbCrLf Response.Write "<b>Rank: </b>" & RecSet("Rank" ) & "<BR>" & vbCrLf Response.Write "<b>Size: </b>" & RecSet("Size" ) & "<BR>" & vbCrLf Response.Write "<b>Last Update: </b>" & RecSet("Write" ) & "<HR>" & vbCrLf RecSet.MoveNext wend %>
|