d:/ftp_library/ermo/search/<br>http://www.nyvej.dk/mortensen<br>/<br>d:/ftp_library/ermo/search/<br>
		<table align="CENTER" border="0">
        <form action="JavaScript:history.go(-1)" id="FORM2" method="post" name="FORM2">
          <input name="submit" type="submit" value="Back">
        </form></table>

<META NAME="description" CONTENT="" Filliste (Detail Page). Erik Mortensen>
<META NAME="keywords" CONTENT=", filliste (detail page),  filliste (detail page), one file footprint, Ermo, TEST,JMC ">

<TABLE WIDTH="100%">

<TR><TD ALIGN="LEFT" VALIGN="BOTTOM" BGCOLOR=silver><FONT FACE="Arial, Helvetica, sans-serif" SIZE=4 COLOR="#FFFFFF"><B>&nbsp;Filliste (Detail Page)</B></FONT></TD></TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP"><FONT FACE="Arial, Helvetica, sans-serif" SIZE=2>Use this page to view a single document on this web site.</FONT></TD></TR>
</TABLE>


<!-- begin karalist.asp -->
<!-- ---------------------------------------------------------- -->
<P><FONT FACE="Andale Mono, Monotype.com, Courier New, Courier, sans-serif" SIZE=4><B>d:\ftp_library\ermo\search\query.asp</B><BR>
<A HREF="http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/search/query.asp">http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/search/query.asp</A><BR></FONT>
<PRE>
    file size:  11.268 characters
 file created: &nbsp;<B>13. januar 2013 </B>&nbsp;14:25:38
last modified: &nbsp;<B>10. januar 2004 </B>&nbsp;13:35:08
</PRE>
<FORM ACTION="karalist.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="fsDIR" VALUE="d:\ftp_library\ermo\search\">
<TABLE BGCOLOR=silver><TR><TD>
<FONT TITLE="Use this text area to view this document. " FACE="Arial, Helvetica, sans-serif"SIZE=1><B>DOCUMENT CONTENTS</B></FONT><BR>
<TEXTAREA NAME="FILEDATA" ROWS=18 COLS=70 WRAP="OFF">&lt;!DOCTYPE HTML PUBLIC &quot;-//IETF//DTD HTML 3.0//EN&quot; &quot;html.dtd&quot;&gt;
&lt;html&gt;
&lt;head&gt;

&lt;%
        FormLogo = &quot;is2logo.gif&quot;
        FormBG = &quot;bgcolor = &quot; &amp; chr(34) &amp; &quot;#FFFFFF&quot; &amp; chr(34)
%&gt;

    &lt;title&gt;S&#248;gning p&#229; NYVEJ&lt;/title&gt;
&lt;%
FormScope = &quot;/opskrifter&quot;
PageSize = 10
SiteLocale = &quot;EN-US&quot;
%&gt;
&lt;link REL=&quot;STYLESHEET&quot; HREF=&quot;is2style.css&quot; TYPE=&quot;text/css&quot;&gt;
&lt;meta NAME=&quot;DESCRIPTION&quot; CONTENT=&quot;Sample ASP query form for Microsoft Index Server v2.0&quot;&gt;
&lt;meta NAME=&quot;AUTHOR&quot; CONTENT=&quot;Index Server Team&quot;&gt;
&lt;meta NAME=&quot;KEYWORDS&quot; CONTENT=&quot;query, content, hit&quot;&gt;
&lt;meta NAME=&quot;SUBJECT&quot; CONTENT=&quot;sample form&quot;&gt;
&lt;meta NAME=&quot;MS.CATEGORY&quot; CONTENT=&quot;Internet&quot;&gt;
&lt;meta NAME=&quot;MS.LOCALE&quot; CONTENT=&quot;EN-US&quot;&gt;
&lt;meta HTTP-EQUIV=&quot;Content-Type&quot; CONTENT=&quot;text/html; charset=Windows-1252&quot;&gt;
&lt;%
NewQuery = FALSE
UseSavedQuery = FALSE
SearchString = &quot;&quot;
QueryForm = Request.ServerVariables(&quot;PATH_INFO&quot;)
    if Request.ServerVariables(&quot;REQUEST_METHOD&quot;) = &quot;POST&quot; then
        SearchString = Request.Form(&quot;SearchString&quot;)
        FreeText = Request.Form(&quot;FreeText&quot;)
        ' NOTE: this will be true only if the button is actually pushed.
        if Request.Form(&quot;Action&quot;) = &quot;Go&quot; then
            NewQuery = TRUE
			RankBase=1000
        end if
    end if
    if Request.ServerVariables(&quot;REQUEST_METHOD&quot;) = &quot;GET&quot; then
        SearchString = Request.QueryString(&quot;qu&quot;)
                FreeText = Request.QueryString(&quot;FreeText&quot;)
                FormScope = Request.QueryString(&quot;sc&quot;)
				RankBase = Request.QueryString(&quot;RankBase&quot;)
        if Request.QueryString(&quot;pg&quot;) &lt;&gt; &quot;&quot; then
            NextPageNumber = Request.QueryString(&quot;pg&quot;)
            NewQuery = FALSE
            UseSavedQuery = TRUE
        else
            NewQuery = SearchString &lt;&gt; &quot;&quot;
        end if
    end if
%&gt;

&lt;/head&gt;

&lt;body &lt;%=FormBG%&gt;&gt;

&lt;table&gt;
    &lt;tr&gt;&lt;td&gt;&lt;img SRC=&quot;&lt;%=FormLogo%&gt;&quot; VALIGN=&quot;MIDDLE&quot; ALIGN=&quot;LEFT&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;
    &lt;tr&gt;&lt;td ALIGN=&quot;RIGHT&quot;&gt;&lt;h3&gt;S&#216;GNING I OPSKRIFTER P&#197; NYVEJ&lt;/h3&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;

&lt;p&gt;

        &lt;form ACTION=&quot;&lt;%=QueryForm%&gt;&quot; METHOD=&quot;POST&quot;&gt;
                &lt;table WIDTH=&quot;500&quot;&gt;
                        &lt;tr&gt;
                                &lt;td&gt;Skriv din s&#248;ge tekst:&lt;/td&gt;
                        &lt;/tr&gt;
                        &lt;tr&gt;
                                &lt;td&gt;&lt;input TYPE=&quot;TEXT&quot; NAME=&quot;SearchString&quot; SIZE=&quot;65&quot; MAXLENGTH=&quot;100&quot; VALUE=&quot;&lt;%=SearchString%&gt;&quot;&gt;&lt;/td&gt;
                                &lt;td&gt;&lt;input TYPE=&quot;SUBMIT&quot; NAME=&quot;Action&quot; VALUE=&quot;Go&quot;&gt;&lt;/td&gt;
                        &lt;/tr&gt;
                                &lt;tr&gt;
                                &lt;td ALIGN=&quot;RIGHT&quot;&gt;&lt;/td&gt;
                        &lt;/tr&gt;
                        &lt;tr&gt;
                        &lt;/tr&gt;
                        &lt;tr&gt;
                                &lt;td&gt;
                                        &lt;input NAME=&quot;FreeText&quot; TYPE=&quot;CHECKBOX&quot; &lt;% if FreeText = &quot;on&quot; then
                                                                                Response.Write(&quot; CHECKED&quot;)
                                                                end if %&gt;&gt;Brug fritekst s&#248;gning&lt;/a&gt;.
                                &lt;/td&gt;
                        &lt;/tr&gt;
                &lt;/table&gt;
        &lt;/form&gt;

&lt;br&gt;

&lt;%
  if NewQuery then
    set Session(&quot;Query&quot;) = nothing
    set Session(&quot;Recordset&quot;) = nothing
    NextRecordNumber = 1
    SrchStrLen = len(SearchString)
        if left(SearchString, 1) = chr(34) then
                SrchStrLen = SrchStrLen-1
                SearchString = right(SearchString, SrchStrLen)
        end if

        if right(SearchString, 1) = chr(34) then
                SrchStrLen = SrchStrLen-1
                SearchString = left(SearchString, SrchStrLen)
        end if

    if FreeText = &quot;on&quot; then
      CompSearch = &quot;$contents &quot; &amp; chr(34) &amp; SearchString &amp; chr(34)
    else
      CompSearch = SearchString
    end if

    set Q = Server.CreateObject(&quot;ixsso.Query&quot;)
        set util = Server.CreateObject(&quot;ixsso.Util&quot;)

    Q.Query = CompSearch
    Q.SortBy = &quot;rank[d]&quot;
    Q.Columns = &quot;DocTitle, vpath, filename, size, write, characterization, rank&quot;
	Q.MaxRecords = 300 


        if FormScope &lt;&gt; &quot;/&quot; then
                util.AddScopeToQuery Q, FormScope, &quot;deep&quot;
        end if

        if SiteLocale&lt;&gt;&quot;&quot; then
                Q.LocaleID = util.ISOToLocaleID(SiteLocale)
        end if

    set RS = Q.CreateRecordSet(&quot;nonsequential&quot;)

    RS.PageSize = PageSize
    ActiveQuery = TRUE

  elseif UseSavedQuery then
    if IsObject( Session(&quot;Query&quot;) ) And IsObject( Session(&quot;RecordSet&quot;) ) then
      set Q = Session(&quot;Query&quot;)
      set RS = Session(&quot;RecordSet&quot;)

      if RS.RecordCount &lt;&gt; -1 and NextPageNumber &lt;&gt; -1 then
        RS.AbsolutePage = NextPageNumber
        NextRecordNumber = RS.AbsolutePosition
      end if

      ActiveQuery = TRUE
    else
      Response.Write &quot;ERROR - No saved query&quot;
    end if
  end if

  if ActiveQuery then
    if not RS.EOF then
 %&gt;

&lt;p&gt;
&lt;hr WIDTH=&quot;80%&quot; ALIGN=&quot;center&quot; SIZE=&quot;3&quot;&gt;
&lt;p&gt;

&lt;%
        LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
        CurrentPage = RS.AbsolutePage
        if RS.RecordCount &lt;&gt; -1 AND RS.RecordCount &lt; LastRecordOnPage then
            LastRecordOnPage = RS.RecordCount
        end if

        Response.Write &quot;Documents &quot; &amp; NextRecordNumber &amp; &quot; to &quot; &amp; LastRecordOnPage
        if RS.RecordCount &lt;&gt; -1 then
            Response.Write &quot; of &quot; &amp; RS.RecordCount
        end if
        Response.Write &quot; matching the query &quot; &amp; chr(34) &amp; &quot;&lt;I&gt;&quot;
        Response.Write SearchString &amp; &quot;&lt;/I&gt;&quot; &amp; chr(34) &amp; &quot;.&lt;P&gt;&quot;
 %&gt;

&lt;% if Not RS.EOF and NextRecordNumber &lt;= LastRecordOnPage then%&gt;
		&lt;table border=&quot;0&quot;&gt;
		&lt;colgroup width=&quot;105&quot;&gt;
&lt;% end if %&gt;

&lt;% Do While Not RS.EOF and NextRecordNumber &lt;= LastRecordOnPage

%&gt;
    &lt;p&gt;

&lt;% 	if NextRecordNumber = 1 then
		RankBase=RS(&quot;rank&quot;)
	end if

	if RankBase&gt;1000 then
		RankBase=1000
	elseif RankBase&lt;1 then
		RankBase=1
	end if

	NormRank = RS(&quot;rank&quot;)/RankBase

	if NormRank &gt; 0.80 then
		stars = &quot;rankbtn5.gif&quot;
	elseif NormRank &gt; 0.60 then
		stars = &quot;rankbtn4.gif&quot;
	elseif NormRank &gt; 0.40 then
		stars = &quot;rankbtn3.gif&quot;
	elseif NormRank &gt;.20 then
		stars = &quot;rankbtn2.gif&quot;
	else stars = &quot;rankbtn1.gif&quot;

	end if

%&gt;

	&lt;tr class=&quot;RecordTitle&quot;&gt;
		&lt;td align=&quot;right&quot; valign=&quot;top&quot; class=&quot;RecordTitle&quot;&gt;
			&lt;%= NextRecordNumber%&gt;.
		&lt;/td&gt;
		&lt;td&gt;&lt;b class=&quot;RecordTitle&quot;&gt; 
			&lt;%if VarType(RS(&quot;DocTitle&quot;)) = 1 or RS(&quot;DocTitle&quot;) = &quot;&quot; then%&gt;
				&lt;a href=&quot;&lt;%=RS(&quot;vpath&quot;)%&gt;&quot; class=&quot;RecordTitle&quot;&gt;&lt;%= Server.HTMLEncode( RS(&quot;filename&quot;) )%&gt;&lt;/a&gt;
			&lt;%else%&gt;
				&lt;a href=&quot;&lt;%=RS(&quot;vpath&quot;)%&gt;&quot; class=&quot;RecordTitle&quot;&gt;&lt;%= Server.HTMLEncode(RS(&quot;DocTitle&quot;))%&gt;&lt;/a&gt;
			&lt;%end if%&gt;
		&lt;/b&gt;&lt;/td&gt;
	&lt;/tr&gt;

	&lt;tr&gt;
		&lt;td valign=&quot;top&quot; align=&quot;left&quot;&gt;
			&lt;img SRC=&quot;&lt;%=stars%&gt;&quot;&gt;
			&lt;br&gt;
&lt;%
    ' Construct the URL for hit highlighting
			WebHitsQuery = &quot;CiWebHitsFile=&quot; &amp; Server.URLEncode( RS(&quot;vpath&quot;) )
			WebHitsQuery = WebHitsQuery &amp; &quot;&amp;CiRestriction=&quot; &amp; Server.URLEncode( Q.Query )
			WebHitsQuery = WebHitsQuery &amp; &quot;&amp;CiBeginHilite=&quot; &amp; Server.URLEncode( &quot;&lt;strong class=Hit&gt;&quot; )
			WebHitsQuery = WebHitsQuery &amp; &quot;&amp;CiEndHilite=&quot; &amp; Server.URLEncode( &quot;&lt;/strong&gt;&quot; )
			WebHitsQuery = WebHitsQuery &amp; &quot;&amp;CiUserParam3=&quot; &amp; QueryForm
'	        WebHitsQuery = WebHitsQuery &amp; &quot;&amp;CiLocale=&quot; &amp; Q.LocaleID
 %&gt;
            &lt;a href=&quot;oop/qsumrhit.htw?&lt;%= WebHitsQuery %&gt;&quot;&gt;&lt;img src=&quot;hilight.gif&quot; align=&quot;left&quot; alt=&quot;Highlight matching terms in document using Summary mode.&quot; WIDTH=&quot;22&quot; HEIGHT=&quot;22&quot;&gt; Summary&lt;/a&gt;
			&lt;br&gt;
			&lt;a href=&quot;oop/qfullhit.htw?&lt;%= WebHitsQuery %&gt;&amp;amp;CiHiliteType=Full&quot;&gt;&lt;img src=&quot;hilight.gif&quot; align=&quot;left&quot; alt=&quot;Highlight matching terms in document.&quot; WIDTH=&quot;22&quot; HEIGHT=&quot;22&quot;&gt; Full&lt;/a&gt;
		&lt;/td&gt;
		&lt;td valign=&quot;top&quot;&gt;
			&lt;%if VarType(RS(&quot;characterization&quot;)) = 8 and RS(&quot;characterization&quot;) &lt;&gt; &quot;&quot; then%&gt;
				&lt;b&gt;&lt;i&gt;Abstract:  &lt;/i&gt;&lt;/b&gt;&lt;%= Server.HTMLEncode(RS(&quot;characterization&quot;))%&gt;
            &lt;%end if%&gt;
			&lt;p&gt;
			&lt;i class=&quot;RecordStats&quot;&gt;&lt;a href=&quot;&lt;%=RS(&quot;vpath&quot;)%&gt;&quot; class=&quot;RecordStats&quot; style=&quot;color:blue;&quot;&gt;http://&lt;%=Request(&quot;server_name&quot;)%&gt;&lt;%=RS(&quot;vpath&quot;)%&gt;&lt;/a&gt;
            &lt;br&gt;&lt;%if RS(&quot;size&quot;) = &quot;&quot; then%&gt;(size and time unknown)&lt;%else%&gt;size &lt;%=RS(&quot;size&quot;)%&gt; bytes - &lt;%=RS(&quot;write&quot;)%&gt; GMT&lt;%end if%&gt;&lt;/i&gt;
		&lt;/td&gt;
	&lt;/tr&gt;
	&lt;tr&gt;
	&lt;/tr&gt;

&lt;%
          RS.MoveNext
          NextRecordNumber = NextRecordNumber+1
      Loop
 %&gt;

&lt;/table&gt;

&lt;p&gt;&lt;br&gt;

&lt;%
  else   ' NOT RS.EOF
      if NextRecordNumber = 1 then
          Response.Write &quot;No documents matched the query&lt;P&gt;&quot;
      else
          Response.Write &quot;No more documents in the query&lt;P&gt;&quot;
      end if

  end if ' NOT RS.EOF


if NOT Q.OutOfDate then
' If the index is current, display the fact %&gt;
&lt;p&gt;
    &lt;i&gt;&lt;b&gt;The index is up to date.&lt;/b&gt;&lt;/i&gt;&lt;br&gt;
&lt;%end if


  if Q.QueryIncomplete then
 %&gt;

    &lt;p&gt;
    &lt;i&gt;&lt;b&gt;Din forsp&#248;rgelse vil tage forlang tid og er derfor sl&#248;jfet .&lt;/b&gt;&lt;/i&gt;&lt;br&gt;
&lt;%end if


  if Q.QueryTimedOut then
 %&gt;
    &lt;p&gt;
    &lt;i&gt;&lt;b&gt;Forsp&#248;rgelsen tog for lang tid.&lt;/b&gt;&lt;/i&gt;&lt;br&gt;
&lt;%end if%&gt;


&lt;table&gt;

&lt;%SaveQuery = FALSE%&gt;
&lt;%if CurrentPage &gt; 1 and RS.RecordCount &lt;&gt; -1 then %&gt;
    &lt;td align=&quot;left&quot;&gt;
        &lt;form action=&quot;&lt;%=QueryForm%&gt;&quot; method=&quot;get&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;qu&quot; VALUE=&quot;&lt;%=SearchString%&gt;&quot;&gt;
                        &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;FreeText&quot; VALUE=&quot;&lt;%=FreeText%&gt;&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;sc&quot; VALUE=&quot;&lt;%=FormScope%&gt;&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; name=&quot;pg&quot; VALUE=&quot;&lt;%=CurrentPage-1%&gt;&quot;&gt;
			&lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;RankBase&quot; VALUE=&quot;&lt;%=RankBase%&gt;&quot;&gt;
            &lt;input type=&quot;submit&quot; value=&quot;Previous &lt;%=RS.PageSize%&gt; documents&quot;&gt;
        &lt;/form&gt;
    &lt;/td&gt;
        &lt;%SaveQuery = TRUE%&gt;
&lt;%end if%&gt;


&lt;%
  if Not RS.EOF then%&gt;
    &lt;td align=&quot;right&quot;&gt;
        &lt;form action=&quot;&lt;%=QueryForm%&gt;&quot; method=&quot;get&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;qu&quot; VALUE=&quot;&lt;%=SearchString%&gt;&quot;&gt;
                        &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;FreeText&quot; VALUE=&quot;&lt;%=FreeText%&gt;&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;sc&quot; VALUE=&quot;&lt;%=FormScope%&gt;&quot;&gt;
            &lt;input TYPE=&quot;HIDDEN&quot; NAME=&quot;RankBase&quot; VALUE=&quot;&lt;%=RankBase%&gt;&quot;&gt;
			&lt;input TYPE=&quot;HIDDEN&quot; name=&quot;pg&quot; VALUE=&quot;&lt;%=CurrentPage+1%&gt;&quot;&gt;

            &lt;% NextString = &quot;Next &quot;
               if RS.RecordCount &lt;&gt; -1 then
                   NextSet = (RS.RecordCount - NextRecordNumber) + 1
                   if NextSet &gt; RS.PageSize then
                       NextSet = RS.PageSize
                   end if
                   NextString = NextString &amp; NextSet &amp; &quot; documents&quot;
               else
                   NextString = NextString &amp; &quot; page of documents&quot;
               end if
             %&gt;
            &lt;input type=&quot;submit&quot; value=&quot;&lt;%=NextString%&gt;&quot;&gt;
        &lt;/form&gt;
    &lt;/td&gt;
    &lt;%SaveQuery = TRUE%&gt;
&lt;%end if%&gt;

&lt;/table&gt;

&lt;% ' Display the page number %&gt;

Page &lt;%=CurrentPage%&gt;
&lt;%if RS.PageCount &lt;&gt; -1 then
     Response.Write &quot; of &quot; &amp; RS.PageCount
  end if %&gt;

&lt;%
    
    if SaveQuery then
        set Session(&quot;Query&quot;) = Q
        set Session(&quot;RecordSet&quot;) = RS
    else
        RS.close
        Set RS = Nothing
        Set Q = Nothing
        set Session(&quot;Query&quot;) = Nothing
        set Session(&quot;RecordSet&quot;) = Nothing
    end if
 %&gt;
&lt;% end if %&gt;

&lt;!--#include file =&quot;is2foot.inc&quot;--&gt;

&lt;/body&gt;
&lt;/html&gt;

</TEXTAREA>
</TD></TR></TABLE>

<BR><BR>

</FORM>

<!-- ---------------------------------------------------------- -->
<!-- end karalist.asp -->

		<table align="CENTER" border="0">
        <form action="JavaScript:history.go(-1)" id="FORM2" method="post" name="FORM2">
          <input name="submit" type="submit" value="Back">
        </form></table>

<HR><FONT SIZE=1 FACE="Arial, Helvetica, sans-serif"><FONT COLOR=silver SIZE=3 FACE="Arial, Helvetica, sans-serif">Erik Mortensen</FONT>
<BR>20. december 2025 &nbsp; 03:56:43
</BODY></HTML>