#FILENAME, @FILENAME, Using "AND" for searching by filename property

Hi,

Can someone help me?!

We've modified the original query.asp script. I've pasted the code
below.

What we want to do is search by two types of file names.

There are two types of files in an archive that need to be searched
ONLY by filename, so I want to use #filename or @filename to search by
property.

For example, the files are named like this:

INVOIC_P111111B.pdf
P111111_I999999F.pdf

I'd like to search based on the following criteria:

INVOIC_P111111*.pdf AND P111111_I*.pdf

I want both results to show.

Can someone show me the correct syntax for the query? Is it even
possible?

This is what I've tried, but the results are not correct:

"#filename p111111_i* OR @filename invoic_p111111*"

When I try this, the browser hangs:

"#filename p111111_i* OR #filename invoic_p111111*"

Here's the code. I would love some help with this:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1"></HEAD>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
sub cbxDEC_onclick
'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
DEC*"&document.QueryForm.SearchString.value & "*.PDF"
document.QueryForm.cbxCOI.status = FALSE
document.QueryForm.cbxMCL.status = FALSE
document.QueryForm.cbxNOC.status = FALSE
document.QueryForm.cbxINV.status = FALSE
document.QueryForm.cbxBILL.status = FALSE

'document.QueryForm.xxx.value="abc"
end sub

sub cbxCOI_onclick
document.QueryForm.cbxDEC.status = false
document.QueryForm.cbxCOI.status = false
document.QueryForm.cbxMCL.status = FALSE
document.QueryForm.cbxNOC.status = FALSE
document.QueryForm.cbxINV.status = FALSE
document.QueryForm.cbxBILL.status = FALSE

'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
COI*"&document.QueryForm.SearchString.value & "*.PDF"
end sub

sub cbxMCL_onclick
'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
MCL*"&document.QueryForm.SearchString.value & "*.PDF"
document.QueryForm.cbxDEC.status = false
document.QueryForm.cbxCOI.status = false
document.QueryForm.cbxNOC.status = FALSE
document.QueryForm.cbxINV.status = FALSE
document.QueryForm.cbxBILL.status = FALSE

end sub

sub cbxNOC_onclick
'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
NOC*"&document.QueryForm.SearchString.value & "*.PDF"
document.QueryForm.cbxDEC.status = false
document.QueryForm.cbxCOI.status = false
document.QueryForm.cbxMCL.status = FALSE
document.QueryForm.cbxINV.status = FALSE
document.QueryForm.cbxBILL.status = FALSE

end sub

sub cbxINV_onclick
'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
INVOIC*"&document.QueryForm.SearchString.value & "*.PDF or @Filename "
&"p"&document.QueryForm.SearchString.value & "*.PDF"
document.QueryForm.cbxDEC.status = false
document.QueryForm.cbxCOI.status = false
document.QueryForm.cbxMCL.status = FALSE
document.QueryForm.cbxNOC.status = FALSE
document.QueryForm.cbxBILL.status = FALSE

end sub

sub cbxBILL_onclick
'document.forms(0).elements(0).value='ok2'
document.QueryForm.xxx.value="#Filename
BILLST*"&document.QueryForm.SearchString.value & "*.PDF"
document.QueryForm.cbxDEC.status = false
document.QueryForm.cbxCOI.status = false
document.QueryForm.cbxMCL.status = FALSE
document.QueryForm.cbxNOC.status = FALSE
document.QueryForm.cbxINV.status = FALSE

end sub

sub action_free_onclick
document.QueryForm.xxx.value=document.QueryForm_free.SearchString.value
end sub
</SCRIPT>

<FORM NAME=QueryForm ACTION="x_FormString.asp" METHOD=GET>

<table align="center" width="100%">
<tr>
<td align="center"> <font size="5" face="Verdana, Arial, Helvetica,
sans-serif"> Official Documents Search </td>
</tr>
<tr>
<td> &nbsp </td>
</tr>
<tr>
<td> <input type="text" name="xxx" size="65" maxlength="100"
tabindex=1> </td>
</tr>
</table>
<table>
<tr>
<td width="200"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">Enter policy Number:</font></td>
<td width="100"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="TEXT" name="SearchString" value="" tabindex=1>
</td>
<td width="29"><button type=SUBMIT name="Action">Go</button></td>
<td><input name="Advanced2" type=hidden checked> </td>
</tr>
</table>
<table>
<tr bgcolor="#FFFF99">
<td colspan="3"><div align="left"><strong><font color="#000000"
size="1" face="Verdana, Arial, Helvetica, sans-serif">Select Form
Type</font></strong></div></td>
</tr>
<tr>
<td width="167"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" id=cbxDEC name=cbxDEC>
Dec Pages<br>
<input type="radio" id=cbxCOI name=cbxCOI>
COI  </font></td>
<td width="186"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" id=cbxNOC name=cbxNOC>
NOC<br>
<input type="radio" id=cbxINV name=cbxINV>
Invoice
</font></td>
<td width="262"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" id=cbxMCL name=cbxMCL>
Material Change Letters<br>

<input type="radio" id=cbxBILL name=cbxBILL>
Billing Statement
</font></td>
</tr>
</table>
<br>
</form>
<HR>
<FORM NAME=QueryForm_free ACTION="x_FormString.asp" METHOD=GET>
<table width="629" border="0" align="left" cellpadding="0"
cellspacing="0" bgcolor="#FFFFCC">
<TR>
<TD align="left"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> Free Text Query Search </td>
</tr>
</table>
<br>
<table>
<TR>
<TD> <font size="1" face="Verdana, Arial, Helvetica,
sans-serif"><input type="TEXT" name="xxx" value="" tabindex=1> </td>
<td align="left"><button type=SUBMIT
name="Action_free">Go</button></td>
</tr>
</table>
<table>
<TR>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Enter Text for your Query, For Example: Physician Name, Form Type,
Etc. </td>
</tr>
<tr>
<td><input name="Advanced2" type=hidden checked> </td>
</tr>
</table>
</FORM>
<P> </P>

</BODY>
</HTML>

********************************************
********************************************
This is the script holding the parameters:
********************************************
********************************************

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
<HTML>
<HEAD>
<%
' ********** INSTRUCTIONS FOR QUICK CUSTOMIZATION **********
'
' This form is set up for easy customization. It allows you to modify
the
' page logo, the page background, the page title and simple query
' parameters by modifying a few files and form variables. The
procedures
' to do this are explained below.
'
'
' *** Modifying the Form Logo:

' The logo for the form is named is2logo.gif. To change the page logo,
simply
' name your logo is2logo.gif and place in the same directory as this
form. If
' your logo is not a GIF file, or you don't want to copy it, change the
following
' line so that the logo variable contains the URL to your logo.

FormLogo = "is2logo.gif"

'
' *** Modifying the Form's background pattern.

' You can use either a background pattern or a background color for
your
' form. If you want to use a background pattern, store the file with
the name
' is2bkgnd.gif in the same directory as this file and remove the remark
character
' the single quote character) from the line below. Then put the remark
character on
' the second line below.
'
' If you want to use a different background color than white, simply
edit the
' bgcolor line below, replacing white with your color choice.

' FormBG = "background = " & chr(34) & "is2bkgnd.gif" & chr(34)
FormBG = "bgcolor = " & chr(34) & "#FFFFFF" & chr(34)

' *** Modifying the Form's Title Text.

' The Form's title text is set on the following line.

%>
<TITLE>Sample ASP Search Form</TITLE>
<%
'
' *** Modifying the Form's Search Scope.
'
' The form will search from the root of your web server's namespace and
below
' (deep from "/" ). To search a subset of your server, for example,
maybe just
' a PressReleases directory, modify the scope variable below to list
the
' virtual path to search. The search will start at the directory you
specify
' and include all sub-directories.

FormScope = "/"

'
' *** Modifying the Number of Returned Query Results.
'
' You can set the number of query results returned on a single page
' using the variable below.

PageSize = 10
'
' You can set the total number of query results returned using the
' variable below.

MaxResults = 5000

'
' *** Setting the Locale.
'
' The following line sets the locale used for queries. In most cases,
this
' should match the locale of the server. You can set the locale below.

SiteLocale = "EN-US"

'
' *** Enable saving active searches in session variables
'
' The following line enables using session state to save multi-page
queries
' and avoid re-executing them when the user presses the Next Page
button.
' This should be set FALSE if sessions are disabled using
AspAllowSessionState.

UseSessions = FALSE
UseSessions = TRUE

' ********** END QUICK CUSTOMIZATION SECTIONS ***********
%>

<LINK REL=STYLESHEET HREF="is2style.css" TYPE="text/css">

<META NAME="DESCRIPTION" CONTENT="Sample ASP query form for
Indexing Service">
<META NAME="AUTHOR" CONTENT="Indexing Service Team">
<META NAME="KEYWORDS" CONTENT="query, content, hit">
<META NAME="SUBJECT" CONTENT="sample form">
<META NAME="MS.CATEGORY" CONTENT="Internet">
<META NAME="MS.LOCALE" CONTENT="EN-US">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;
charset=windows-1252">
<%

xxx = Request.QueryString("xxx")
'esponse.Write session("xxx")

' Set Initial Conditions
NewQuery = FALSE
UseSavedQuery = FALSE
SearchString = ""

QueryForm = Request.ServerVariables("PATH_INFO")

' Did the user press a SUBMIT button to execute the form? If so get the
form variables.
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
SearchString = Request.Form("SearchString")
SearchString = xxx

Advanced = Request.Form("Advanced")
' NOTE: this will be true only if the button is actually
pushed.
if Request.Form("Action") = "Go" then
NewQuery = TRUE
RankBase=1000
NextPageNumber = -1
end if
end if
if Request.ServerVariables("REQUEST_METHOD") = "GET" then
SearchString = Request.QueryString("qu")
Advanced = Request.QueryString("Advanced")
FormScope = Request.QueryString("sc")
RankBase = Request.QueryString("RankBase")
if Request.QueryString("pg") <> "" then
NextPageNumber = Request.QueryString("pg")
UseSavedQuery = UseSessions
NewQuery = not UseSessions
else
NewQuery = SearchString <> ""
NextPageNumber = -1
end if
end if
%>
</HEAD>

<BR>

<%
newquery = true

if NewQuery then
if UseSessions then
set Session("Query") = nothing
set Session("Recordset") = nothing
end if
NextRecordNumber = 1

' Remove any leading and ending quotes from SearchString

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 Advanced<> "on" then
CompSearch = "{freetext} " & SearchString & "{/freetext}"
else
CompSearch = SearchString
end if

if all<> "on" then
CompSearch= "#filename *.pdf" & SearchString & "{/freetext}"
else
CompSearch=SearchString
end if

if Decs<> "on" then
CompSearch= "#filename DEC" & SearchString & "*.pdf"
else
CompSearch=SearchString
end if

set Q = Server.CreateObject("ixsso.Query")
set Util = Server.CreateObject("ixsso.Util")
Q.allowEnumeration =True

Q.Catalog = "OfficialDocs"
Q.Query = xxx
Q.allowEnumeration =True

RESPONSE.WRITE (xxx)
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, vpath, filename, size, write,
characterization, rank"

if MaxResults <> -1 then
Q.MaxRecords = MaxResults
end if
IF 1=1 tHEN
'if FormScope <> "\" then
'Util.AddScopeToQuery Q, "/" ,"deep"
'end if
END IF
if SiteLocale<>"" then
Q.LocaleID = Util.ISOToLocaleID(SiteLocale)
end if

set RS = Q.CreateRecordSet("nonsequential")
Response.Write (RS.RecordCount)

RS.PageSize = PageSize
RS.CacheSize = PageSize
ActiveQuery = TRUE

'elseif UseSavedQuery then
' if IsObject( Session("Query") ) And IsObject( Session("RecordSet")
) then
'set Q = Session("Query")
'set RS = Session("RecordSet")

'ActiveQuery = TRUE
'else
' Response.Write "ERROR - No saved query"
'end if
end if

if ActiveQuery then
if RS.RecordCount <> -1 and NextPageNumber <> -1 then
RS.AbsolutePage = NextPageNumber
NextRecordNumber = RS.AbsolutePosition
end if

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 "Documents " & NextRecordNumber & " to " &
LastRecordOnPage
if RS.RecordCount <> -1 then
Response.Write " of " & RS.RecordCount
end if
Response.Write " matching the query " & chr(34) & "<I>"
Response.Write Server.HTMLEncode( SearchString ) & "</I>" &
chr(34) & ".<P>"
%>

<% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
<table border=0>
<colgroup width=105>
<% end if %>

<% 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.
%>
<p>
<%
' Graphically indicate rank of document with list of stars (*'s).

if NextRecordNumber = 1 then
RankBase=RS("rank")
end if

if RankBase>1000 then
RankBase=1000
elseif RankBase<1 then
RankBase=1
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%>.
</td>
<td><b class="RecordTitle">
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = ""
then%>
<a href="<%=RS("vpath")%><%=SearchString%>"
class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%></a>
<%else%>
<a href="<%=RS("vpath")%><%=SearchString%>"
class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%></a>
<%end if%>
</b></td>
</tr>

<tr>
<td valign=top align=left>

<br>
<%
' Construct the URL for hit highlighting
WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath")
)
WebHitsQuery = WebHitsQuery & "&CiRestriction=" &
Server.URLEncode( Q.Query )
WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
WebHitsQuery = WebHitsQuery & "&CiLocale=" &
Util.LocaleIDToISO( Q.LocaleID )
%>

<td valign=top>
<%if VarType(RS("characterization")) = 8 and
RS("characterization") <> "" then%>


<%end if%>
<p>
<i class="RecordStats"><a
href="<%=RS("vpath")%><%=SearchString%>" 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 - <%=RS("write")%> GMT<%end
if%></i>
</td>
</tr>
<tr>
</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 NOT Q.OutOfDate then
' If the index is current, display the fact %>
<P>
<I><B>The index is up to date.</B></I><BR>
<%end if

if Q.QueryIncomplete then
' 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
%>
<P>
<I><B>The query is too expensive to complete.</B></I><BR>
<%end if

if Q.QueryTimedOut then
' If the query took too long to execute (for example, if too much
work
' was required to resolve the query), let the user know %>
<P>
<I><B>The query took too long to complete.</B></I><BR>
<%end if%>

<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 %>
<td align=left>
<form action="<%=QueryForm%>" method="get">
<INPUT TYPE="HIDDEN" NAME="xxx" VALUE="<%=xxx%>">
<INPUT TYPE="HIDDEN" NAME="Advanced" VALUE="<%=Advanced%>">
<INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
<INPUT TYPE="HIDDEN" NAME="pg" VALUE="<%=CurrentPage-1%>" >
<INPUT TYPE="HIDDEN" NAME="RankBase" VALUE="<%=RankBase%>">
<input type="submit" value="Previous <%=RS.PageSize%>
documents">
</form>
</td>
<%SaveQuery = UseSessions%>
<%end if%>

<%
' This is the "next" button for unsorted queries.
' This retrieves the next page of documents for the query.

if Not RS.EOF then%>
<td align=right>
<form action="<%=QueryForm%>" method="get">
<INPUT TYPE="HIDDEN" NAME="xxx" VALUE="<%=xxx%>">
<INPUT TYPE="HIDDEN" NAME="Advanced" VALUE="<%=Advanced%>">
<INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
<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
%>
<input type="submit" value="<%=NextString%>">
</form>
</td>
<%SaveQuery = UseSessions%>
<%end if%>

</TABLE>

<% ' Display the page number

if RS.PageCount <> 0 then
Response.Write "Page " & CurrentPage
if RS.PageCount <> -1 then
Response.Write " of " & RS.PageCount
end if
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 Util = nothing
if UseSessions then
set Session("Query") = Nothing
set Session("RecordSet") = Nothing
end if
end if
%>
<% end if %>
<BR>


</BODY>

<SCRIPT LANGUAGE=JSCRIPT>
function Init()
{
QueryForm.SearchString.focus();
}

function msieversion()
{
var ua = window.navigator.userAgent;
var msie = ua.indexOf("MSIE");
if (msie>0)
r

of course it does - you are doing a grep of your file system.

try adding this statement before here

Q.allowEnumeration=False
set RS = Q.CreateRecordSet("nonsequential")

--
Hilary Cotter
Looking for a SQL Server replication book?
http://www.nwsu.com/0974973602.html
<bstover@norcalmutual.com> wrote in message
news:1106266253.625084.271750@c13g2000cwb.googlegroups.com...
> Hi,
>
> Can someone help me?!
>
> We've modified the original query.asp script. I've pasted the code
> below.
>
> What we want to do is search by two types of file names.
>
> There are two types of files in an archive that need to be searched
> ONLY by filename, so I want to use #filename or @filename to search by
> property.
>
> For example, the files are named like this:
>
> INVOIC_P111111B.pdf
> P111111_I999999F.pdf
>
> I'd like to search based on the following criteria:
>
> INVOIC_P111111*.pdf AND P111111_I*.pdf
>
> I want both results to show.
>
> Can someone show me the correct syntax for the query? Is it even
> possible?
>
> This is what I've tried, but the results are not correct:
>
> "#filename p111111_i* OR @filename invoic_p111111*"
>
> When I try this, the browser hangs:
>
> "#filename p111111_i* OR #filename invoic_p111111*"
>
>
> Here's the code. I would love some help with this:
>
>
> <HTML>
> <HEAD>
> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1"></HEAD>
> <BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
> <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
> sub cbxDEC_onclick
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> DEC*"&document.QueryForm.SearchString.value & "*.PDF"
> document.QueryForm.cbxCOI.status = FALSE
> document.QueryForm.cbxMCL.status = FALSE
> document.QueryForm.cbxNOC.status = FALSE
> document.QueryForm.cbxINV.status = FALSE
> document.QueryForm.cbxBILL.status = FALSE
>
> 'document.QueryForm.xxx.value="abc"
> end sub
>
> sub cbxCOI_onclick
> document.QueryForm.cbxDEC.status = false
> document.QueryForm.cbxCOI.status = false
> document.QueryForm.cbxMCL.status = FALSE
> document.QueryForm.cbxNOC.status = FALSE
> document.QueryForm.cbxINV.status = FALSE
> document.QueryForm.cbxBILL.status = FALSE
>
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> COI*"&document.QueryForm.SearchString.value & "*.PDF"
> end sub
>
> sub cbxMCL_onclick
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> MCL*"&document.QueryForm.SearchString.value & "*.PDF"
> document.QueryForm.cbxDEC.status = false
> document.QueryForm.cbxCOI.status = false
> document.QueryForm.cbxNOC.status = FALSE
> document.QueryForm.cbxINV.status = FALSE
> document.QueryForm.cbxBILL.status = FALSE
>
> end sub
>
> sub cbxNOC_onclick
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> NOC*"&document.QueryForm.SearchString.value & "*.PDF"
> document.QueryForm.cbxDEC.status = false
> document.QueryForm.cbxCOI.status = false
> document.QueryForm.cbxMCL.status = FALSE
> document.QueryForm.cbxINV.status = FALSE
> document.QueryForm.cbxBILL.status = FALSE
>
> end sub
>
> sub cbxINV_onclick
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> INVOIC*"&document.QueryForm.SearchString.value & "*.PDF or @Filename "
> &"p"&document.QueryForm.SearchString.value & "*.PDF"
> document.QueryForm.cbxDEC.status = false
> document.QueryForm.cbxCOI.status = false
> document.QueryForm.cbxMCL.status = FALSE
> document.QueryForm.cbxNOC.status = FALSE
> document.QueryForm.cbxBILL.status = FALSE
>
> end sub
>
> sub cbxBILL_onclick
> 'document.forms(0).elements(0).value='ok2'
> document.QueryForm.xxx.value="#Filename
> BILLST*"&document.QueryForm.SearchString.value & "*.PDF"
> document.QueryForm.cbxDEC.status = false
> document.QueryForm.cbxCOI.status = false
> document.QueryForm.cbxMCL.status = FALSE
> document.QueryForm.cbxNOC.status = FALSE
> document.QueryForm.cbxINV.status = FALSE
>
>
> end sub
>
> sub action_free_onclick
> document.QueryForm.xxx.value=document.QueryForm_free.SearchString.value
> end sub
> </SCRIPT>
>
> <FORM NAME=QueryForm ACTION="x_FormString.asp" METHOD=GET>
> 
> <table align="center" width="100%">
> <tr>
> <td align="center"> <font size="5" face="Verdana, Arial, Helvetica,
> sans-serif"> Official Documents Search </td>
> </tr>
> <tr>
> <td> &nbsp </td>
> </tr>
> <tr>
> <td> <input type="text" name="xxx" size="65" maxlength="100"
> tabindex=1> </td>
> </tr>
> </table>
> <table>
> <tr>
> <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif">Enter policy Number:</font></td>
> <td width="100"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif">
> <input type="TEXT" name="SearchString" value="" tabindex=1>
> </td>
> <td width="29"><button type=SUBMIT name="Action">Go</button></td>
> <td><input name="Advanced2" type=hidden checked> </td>
> </tr>
> </table>
> <table>
> <tr bgcolor="#FFFF99">
> <td colspan="3"><div align="left"><strong><font color="#000000"
> size="1" face="Verdana, Arial, Helvetica, sans-serif">Select Form
> Type</font></strong></div></td>
> </tr>
> <tr>
> <td width="167"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif">
> <input type="radio" id=cbxDEC name=cbxDEC>
> Dec Pages<br>
> <input type="radio" id=cbxCOI name=cbxCOI>
> COI  </font></td>
> <td width="186"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif">
> <input type="radio" id=cbxNOC name=cbxNOC>
> NOC<br>
> <input type="radio" id=cbxINV name=cbxINV>
> Invoice
> </font></td>
> <td width="262"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif">
> <input type="radio" id=cbxMCL name=cbxMCL>
> Material Change Letters<br>
>
> <input type="radio" id=cbxBILL name=cbxBILL>
> Billing Statement
> </font></td>
> </tr>
> </table>
> <br>
> </form>
> <HR>
> <FORM NAME=QueryForm_free ACTION="x_FormString.asp" METHOD=GET>
> <table width="629" border="0" align="left" cellpadding="0"
> cellspacing="0" bgcolor="#FFFFCC">
> <TR>
> <TD align="left"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> Free Text Query Search </td>
> </tr>
> </table>
> <br>
> <table>
> <TR>
> <TD> <font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"><input type="TEXT" name="xxx" value="" tabindex=1> </td>
> <td align="left"><button type=SUBMIT
> name="Action_free">Go</button></td>
> </tr>
> </table>
> <table>
> <TR>
> <TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
> Enter Text for your Query, For Example: Physician Name, Form Type,
> Etc. </td>
> </tr>
> <tr>
> <td><input name="Advanced2" type=hidden checked> </td>
> </tr>
> </table>
> </FORM>
> <P> </P>
>
> </BODY>
> </HTML>
>
>
>
> ********************************************
> ********************************************
> This is the script holding the parameters:
> ********************************************
> ********************************************
>
>
>
> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
> <HTML>
> <HEAD>
> <%
> ' ********** INSTRUCTIONS FOR QUICK CUSTOMIZATION **********
> '
> ' This form is set up for easy customization. It allows you to modify
> the
> ' page logo, the page background, the page title and simple query
> ' parameters by modifying a few files and form variables. The
> procedures
> ' to do this are explained below.
> '
> '
> ' *** Modifying the Form Logo:
>
> ' The logo for the form is named is2logo.gif. To change the page logo,
> simply
> ' name your logo is2logo.gif and place in the same directory as this
> form. If
> ' your logo is not a GIF file, or you don't want to copy it, change the
> following
> ' line so that the logo variable contains the URL to your logo.
>
> FormLogo = "is2logo.gif"
>
> '
> ' *** Modifying the Form's background pattern.
>
> ' You can use either a background pattern or a background color for
> your
> ' form. If you want to use a background pattern, store the file with
> the name
> ' is2bkgnd.gif in the same directory as this file and remove the remark
> character
> ' the single quote character) from the line below. Then put the remark
> character on
> ' the second line below.
> '
> ' If you want to use a different background color than white, simply
> edit the
> ' bgcolor line below, replacing white with your color choice.
>
> ' FormBG = "background = " & chr(34) & "is2bkgnd.gif" & chr(34)
> FormBG = "bgcolor = " & chr(34) & "#FFFFFF" & chr(34)
>
>
> ' *** Modifying the Form's Title Text.
>
> ' The Form's title text is set on the following line.
>
> %>
> <TITLE>Sample ASP Search Form</TITLE>
> <%
> '
> ' *** Modifying the Form's Search Scope.
> '
> ' The form will search from the root of your web server's namespace and
> below
> ' (deep from "/" ). To search a subset of your server, for example,
> maybe just
> ' a PressReleases directory, modify the scope variable below to list
> the
> ' virtual path to search. The search will start at the directory you
> specify
> ' and include all sub-directories.
>
> FormScope = "/"
>
> '
> ' *** Modifying the Number of Returned Query Results.
> '
> ' You can set the number of query results returned on a single page
> ' using the variable below.
>
> PageSize = 10
> '
> ' You can set the total number of query results returned using the
> ' variable below.
>
> MaxResults = 5000
>
> '
> ' *** Setting the Locale.
> '
> ' The following line sets the locale used for queries. In most cases,
> this
> ' should match the locale of the server. You can set the locale below.
>
> SiteLocale = "EN-US"
>
> '
> ' *** Enable saving active searches in session variables
> '
> ' The following line enables using session state to save multi-page
> queries
> ' and avoid re-executing them when the user presses the Next Page
> button.
> ' This should be set FALSE if sessions are disabled using
> AspAllowSessionState.
>
> UseSessions = FALSE
> UseSessions = TRUE
>
> ' ********** END QUICK CUSTOMIZATION SECTIONS ***********
> %>
>
> <LINK REL=STYLESHEET HREF="is2style.css" TYPE="text/css">
>
> <META NAME="DESCRIPTION" CONTENT="Sample ASP query form for
> Indexing Service">
> <META NAME="AUTHOR" CONTENT="Indexing Service Team">
> <META NAME="KEYWORDS" CONTENT="query, content, hit">
> <META NAME="SUBJECT" CONTENT="sample form">
> <META NAME="MS.CATEGORY" CONTENT="Internet">
> <META NAME="MS.LOCALE" CONTENT="EN-US">
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;
> charset=windows-1252">
> <%
>
>
> xxx = Request.QueryString("xxx")
> 'esponse.Write session("xxx")
>
> ' Set Initial Conditions
> NewQuery = FALSE
> UseSavedQuery = FALSE
> SearchString = ""
>
> QueryForm = Request.ServerVariables("PATH_INFO")
>
> ' Did the user press a SUBMIT button to execute the form? If so get the
> form variables.
> if Request.ServerVariables("REQUEST_METHOD") = "POST" then
> SearchString = Request.Form("SearchString")
> SearchString = xxx
>
> Advanced = Request.Form("Advanced")
> ' NOTE: this will be true only if the button is actually
> pushed.
> if Request.Form("Action") = "Go" then
> NewQuery = TRUE
> RankBase=1000
> NextPageNumber = -1
> end if
> end if
> if Request.ServerVariables("REQUEST_METHOD") = "GET" then
> SearchString = Request.QueryString("qu")
> Advanced = Request.QueryString("Advanced")
> FormScope = Request.QueryString("sc")
> RankBase = Request.QueryString("RankBase")
> if Request.QueryString("pg") <> "" then
> NextPageNumber = Request.QueryString("pg")
> UseSavedQuery = UseSessions
> NewQuery = not UseSessions
> else
> NewQuery = SearchString <> ""
> NextPageNumber = -1
> end if
> end if
> %>
> </HEAD>
>
>
> <BR>
>
> <%
> newquery = true
>
>
> if NewQuery then
> if UseSessions then
> set Session("Query") = nothing
> set Session("Recordset") = nothing
> end if
> NextRecordNumber = 1
>
> ' Remove any leading and ending quotes from SearchString
>
> 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 Advanced<> "on" then
> CompSearch = "{freetext} " & SearchString & "{/freetext}"
> else
> CompSearch = SearchString
> end if
>
> if all<> "on" then
> CompSearch= "#filename *.pdf" & SearchString & "{/freetext}"
> else
> CompSearch=SearchString
> end if
>
> if Decs<> "on" then
> CompSearch= "#filename DEC" & SearchString & "*.pdf"
> else
> CompSearch=SearchString
> end if
>
> set Q = Server.CreateObject("ixsso.Query")
> set Util = Server.CreateObject("ixsso.Util")
> Q.allowEnumeration =True
>
> Q.Catalog = "OfficialDocs"
> Q.Query = xxx
> Q.allowEnumeration =True
>
> RESPONSE.WRITE (xxx)
> Q.SortBy = "rank[d]"
> Q.Columns = "DocTitle, vpath, filename, size, write,
> characterization, rank"
>
> if MaxResults <> -1 then
> Q.MaxRecords = MaxResults
> end if
> IF 1=1 tHEN
> 'if FormScope <> "\" then
> 'Util.AddScopeToQuery Q, "/" ,"deep"
> 'end if
> END IF
> if SiteLocale<>"" then
> Q.LocaleID = Util.ISOToLocaleID(SiteLocale)
> end if
>
>
> set RS = Q.CreateRecordSet("nonsequential")
> Response.Write (RS.RecordCount)
>
> RS.PageSize = PageSize
> RS.CacheSize = PageSize
> ActiveQuery = TRUE
>
> 'elseif UseSavedQuery then
> ' if IsObject( Session("Query") ) And IsObject( Session("RecordSet")
> ) then
> 'set Q = Session("Query")
> 'set RS = Session("RecordSet")
>
> 'ActiveQuery = TRUE
> 'else
> ' Response.Write "ERROR - No saved query"
> 'end if
> end if
>
> if ActiveQuery then
> if RS.RecordCount <> -1 and NextPageNumber <> -1 then
> RS.AbsolutePage = NextPageNumber
> NextRecordNumber = RS.AbsolutePosition
> end if
>
> 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 "Documents " & NextRecordNumber & " to " &
> LastRecordOnPage
> if RS.RecordCount <> -1 then
> Response.Write " of " & RS.RecordCount
> end if
> Response.Write " matching the query " & chr(34) & "<I>"
> Response.Write Server.HTMLEncode( SearchString ) & "</I>" &
> chr(34) & ".<P>"
> %>
>
> <% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
> <table border=0>
> <colgroup width=105>
> <% end if %>
>
> <% 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.
> %>
> <p>
> <%
> ' Graphically indicate rank of document with list of stars (*'s).
>
> if NextRecordNumber = 1 then
> RankBase=RS("rank")
> end if
>
> if RankBase>1000 then
> RankBase=1000
> elseif RankBase<1 then
> RankBase=1
> 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%>.
> </td>
> <td><b class="RecordTitle">
> <%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = ""
> then%>
> <a href="<%=RS("vpath")%><%=SearchString%>"
> class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%></a>
> <%else%>
> <a href="<%=RS("vpath")%><%=SearchString%>"
> class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%></a>
> <%end if%>
> </b></td>
> </tr>
>
> <tr>
> <td valign=top align=left>
> 
> <br>
> <%
> ' Construct the URL for hit highlighting
> WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath")
> )
> WebHitsQuery = WebHitsQuery & "&CiRestriction=" &
> Server.URLEncode( Q.Query )
> WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
> WebHitsQuery = WebHitsQuery & "&CiLocale=" &
> Util.LocaleIDToISO( Q.LocaleID )
> %>
> 
> <td valign=top>
> <%if VarType(RS("characterization")) = 8 and
> RS("characterization") <> "" then%>
> 
> 
> <%end if%>
> <p>
> <i class="RecordStats"><a
> href="<%=RS("vpath")%><%=SearchString%>" 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 - <%=RS("write")%> GMT<%end
> if%></i>
> </td>
> </tr>
> <tr>
> </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 NOT Q.OutOfDate then
> ' If the index is current, display the fact %>
> <P>
> <I><B>The index is up to date.</B></I><BR>
> <%end if
>
>
> if Q.QueryIncomplete then
> ' 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
> %>
> <P>
> <I><B>The query is too expensive to complete.</B></I><BR>
> <%end if
>
>
> if Q.QueryTimedOut then
> ' If the query took too long to execute (for example, if too much
> work
> ' was required to resolve the query), let the user know %>
> <P>
> <I><B>The query took too long to complete.</B></I><BR>
> <%end if%>
>
> <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 %>
> <td align=left>
> <form action="<%=QueryForm%>" method="get">
> <INPUT TYPE="HIDDEN" NAME="xxx" VALUE="<%=xxx%>">
> <INPUT TYPE="HIDDEN" NAME="Advanced" VALUE="<%=Advanced%>">
> <INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
> <INPUT TYPE="HIDDEN" NAME="pg" VALUE="<%=CurrentPage-1%>" >
> <INPUT TYPE="HIDDEN" NAME="RankBase" VALUE="<%=RankBase%>">
> <input type="submit" value="Previous <%=RS.PageSize%>
> documents">
> </form>
> </td>
> <%SaveQuery = UseSessions%>
> <%end if%>
>
> <%
> ' This is the "next" button for unsorted queries.
> ' This retrieves the next page of documents for the query.
>
> if Not RS.EOF then%>
> <td align=right>
> <form action="<%=QueryForm%>" method="get">
> <INPUT TYPE="HIDDEN" NAME="xxx" VALUE="<%=xxx%>">
> <INPUT TYPE="HIDDEN" NAME="Advanced" VALUE="<%=Advanced%>">
> <INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
> <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
> %>
> <input type="submit" value="<%=NextString%>">
> </form>
> </td>
> <%SaveQuery = UseSessions%>
> <%end if%>
>
> </TABLE>
>
> <% ' Display the page number
>
> if RS.PageCount <> 0 then
> Response.Write "Page " & CurrentPage
> if RS.PageCount <> -1 then
> Response.Write " of " & RS.PageCount
> end if
> 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 Util = nothing
> if UseSessions then
> set Session("Query") = Nothing
> set Session("RecordSet") = Nothing
> end if
> end if
> %>
> <% end if %>
> <BR>
> 
>
> </BODY>
>
> <SCRIPT LANGUAGE=JSCRIPT>
> function Init()
> {
> QueryForm.SearchString.focus();
> }
>
> function msieversion()
> {
> var ua = window.navigator.userAgent;
> var msie = ua.indexOf("MSIE");
> if (msie>0)
> r
>

#FILENAME, @FILENAME, Using "AND" for searching by filename property - Inetserver

#FILENAME, @FILENAME, Using "AND" for searching by filename property

LinkBack

Thread Tools

#FILENAME, @FILENAME, Using "AND" for searching by filename property

Re: #FILENAME, @FILENAME, Using "AND" for searching by filename property

Similar Threads

Recommend a filename with space chars for download "Save As..." dialog

Tcl Error Handing - (file "<filename>" line <lineno>) - Howto get those values?

filename/raw filename in script-fu functions?

can gimp edit filename.eps or filename.ai files?

Mutiple Filename Queries using #filename