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

    ABCDEFGHIJKLM
    NOPQRSTUVWXYZ

    E-mail Comments and Suggestions

    HNU Home

    Search Index

    Exit HNU

    Main Directory

    Support Humans NU