<%Else%>Click on a letter for the index you wish to browse. <%End If%>

HNU Home Search Index Exit HNU Main Directory Support Humans NU Search Index <% strLetter = Request.QueryString("letter") If strLetter <> "" Then strLetter = Left(strLetter,1) If LCase(strLetter) < "a" OR strLetter > "z" Then strLetter = "" End If If strLetter <> "" Then %> .GIF" WIDTH="23" HEIGHT="33" ALT="A" BORDER="0" ALIGN="Middle"> <%End If%> <%If strLetter <> "" Then%>       Click on a word to activate the Humans in the Universe search engine to retrieve documents containing that word.

<% CID = 64 If strLetter <> "" Then DBConnectString = Application("LRB_ConnectionString") Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.open DBConnectString Set RecordSet = Server.CreateObject("ADODB.Recordset") SQLStatement = "clients.cl_ClientSitePageSelectSearcheWordsPerAlphabetPerCID ('" & CID & "', '" & strLetter & "')" RecordSet.Open SQLStatement, DBConnection, 3, 3 If Not RecordSet.EOF Then RecordSet.MoveFirst CountRecs = 0 Do While Not RecordSet.EOF CountRecs = CountRecs + 1 RecordSet.MoveNext Loop CountRecs = Int((CountRecs/3))+1 Response.Write " " RecordSet.MoveFirst LabelRecs = 0 Do While Not RecordSet.EOF LabelRecs = LabelRecs + 1 strSearchTerm = Trim(RecordSet.Fields("strSearchWord").Value) Response.Write " " & strSearchTerm & "" RecordSet.MoveNext If LabelRecs = CountRecs Then Response.Write " " LabelRecs = 0 End If Loop Response.Write " " Set RecordSet = Nothing End If DBConnection.Close Set DBConnection = Nothing End If %>

E-mail Comments and Suggestions HNU Home Search Index Exit HNU Main Directory Support Humans NU