<% order = "a" query = trim(Request.Form("query")) set objQuery = Server.CreateObject("ixsso.Query") objQuery.SortBy = "DocTitle[" & order & "]" objQuery.Query = "@contents " & query objQuery.Columns = "DocTitle, Size, vpath, filename" 'Anfang --- Hier denn Katalog-Namen einsetzen, jetzt ist er Test objQuery.Catalog = "hausinweb" 'Ende --- Hier denn Katalog-Namen einsetzen Response.Write "" Response.Write "" Response.Write "" Response.Write "" objQuery.MaxRecords = 200 if len(query) > 1 then set objRS = objQuery.CreateRecordset("nonsequential") if objRS.EOF then Response.Write "Sorry - no matches found, please try other expressions." & "

" else ' Response.Write "Search results:

" ' Response.Write "

" do while not objRS.EOF Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" objRS.MoveNext loop end if end if Response.Write "

Title" Response.Write "	Link" Response.Write "	Size
" & objRS("DocTitle") & "	" Response.Write objRS("filename") & "	" & objRS("Size") & "

" %>