nicht angemeldet
Ich bin am proggen einer website-internen "Suchmaschine"...
Leider gibt es Probleme beim Suchformular, oder besser gesagt beim Darstellen der Suchergebnisse... Also der Catalog ist in Ordnung, so viel ist klar! Die Sucheingabe ist auch O.K., aber eben die Ausgabe, bzw. Auflistung der Ergebnisse funktioniert nicht so ganz wie ich es mir vorstelle... Bitte checkt das Problem doch mal ab! Bin jeder Hilfe dankbar!
==> http://www.herznach.ch/search.asp <==
(Suchwort "herznach" verwenden!)
Der Quelltext von search.asp:
<html>
<head>
<title>Suchen</title>
</head>
<body bgcolor="#ffffff">
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<input type="text" name="SearchKeyword" value="" size="20">
<input type="submit" value="Suche starten!">
</form>
<p> </p>
<%
Const cstrCatalog = "herznach"
Const cMinKeywordLength = 3
Const cMaxRecords = 50
strKeyword = Trim(Request.Form("SearchKeyword"))
If Len(strKeyword) >= cMinKeywordLength Then
strIXQuery = "$CONTENTS " & strKeyword
strIXQuery = strIXQuery & " AND NOT #VPath = *\includes* "
strIXQuery = strIXQuery & " AND NOT #filename login.asp "
strIXQuery = strIXQuery & " AND NOT #filename *.|(txt|,inc|,udl|,doc|)"
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 "<p><a href=" & rsIX("Filename") & ">"
Response.Write rsIX("DocTitle") & "</a><br>" & vbCrlf
Response.Write "<i>" & rsIX("Characterization") & "</i></p>"
rsIX.MoveNext
Wend
rsIX.Close
Set rsIX = Nothing
Set objUtil = Nothing
Set objQuery = Nothing
End If
%>
</body>
</html>