d:/ftp_library/ermo/
http://www.nyvej.dk/mortensen
/
d:/ftp_library/ermo/

Filliste (Detail Page)

Use this page to view a single document on this web site.

d:\ftp_library\ermo\searchresults.asp
http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/searchresults.asp

    file size:  1.538 characters
 file created:  13. januar 2013  14:20:45
last modified:  10. januar 2004  12:52:04

DOCUMENT CONTENTS

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Index Server Example Search Results Page</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 2">

</head>

<body>
<%
Dim sSearchString
Dim oQuery

sSearchString = Request.Form("query")

Const SEARCH_CATALOG = "/mortensen" 'remember to change this
%>
<%
Set oQuery = Server.CreateObject("IXSSO.Query")

oQuery.Catalog = SEARCH_CATALOG
oQuery.Query = "@all " & sSearchString & " AND NOT #path *_* AND NOT #path *downloads* AND NOT #path *images* AND NOT #filename *.class AND NOT #filename *.asa AND NOT #filename *.css AND NOT #filename *postinfo.html"
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.Columns = "DocAuthor, vpath, doctitle, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
%>
<%
If oRS.EOF Then
Response.Write "No pages were found for the query " & sSearchString & ""
Else
Do While Not oRS.EOF

Response.write "FileName: " & oRS("FileName") & " "
Response.write "doctitle: " & oRS("doctitle") & " "
Response.write "Size: " & oRS("Size") & " "
Response.write "Create: " & oRS("Create") & " "
Response.write "Write: " & oRS("Write") & " "
Response.write "Characterization: " & oRS("Characterization") & "<hr>"

oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>

Erik Mortensen
20. december 2025 02:33:31