Kan det være noget i minimanualquery.asp som fejler?
iså fald er den her :)
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
<html>
<head><script LANGUAGE="VBScript" RUNAT="Server">
<!--
option explicit
-->
</script>
<title></title>
<STYLE>
body { color: #000000; font-size: 10pt; font-family: Verdana; a: link color #000099;
background-image: url('../../../../../images/bg_body.jpg');
background-repeat: repeat-x;
margin-top: 19px;
background-position: left top;
background-attachment: fixed; }
</STYLE>
<link REL="STYLESHEET" HREF="is2style.css" TYPE="text/css">
<meta NAME="MS.CATEGORY" CONTENT="Internet">
<meta NAME="MS.LOCALE" CONTENT="EN-US">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Windows-1252">
<%
DebugFlag = FALSE
NewQuery = FALSE
UseSavedQuery = FALSE
SearchString = ""
FilenameString = "not *.|(htm|,asp|,html|)"
QueryForm = Request.ServerVariables("PATH_INFO")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Write "<!--POST1=TRUE::Action??=" & Request.Form("Action") & "-->"
SearchString = Request.Form("SearchString")
FilenameString = Request.Form("FilenameString")
' DocAuthorRestriction = Request.Form("DocAuthorRestriction")
' FSRest = Request.Form("FSRest")
' FSRestVal = Request.Form("FSRestVal")
' FSRestOther = Request.Form("FSRestOther")
' FMMod = Request.Form("FMMod")
' FMModDate = Request.Form("FMModDate")
SortBy = Request.Form("SortBy")
Colset = Request.Form("ColChoice")
Scope = Request.Form("Scope")
RankBase = Request.Form("RankBase")
' NOTE: this will be true only if the button is actually pushed.
if Request.Form("Action") = "Søg" then
NewQuery = TRUE
Response.Write "<!--POST2=TRUE-->"
elseif Request.Form("pg") <> "" then
Response.Write "<!--POST=FALSE-->"
UseSavedQuery=TRUE
NextPageNumber = Request.Form("pg")
Else
Response.Write "<!--Spadser-->"
end if
end if
%>
</head>
<body OnLoad="SetAll()" LANGUAGE="JavaScript" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" text="#000000">
<table BORDER=0 width="97%" height="43" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="3" width="639" height="39" align="left" valign="top">
<h2><font face="Arial">
Søg i MiniManualen</font></h2>
</td>
</tr>
</table>
<script LANGUAGE="JavaScript">
<!--
function SetAll()
{
document.QForm.SearchString.value = "<%=SearchString%>";
document.QForm.SearchString.focus();
document.QForm.FilenameString.value = "<%=FilenameString%>";
/* <%'select case FSRest%>
<%'case " > "%>
document.QForm.FSRest.selectedIndex = 1;
<%'case else%>
document.QForm.FSRest.selectedIndex = 0;
<%'end select%>
<%'select case FSRestVal%>
<%'case "any"%>
document.QForm.FSRestVal.selectedIndex = 0;
<%'case "100"%>
document.QForm.FSRestVal.selectedIndex = 1;
<%'case "1024"%>
document.QForm.FSRestVal.selectedIndex = 2;
<%'case "10240"%>
document.QForm.FSRestVal.selectedIndex = 3;
<%'case "102400"%>
document.QForm.FSRestVal.selectedIndex = 4;
<%'case "1048576"%>
document.QForm.FSRestVal.selectedIndex = 5;
<%'case "10485760"%>
document.QForm.FSRestVal.selectedIndex = 6;
<%'case "104857600"%>
document.QForm.FSRestVal.selectedIndex = 7;
<%'case "other"%>
document.QForm.FSRestVal.selectedIndex = 8;
<%'case else%>
document.QForm.FSRestVal.selectedIndex = 0;
<%'end select%>
document.QForm.FSRestOther.value = "<%=FSRestOther%>";
*/
/* <%'select case FMMod%>
<%'case "any"%>
document.QForm.FMMod.selectedIndex = 0;
<%'case "-10n"%>
document.QForm.FMMod.selectedIndex = 1;
<%'case "-1h"%>
document.QForm.FMMod.selectedIndex = 2;
<%'case "-1d"%>
document.QForm.FMMod.selectedIndex = 3;
<%'case "-1w"%>
document.QForm.FMMod.selectedIndex = 4;
<%'case "-1m"%>
document.QForm.FMMod.selectedIndex = 5;
<%'case "-1y"%>
document.QForm.FMMod.selectedIndex = 6;
<%'case "since"%>
document.QForm.FMMod.selectedIndex = 7;
<%'case else%>
document.QForm.FMMod.selectedIndex = 0;
<%'end select%>
document.QForm.FMModDate.value = "<%=FMModDate%>";
document.QForm.DocAuthorRestriction.value = "<%=DocAuthorRestriction%>";
*/
}
//-->
</script>
<form NAME="QForm" ACTION="<%=QueryForm%>" METHOD="POST">
<input type="hidden" name="SortBy" value="Write[d]">
<input type="hidden" name="ColChoice" value="1">
<input type="hidden" name="Scope" value="/GenerelInfo/IT/Notater/MiniManual/">
<table border="0" width="97%" height="70">
<tr>
<td width="50%" height="19"><b><font face="Arial" size="3">Udfyld nedenstående felt.</font></b></td>
<td width="50%" height="19">
<p align="right"> </p>
</td>
</tr>
<tr>
<td width="50%" height="19"><b><strong><font face="Arial" size="3">Fritekstsøgning</font></strong>
<font size="3" face="Arial"> </font>
</b><font size="3" face="Arial">(evt. en hel tekststreng):</font></td>
<td width="50%" height="19" align="right">
<input type="text" name="SearchString" size="50" Maxlength="100" value>
<input type="hidden" name="FilenameString" value="not *.|(htm|,asp|,html|)">
</td>
</tr>
<tr>
<td width="50%" height="14"></td>
<td width="50%" height="14" align="right">
<input TYPE="SUBMIT" VALUE="Søg" NAME="Action">
<input TYPE="RESET" VALUE="Rens" NAME="Clear"></td>
</tr>
</table>
</form>
<%if DebugFlag then%>
<pre>
SearchString = <%=SearchString%>
SortBy = <%=SortBy%>
Colset = <%=Colset%>
Scope = <%=Scope%>
NewQuery = <%=CStr(NewQuery)%>
UseSavedQuery = <%=CStr(UseSavedQuery)%>
</pre>
<%end if%>
<%
if NewQuery then
set Session("Query") = nothing
set Session("Recordset") = nothing
NextRecordNumber = 1
set Q = Server.CreateObject("ixsso.Query")
Composer = ""
TheQuery = ""
if SearchString <> "" then
if Left( SearchSting, 1 ) <> "@" AND Left( SearchString, 1 ) <> "#" AND Left( SearchString, 1 ) <> "$" then
TheQuery = "@Contents " + SearchString
else
TheQuery = SearchString
end if
Composer = " & "
end if
if FilenameString <> "" then
TheQuery = "(#FileName " + FilenameString + ") " + Composer + TheQuery
Composer = " & "
end if
' if FSRestVal <> "any" then
' if FSRestVal <> "other" then
' TheQuery = "(@Size " + FSRest + FSRestVal + ") " + Composer + TheQuery
' else
' TheQuery = "(@Size " + FSRest + FSRestOther + ") " + Composer + TheQuery
' end if
'
' Composer = " & "
' end if
' if DocAuthorRestriction <> "" then
' TheQuery = "(@DocAuthor " + DocAuthorRestriction + ") " + Composer + TheQuery
'
' Composer = " & "
' end if
' if FMMod <> "" AND FMMod <> "any" then
' if FMMod <> "since" then
' TheQuery = "(@Write > " + FMMod + ") " + Composer + TheQuery
' else
' TheQuery = "(@Write > " + FMModDate + ") " + Composer + TheQuery
' end if
' end if
%>
<%if DebugFlag then%>
<p>TheQuery = <%=TheQuery%> <%end if%> <%
Q.Query = TheQuery
Q.SortBy = SortBy
if Scope <> "/" then
set Util = Server.CreateObject("ixsso.Util")
Util.AddScopeToQuery Q, Scope, "DEEP"
set Util = nothing
end if
if ColSet = 1 then
Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization, rank"
RecordsPerPage = 10
elseif ColSet = 2 then
Q.Columns = "vpath, path"
RecordsPerPage = 200
elseif ColSet = 3 then
Q.Columns = "filename, vpath, size, write"
RecordsPerPage = 25
end if
set RS = Q.CreateRecordSet("nonsequential")
RS.PageSize = RecordsPerPage
ActiveQuery = TRUE
elseif UseSavedQuery then
if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
set Q = Session("Query")
set RS = Session("RecordSet")
if RS.RecordCount <> -1 and NextPageNumber <> -1 then
RS.AbsolutePage = NextPageNumber
NextRecordNumber = RS.AbsolutePosition
end if
ActiveQuery = TRUE
else
Response.Write "ERROR - No saved query"
end if
end if
if ActiveQuery then
if not RS.EOF then
%> </p>
<hr WIDTH="80%" ALIGN="center" SIZE="3">
<p><%
LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
CurrentPage = RS.AbsolutePage
if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if
Response.Write "Dokument " & NextRecordNumber & " til " & LastRecordOnPage
if RS.RecordCount <> -1 then
Response.Write " ud af " & RS.RecordCount
end if
if SearchString <> "" then
Response.Write " som matcher forespørgelsen " & chr(34) & "<I>"
Response.Write SearchString & "</I>" & chr(34) & ".<P>"
end if
%> </p>
<table border="0">
<colgroup width="105">
<% Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage
' This is the detail portion for Title, Abstract, URL, Size, and
' Modification Date.
' If there is a title, display it, otherwise display the filename.
' Graphically indicate rank of document with list of stars (*'s).
if NextRecordNumber = 1 then
RankBase=RS("rank")
if RankBase>1000 then
RankBase=1000
elseif RankBase<1 then
RankBase=1
end if
end if
NormRank = RS("rank")/RankBase
if NormRank > 0.80 then
stars = "rankbtn5.gif"
elseif NormRank > 0.60 then
stars = "rankbtn4.gif"
elseif NormRank > 0.40 then
stars = "rankbtn3.gif"
elseif NormRank >.20 then
stars = "rankbtn2.gif"
else stars = "rankbtn1.gif"
end if
%>
<tr class="RecordTitle">
<td align="right" valign="top" class="RecordTitle"><%= NextRecordNumber%>
<p>. </td>
<td><b class="RecordTitle"><%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> <a href="<%=RS("vpath")%>" class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%></a> <%else%> <a
href="<%=RS("vpath")%>" class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%></a> <%end if%> </b></td>
</tr>
<tr>
<td valign="top" align="left"><img SRC="<%=stars%>"> <br>
<%
' Construct the URL for hit highlighting
WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") )
WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( Q.Query )
WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "<b class=Hit>" )
WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "</b>" )
WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
' WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID
%> <table>
<tr>
<td><a href="oop/qsumrhit.htw?<%= WebHitsQuery %>"><img src="hilight.gif" align="left"
alt="Highlight matching terms in document using Summary mode."> Udklip</a> </td>
</tr>
<tr>
<td><a href="oop/qfullhit.htw?<%= WebHitsQuery %>&CiHiliteType=Full"><img
src="hilight.gif" align="left" alt="Highlight matching terms in document."> Alt</a> </td>
</tr>
</table>
</td>
<td valign="top"><%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
<p><b><i>Abstract: </i></b><%= Server.HTMLEncode(RS("characterization"))%> <%end if%> </p>
<p><i class="RecordStats"><a href="<%=RS("vpath")%>" target="_blank" class="RecordStats"
style="color:blue;">
http://<%=Request("server_name")%><%=RS("vpath")%></a> <br>
<%if RS("size") = "" then%> (size and time unknown)<%else%>size <%=RS("size")%>
bytes - <%=DateAdd("h",1,RS("write"))%> <%end if%></i> </td>
</tr>
<%
RS.MoveNext
NextRecordNumber = NextRecordNumber+1
Loop
%>
</table>
<p><br>
<%
else ' NOT RS.EOF
if NextRecordNumber = 1 then
Response.Write "No documents matched the query<P>"
else
Response.Write "No more documents in the query<P>"
end if
end if ' NOT RS.EOF
%><!-- If the index is out of date, display the fact --><%if NOT Q.OutOfDate then%></p>
<p><i>The index is up-to-date.</i><br>
<%end if%><!--
If the query was not executed because it needed to enumerate to
resolve the query instead of using the index, but AllowEnumeration
was FALSE, let the user know
--><%if Q.QueryIncomplete then%></p>
<p><i><b>The query is too expensive to complete.</b></i><br>
<%end if%><!--
If the query took too long to execute (for example, if too much work
was required to resolve the query), let the user know
--><%if Q.QueryTimedOut then%></p>
<p><i><b>The query took too long to complete.</b></i><br>
<%end if%></p>
<table>
<!--
This is the "previous" button.
This retrieves the previous page of documents for the query.
-->
<%SaveQuery = FALSE%>
<%if CurrentPage > 1 and RS.RecordCount <> -1 then ' BUGBUG - use RS.Supports(adMovePrevious)%>
<tr>
<td align="left"><form action="<%=QueryForm%>" method="post">
<input type="hidden" name="SearchString" value="<%=SearchString%>"><input type="hidden"
name="FilenameString" value="<%=FilenameString%>"><input type="hidden"
name="DocAuthorRestriction" value="<%=DocAuthorRestriction%>"><input type="hidden"
name="FSRest" value="<%=FSRest%>"><input type="hidden" name="FSRestVal"
value="<%=FSRestVal%>"><input type="hidden" name="FSRestOther" value="<%=FSRestOther%>"><input
type="hidden" name="FMMod" value="<%=FMMod%>"><input type="hidden" name="FMModDate"
value="<%=FMModDate%>"><input type="hidden" name="SortBy" value="<%=SortBy%>"><input
type="hidden" name="Colset" value="<%=ColChoice%>"><input type="hidden" name="Scope"
value="<%=Scope%>"><input type="hidden" name="pg" value="<%=CurrentPage-1%>"><input
type="hidden" name="RankBase" value="<%=RankBase%>"><p><input type="submit"
value="Previous <%=RS.PageSize%> documents"> </p>
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%>
<!--
This is the "next" button.
This button retrieves the next page of documents for the query.
-->
<%if Not RS.EOF then%>
<td align="right"><form action="<%=QueryForm%>" method="post">
<input type="hidden" name="SearchString" value="<%=SearchString%>"><input type="hidden"
name="FilenameString" value="<%=FilenameString%>"><input type="hidden"
name="DocAuthorRestriction" value="<%=DocAuthorRestriction%>"><input type="hidden"
name="FSRest" value="<%=FSRest%>"><input type="hidden" name="FSRestVal"
value="<%=FSRestVal%>"><input type="hidden" name="FSRestOther" value="<%=FSRestOther%>"><input
type="hidden" name="FMMod" value="<%=FMMod%>"><input type="hidden" name="FMModDate"
value="<%=FMModDate%>"><input type="hidden" name="SortBy" value="<%=SortBy%>"><input
type="hidden" name="Colset" value="<%=ColChoice%>"><input type="hidden" name="Scope"
value="<%=Scope%>"><input type="hidden" name="pg" value="<%=CurrentPage+1%>"><input
type="hidden" name="RankBase" value="<%=RankBase%>"><% NextString = "Next "
if RS.RecordCount <> -1 then
NextSet = (RS.RecordCount - NextRecordNumber) + 1
if NextSet > RS.PageSize then
NextSet = RS.PageSize
end if
NextString = NextString & NextSet & " documents"
else
NextString = NextString & " page of documents"
end if
%>
<p><input type="submit"
value="<%=NextString%>"> </p>
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%>
</tr>
</table>
<!-- Display the page number -->
<p>Side <%=CurrentPage%> <%if RS.PageCount <> -1 then
Response.Write " af " & RS.PageCount
end if %> <%
' If either of the previous or back buttons were displayed, save the query
' and the recordset in session variables.
if SaveQuery then
set Session("Query") = Q
set Session("RecordSet") = RS
else
RS.close
Set RS = Nothing
Set Q = Nothing
set Session("Query") = Nothing
set Session("RecordSet") = Nothing
end if
%> <% end if %> </p>
</body>
</html>
