Hallo zusammen,

ich bräuchte bitte mal Eure Hilfe

Ich habe das Suchsript von Christop Wille http://www.aspheute.com/artikel/20010403.htm in meine Suche eingebaut. Hier der Code

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

<% Const cstrCatalog = "Sales" Const cMinKeywordLength = 3 Const cMaxRecords = 50   If Len(Suchwort) >= cMinKeywordLength Then     strIXQuery = "$CONTENTS " & Suchwort     strIXQuery = strIXQuery & " AND NOT #VPath = *\include* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\db* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\colorpicker* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\images* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\js* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\pics* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\popups* "     strIXQuery = strIXQuery & " AND NOT #VPath = *\download* "     strIXQuery = strIXQuery & " AND NOT #filename check.asp "     strIXQuery = strIXQuery & " AND NOT #filename Feedback.asp "     strIXQuery = strIXQuery & " AND NOT #filename footer.asp "     strIXQuery = strIXQuery & " AND NOT #filename default1.asp "     strIXQuery = strIXQuery & " AND NOT #filename menue.asp "     strIXQuery = strIXQuery & " AND NOT #filename news.asp "     strIXQuery = strIXQuery & " AND NOT #filename rechts* "     strIXQuery = strIXQuery & " AND NOT #filename view* "     strIXQuery = strIXQuery & " AND NOT #filename blank.html "     strIXQuery = strIXQuery & " AND NOT #filename *.|(txt|,inc|,udl|,mdb|,css|,js|,asa|,doc|,xls|,pdf|)"         Set objQuery = Server.CreateObject("IXSSO.Query")     Set objUtil = Server.CreateObject("IXSSO.Util")         objQuery.Query = strIXQuery     objQuery.Columns = "Vpath,DocTitle,Filename,Characterization,Contents,Rank"     objQuery.SortBy = "Rank[d]"     objQuery.MaxRecords = cMaxRecords     objquery.Catalog = cstrCatalog     objquery.LocaleID = objutil.ISOToLocaleID("EN-US")       Set rsIX = objQuery.CreateRecordset("nonsequential")     While Not rsIX.EOF         Response.Write "<tr><td valign='top' width='100%' colspan='2' class='ueberschriftstart'><a href=""" & rsIX("VPath") & """>"         Response.Write rsIX("DocTitle") & "</a></td></tr>" & vbCrlf         Response.Write "<tr><td valign='top' width='100%' colspan='2' class='text'>" & rsIX("Characterization") & "</td></tr>"         rsIX.MoveNext     count = count + 1     Wend     rsIX.Close     Set rsIX = Nothing     Set objUtil = Nothing     Set objQuery = Nothing End If %>

Die Ausgabe sieht jetzt auch vernünftig aus und die richtigen Ergebnisse werden angezeigt. Nur der Dateiname im Pfad (VPath) fehlt. Woran könnte das liegen? Lasse ich mir den physikalischen Pfad ausgeben, dann ist der Dateiname darin enthalten .

Vielen Dank für Eure Hilfe!

Viele Grüße

webkekse

Sorry für evtl. Mühen! Habe es selbst gefunden:
der Filename muß noch dazu

& rsIX("VPath") & rsIX("Filename") &