Equestrian Article Library Search

<% ' search the Indexing Service catalog 'Make sure the user entered something strQuery = Request("UserRestriction") If strQuery > "" Then Set objQuery = Server.CreateObject("ixsso.query") Set objUtil = Server.CreateObject("ixsso.util") ' keyword search myquery = myquery & "$CONTENTS " & strQuery ' Exclude specific folders%> <%'%> <% ' Exclude specific filenames myquery=myquery & " and not #filename indexmaster.asp" myquery=myquery & " and not #filename index.asp" myquery=myquery & " and not #filename indexold.asp" ' Exclude specific extensions 'myquery=myquery & " and not #filename *.|(txt|,inc|,htm|,mdb|,cnt|,class|,toc|,html|,css|)" 'myquery="$CONTENTS dsn" objQuery.Query=myQuery objQuery.Columns = "Vpath, DocTitle, Rank" ' objQuery.Columns = "Vpath, DocTitle, Filename, Characterization, Contents,DocKeyWords, Rank" 'objquery.Columns = "DocTitle, vpath, filename, size, write, characterization, rank" objQuery.SortBy = "Rank [d]" objQuery.MaxRecords = 50 objquery.catalog="TodaysHorse.com" objUtil.AddScopeToQuery objQuery, "/", "deep" objquery.LocaleID = objutil.ISOToLocaleID("EN-US") linebr="
" & vbcrlf Set rstemp = objQuery.CreateRecordSet("nonsequential") If rstemp.BOF Then Response.Write("BOF") ElseIf rstemp.EOF Then Response.Write("EOF") End If%> <% End If %>

Anatomy and Physiology	Holistic Care
Ask the Expert	Instruction, Training and Clinics
The Barn	Rider
Buying, Selling, and Leasing	Riding and Training
Feeds and Nutrition	Tack and Equipment
Health and Vet Care