<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %>

<% 'if a form element has been submitted then... If Request.Form <> "" Then dim strSearchCriteria 'set the strSearchCriteria variable with the value of the submitted search criteria string strSearchCriteria = Session("SearchString") %> <% End If %>

<% 'write the search results list in order of relevance Response.Write GetSearchResultsDisplay(strSearchCriteria) %>

Enter your search terms:

Please enter single words separated by spaces. We'll return the results based on the number of times each article hits each word in the URL, section name/posting title or body of the page.

<% 'close data connection Call CloseConn() %>