<%@ LANGUAGE = VBScript %> <% ' Option Explicit %> Advanced Indexing Service Search Form <% Const STAT_BUSY = 0 Const STAT_ERROR = &H1 Const STAT_DONE = &H2 Const STAT_REFRESH = &H3 Const STAT_PARTIAL_SCOPE = &H8 Const STAT_NOISE_WORDS = &H10 Const STAT_CONTENT_OUT_OF_DATE = &H20 Const STAT_REFRESH_INCOMPLETE = &H40 Const STAT_CONTENT_QUERY_INCOMPLETE = &H80 Const STAT_TIME_LIMIT_EXCEEDED = &H100 Function GetCiOutOfDate(value) GetCiOutOfDate = value And STAT_CONTENT_OUT_OF_DATE end Function Function GetCiQueryIncomplete(value) GetCiQueryIncomplete = value And STAT_CONTENT_QUERY_INCOMPLETE end Function Function GetCiQueryTimedOut(value) GetCiQueryTimedOut = value And STAT_TIME_LIMIT_EXCEEDED end Function ' Customization variables DebugFlag = FALSE ' set TRUE for debugging UseSessions = FALSE ' set FALSE to disable use of session variables RecordsPerPage = 10 ' number of results on a page MaxResults = 300 ' total number of results returned FormLogo = "is2logo.gif" ' picture at top of page ' Hard-code some parameters that could be taken from the form ' SortBy = " order by rank desc" ' sort order ' Set initial conditions NewQuery = FALSE UseSavedQuery = FALSE SearchString = "" QueryForm = Request.ServerVariables("PATH_INFO") if Request.ServerVariables("REQUEST_METHOD") = "POST" then SearchString = Request.Form("SearchString") 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") ' NOTE: this will be true only if the button is actually pushed. if Request.Form("Action") = "Execute" then NewQuery = TRUE NextPageNumber = -1 elseif Request.Form("pg") <> "" then NextPageNumber = Request.Form("pg") UseSavedQuery = UseSessions NewQuery = not UseSessions end if End if %>

Advanced SQL Sample

Enter your query:
Document author:
Where File Size is:
Modified:
SQL Syntax Tips

<%if DebugFlag then%> 
    SearchString         = <%=SearchString%>
    DocAuthorRestriction = <%=DocAuthorRestriction%>
    FSRest               = <%=FSRest%>
    FSRestVal            = <%=FSRestVal%>
    FSRestOther          = <%=FSRestOther%>
    FMMod                = <%=FMMod%>
    FMModDate            = <%=FMModDate%>
    SortBy               = <%=SortBy%>
    NewQuery             = <%=CStr(NewQuery)%>
    UseSavedQuery        = <%=CStr(UseSavedQuery)%>
<%end if%> <% if NewQuery then ' First Reset the Connection, command and recordSet Object. if UseSessions then set session("AdoConnection") = nothing set session("AdoCommand") = nothing set session("Recordset") = nothing end if NextRecordNumber = 1 set AdoConnection = Server.CreateObject("ADODB.Connection") set AdoCommand = Server.CreateObject("ADODB.Command") AdoConnection.ConnectionString = "provider=msidxs" AdoConnection.Open set AdoCommand.ActiveConnection = AdoConnection SelectColumns = "DocTitle, vpath, path, filename, size, write, characterization" SelectString = "Select " + SelectColumns + " from Web..Scope('Deep traversal of ""/""') " Composer = "" TheQuery = "" if SearchString <> "" then TheQuery = "Contains('""" + SearchString + """')" Composer = " and " end if if FSRestVal <> "any" then if FSRestVal <> "other" then if FSRestVal <> "" then TheQuery = "Size " + FSRest + FSRestVal + " " + Composer + TheQuery end if else TheQuery = "Size " + FSRest + FSRestOther + " " + Composer + TheQuery end if Composer = " and " end if if DocAuthorRestriction <> "" then TheQuery = "Contains(DocAuthor, '""" + DocAuthorRestriction + """') " + Composer + TheQuery Composer = " and " 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 TheQuery <> "" then SelectString = SelectString + " where " + TheQuery +" "+ SortBy else SelectString = SelectString + SortBy +" " end if if DebugFlag then Response.Write "SelectString = " + SelectString + "
" end if AdoCommand.CommandText = SelectString set RS = Server.CreateObject("AdoDB.Recordset") RS.CursorType = adOpenKeyset AdoCommand.Properties("Bookmarkable") = True if MaxResults <> -1 then RS.MaxRecords=MaxResults end if RS.Open AdoCommand RS.PageSize = RecordsPerPage ActiveQuery = TRUE %> <% elseif UseSavedQuery then if IsObject( Session("AdoConnection") ) And IsObject( Session("AdoCommand")) AND IsObject( Session("RecordSet") ) then set AdoConnection = Session("AdoConnection") set AdoCommand = Session("AdoCommand") 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 %>

<% 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: " Response.Write "

" & chr(34) & AdoCommand.CommandText & "" & chr(34) & ".

" %> <% 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 virtual path. %> <% RS.MoveNext NextRecordNumber = NextRecordNumber+1 Loop %>
<%= NextRecordNumber%>. <%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> "><%= Server.HTMLEncode( RS("filename") )%> <%else%> "><%= Server.HTMLEncode(RS("DocTitle"))%> <%end if%>
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%> Abstract: <%= Server.HTMLEncode(RS("characterization"))%>
<%end if%>
" class="RecordStats" style="color:blue;">http://<%=Request("server_name")%><%=RS("vpath")%>
<%if RS("size") = "" then%>(size and time unknown)<%else%>size <%=RS("size")%> bytes - <%=RS("write")%> GMT<%end if%> <%if SearchString <> "" then%> <% QueryString = CStr(RS.Properties("Query Restriction")) %>
<% ' Construct the URL for hit highlighting WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") ) WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( QueryString ) WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm %> Highlight matching terms in document using Summary mode. Summary
Highlight matching terms in document. Full <%end if%>
<% else if NextRecordNumber = 1 then Response.Write "No documents matched the query

" else Response.Write "No more documents in the query

" end if end if ' NOT RS.EOF if NOT GetCiOutofDate(RS.Properties("Rowset Query Status")) then ' If the index is current, display the fact %>

The index is up to date.
<%end if if GetCiQueryIncomplete(RS.Properties("Rowset Query Status")) 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 %>

The query is too expensive to complete.
<%end if if GetCiQueryTimedOut(RS.Properties("Rowset Query Status")) 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 %>

The query took too long to complete.
<%end if%> <% ' 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 %> <%SaveQuery = UseSessions%> <%end if%> <%if Not RS.EOF then ' This is the "next" button. ' This button retrieves the next page of documents for the query. %> <%SaveQuery = UseSessions%> <%end if%>
<% 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 %>
<% ' 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("AdoConnection") = AdoConnection set Session("AdoCommand") = AdoCommand set Session("RecordSet") = RS else RS.close AdoConnection.Close Set RS = Nothing Set AdoCommand = Nothing Set AdoConnection = Nothing if UseSessions then set Session("AdoConnection") = Nothing set Session("AdoCommand") = Nothing set Session("RecordSet") = Nothing end if end if end if %>