Index Server Suche

webkekse

Grünschnabel
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:
<%
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
 
Zuletzt bearbeitet:

Neue Beiträge

Zurück