Random Section Home Mekong Network Home
About This Site...
Mekong.Net Sites...
Recently Updated...
Recommended Links...
Contact Us...
Questions? Comments? Requests? Click here to contact us.
<% ' ********** BEGIN CUSTOMIZATION SECTIONS *********** ' ' *** 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 starts at the directory you specify and include all subdirectories. FormScope = "/" ' ' *** Modifying the Number of Returned Query Results. ' Set the number of query results returned on a single page PageSize = 10 ' ' *** Setting the Locale. ' This should match the locale of the server. You can set the locale below. SiteLocale = "EN-US" ' ********** END CUSTOMIZATION SECTIONS *********** %> <% ' 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 ' If they submitted a blank query, reload the page If (Request.Form("SearchString")) = "" Then Response.Redirect "search.asp" End If SearchString = Request.Form("SearchString") FreeText = Request.Form("FreeText") ' the "if" below commented out... not necessary when there is only one form on page. '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 %>

Site Search

 

If you're looking for specific information, you can use this site's Search function to locate relevant pages. Enter the word or words below and click the Search button.

Enter your query below:
 

 

 

<% if NewQuery then set Session("Query") = nothing set Session("Recordset") = nothing 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 FreeText = "on" then CompSearch = "$contents " & chr(34) & SearchString & chr(34) else CompSearch = SearchString end if set Q = Server.CreateObject("ixsso.Query") set util = Server.CreateObject("ixsso.Util") Q.Catalog ="d:\inetpub\wwwroot\catalogs\mekong" ' added to specify catalog Q.Query = CompSearch Q.SortBy = "rank[d]" Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank" Q.MaxRecords = 300 if FormScope <> "/" then util.AddScopeToQuery Q, FormScope, "deep" end if if SiteLocale<>"" then Q.LocaleID = util.ISOToLocaleID(SiteLocale) end if 'fix for a bug - shouldn't be necessary w/o option explicit, but sometimes is! dim RS 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) & ".

" %> <% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>

<% 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. %>

<% ' 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 = "graphics/rankbtn5.gif" elseif NormRank > 0.60 then stars = "graphics/rankbtn4.gif" elseif NormRank > 0.40 then stars = "graphics/rankbtn3.gif" elseif NormRank >.20 then stars = "graphics/rankbtn2.gif" else stars = "graphics/rankbtn1.gif" end if %>

<% RS.MoveNext NextRecordNumber = NextRecordNumber+1 Loop %>

<% ' Construct the URL for hit highlighting WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") ) WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( Q.Query ) WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm ' WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID %>
<%= NextRecordNumber%>.     <%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> " class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%> <%else%> " class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%> <%end if%>     " class="RecordStats" style="color:blue;">(http://<%=Request("server_name")%><%=RS("vpath")%>)
  <%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%> Page Excerpt: <%= Server.HTMLEncode(RS("characterization"))%>
<%if RS("size") = "" then%>(size and time unknown)<%else%>size <%=RS("size")%> bytes - <%=RS("write")%> GMT<%end if%> <%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 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%>

<% ' 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 = 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%>
<% 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 %> Page <%=CurrentPage%> <%if RS.PageCount <> -1 then Response.Write " of " & 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 %>