 |
 |
|||
|
||||
 |
 |
|
||
|
||||
|
||||
|
||||
 |
|
|||
 |
 |
|
||
 |
|
|||
 |
|
|||
 |
|
|||
 |
|
|||
 |
|
|||
 |
|
|||
 |
|
|||
 |
|
|||
|
||||
 |
|
|||
 |
|
|
||
|
|
|
|
|
Welcome to the search area of the site!
Before you begin, please note that the search function will only retrieve information held on this site. It will not search the Internet.
To begin your search, simply enter the key word or words that describe the information you are looking for in the box below.
Then click Search!
<% FormScope = "/" 'where to search from PageSize = 20 'number of returned items per page SiteLocale = "EN-US" 'sets the Locale ' Set Initial Conditions NewQuery = FALSE UseSavedQuery = FALSE SearchString = "" QueryForm = Request.ServerVariables("SCRIPT_NAME") ' 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") FreeText = Request.Form("FreeText") ' NOTE: this will be true only if the button is actually pushed. if Request.Form("Action") = "search" then NewQuery = TRUE RankBase=1000 end if end if if Request.ServerVariables("REQUEST_METHOD") = "GET" then SearchString = Request.QueryString("qu") FreeText = Request.QueryString("FreeText") FormScope = Request.QueryString("sc") RankBase = Request.QueryString("RankBase") if Request.QueryString("pg") <> "" then NextPageNumber = Request.QueryString("pg") NewQuery = FALSE UseSavedQuery = TRUE else NewQuery = SearchString <> "" end if end if %><% ' 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 NewQuery and len(SearchString)>1 then set Session("Query") = nothing set Session("Recordset") = nothing NextRecordNumber = 1 if FreeText = "on" then CompSearch = "$contents " & chr(34) & SearchString & chr(34)&" & not(#directory *_*)" else CompSearch = SearchString & "& not(#directory *_*)" end if set Q = Server.CreateObject("ixsso.Query") set util = Server.CreateObject("ixsso.Util") Q.Query = CompSearch Q.SortBy = "rank[d]" Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization, rank" Q.MaxRecords = 300 Q.Catalog = "arg" if FormScope <> "/" then util.AddScopeToQuery Q, FormScope, "deep" end if if SiteLocale<>"" then Q.LocaleID = util.ISOToLocaleID(SiteLocale) end if set RS = Q.CreateRecordSet("nonsequential") RS.PageSize = PageSize 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 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) & "" Response.Write SearchString & "" & chr(34) & ".
| <%= NextRecordNumber%> | <% 'Response.Write("vpath="& RS("vpath")) 'Response.Write(":path="& RS("path")) 'Response.Write(":filename="& RS("filename") &":") pathTo=RS("vpath") if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then Response.write ""& Server.HTMLEncode( RS("filename"))&"" else Response.write ""& replace(Server.HTMLEncode(RS("DocTitle")),"Embassy of Argentina in NZ : ","")&"" end if%> |
<%
else ' NOT RS.EOF
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 Q.OutOfDate then ' If the index is current, display the fact %>
The index is up to date.
<%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 %>
The query is too expensive to complete.
<%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 %>
The query took too long to complete.
<%end if%>
| <%SaveQuery = TRUE 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%> | <%SaveQuery = TRUE end if %> |