HNU Home Introduce Yourself! Exit HNU Main Directory Support Humans NU Your Search Results <% strSearchTerm = Request.QueryString("KEYWORDS") If Request.Form("KEYWORDS") <> "" Then strSearchTerm = Request.Form("KEYWORDS") If Instr(strSearchTerm," ") Then thePlace = Instr(strSearchTerm," ") strSearchTerm = Left(strSearchTerm,thePlace-1) End If If strSearchTerm <> "" Then CID = 64 DBConnectString = Application("LRB_ConnectionString") Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.open DBConnectString Set RecordSet = Server.CreateObject("ADODB.Recordset") SQLStatement = "clients.cl_ClientSitePageSelectSearcheWordsPerWordPerCID ('" & CID & "', '" & strSearchTerm & "')" RecordSet.Open SQLStatement, DBConnection, 3, 3 If Not RecordSet.EOF Then Response.Write "       The following essays include your keyword, “" & strSearchTerm & ".” Click on an essay title to go to that page. The number after the title tells how many times the search keyword appears on the page. " RecordSet.MoveFirst Randomize intRandNum = int(rnd*CountRecs) LabelRecs = 0 Do While Not RecordSet.EOF strFileName = Trim(RecordSet.Fields("strFileName").Value) strPageName = Trim(RecordSet.Fields("strPageName").Value) intCount = Trim(RecordSet.Fields("intCount").Value) Response.Write " " & strPageName & " (" & intCount& ") " RecordSet.MoveNext Loop Set RecordSet = Nothing Response.Write " " Else Response.Write "       There are no results for the keyword " & strSearchTerm & "." End If DBConnection.Close Set DBConnection = Nothing Else Response.Write "ERROR" End IF %> E-mail Comments and Suggestions HNU Home Introduce Yourself! Exit HNU Main Directory Support Humans NU