% Dim idx, rs Set idx = Server.CreateObject("IXSSO.Query") idx.Catalog = "www.shakespeare-online.com" idx.Columns = "Characterization,Size,Vpath,Rank,Filename,DocTitle" idx.SortBy = "Rank[d]" idx.MaxRecords = 100 idx.Query = Request.QueryString("Query") Set rs = idx.CreateRecordset("sequential") %>
|
||||||||||||||||||||||
|
|
|||||||||||||||||||||
|
|
|||||||||||||||||||||
| home
| what's new
| about this site
| contact
| notice of copyright
| ©1999-2021 Shakespeare Online. All Rights Reserved. |