Main

The code for the routine Main, annotated for easier comprehension, is:

Sub Main()     Dim sPhrase, sCacheKey, sCatalogSetID     Dim sSearchPhrase     Dim rsSearchResults, iRecordCount

The following constant, MIN_SEARCHRESULTS, is actually used as the starting record, not the minimum number of search results to return. If more than 50 records are returned by the search, the Retail Solution Site, as released, cannot show the matches beyond the 50th one. To do so, the page would need to be enhanced so that it could be called again with an additional query string parameter that indicates the appropriate starting record. Then, "next page" and "previous page" links could be conditionally added, and the search page could call itself with different starting record values.

    Const MIN_SEARCHRESULTS = 1     Const MAX_SEARCHRESULTS = 50          Call EnsureAccess()     sPageTitle = mscsMessageManager.GetMessage("L_Search_HTMLTitle", sLanguage)          ' Initialize     sPhrase = ""     sSearchPhrase = ""

The keyword(s) to be searched for are passed to this page as the value of the query string parameter "keyword." The routine GetRequestString is used to retrieve the keyword(s) from the query string.

    ' Get search phrase     sPhrase = LCase(GetRequestString("keyword", Null))     If IsNull(sPhrase) Then         sSearchPhrase = ""     Else         sSearchPhrase = sPhrase     End If

The site caches the results of keyword searches and checks it using the routine bFullTextResultsAreCached. If the same keyword has been used before, the previous results are immediately assigned to the variable htmPageContent and the routine Main is done (note that the body of the if condition is empty). If the search result for this particular search is not found in the cache, the site routine rsFreeTextSearch is called to perform the requested search. The RecordSet object resulting from the search is then passed to the routine htmRenderFullTextSearchResults for conversion to HTML and assignment to the variable htmPageContent.

    ' If results are cached, the query doesn't need to be run     If bFullTextResultsAreCached(sSearchPhrase, htmPageContent, sCacheKey) Then         '     Else         Set rsSearchResults = rsFreeTextSearch(sSearchPhrase, _                                                MIN_SEARCHRESULTS, _                                                MAX_SEARCHRESULTS, _                                                iRecordCount)         htmPageContent = htmRenderFullTextSearchResults(sSearchPhrase, _                                                         rsSearchResults, _                                                         sCacheKey, _                                                         iRecordCount)     End If     ' The result to display is now in htmPageContent. End Sub

Previous Next