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. |
<%Else%>
<%
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 "
|
E-mail Comments and Suggestions
|