<% ' Number of records to display on each page ' Set this value to how many records you want to display on each page. NUMBERRECORDS = 5 %>


To find what you are looking for simply type the word or name of the item you are intrerested in,
inside the text box below and click the search button.

If you are successful it will bring back one to many results Then by clicking on the results returned
you might have found what you were looking for.

<% if request("txtSearch") <> "" then 'searchtext = request("txtSearch") ' gordys quote remover searchtext = replace(trim(request("txtSearch")), "'", "''") If Request.QueryString("NAV") = "" Then intPage = 1 Else intPage = Request.QueryString("NAV") End If query = "SELECT " _ & "Menu_Content.Menuid, "_ & "Content.ContentBody, " _ & "Content.ContentName " _ & "FROM Content INNER JOIN Menu_Content " _ & "ON Content.Contentid = Menu_Content.Contentid " _ & "WHERE Content.ContentBody Like '%" & searchtext & "%'" RSconn.Open query, ConnString RSConn.PageSize = NUMBERRECORDS RSConn.CacheSize = RSConn.PageSize intPageCount = RSConn.PageCount intRecordCount = RSConn.RecordCount ' do menu thingo If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount end if If CInt(intPage) <= 0 Then intPage = 1 end if If intRecordCount > 0 Then RSConn.AbsolutePage = intPage intStart = RSConn.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RSConn.PageSize - 1) End if End If %>

Your search for <%=request("txtSearch")%> returned <%=intRecordCount%> records. <%If intRecordCount > 0 Then %>

You are now viewing records <%=intStart%> to <%=intFinish%>.

 

<% 'Response.Write "
" 'Response.Write "txtSearch " & request("txtSearch") 'Response.Write "
" 'Response.Write "intFinish " & intFinish 'Response.Write "
" 'Response.Write "intRecordCount " & intRecordCount 'Response.Write "
" 'Response.Write "intStart " & intStart 'Response.Write "
" 'Response.Write "CInt(intPage) " & CInt(intPage) 'Response.Write "
" 'Response.Write "CInt(intPageCount) " & CInt(intPageCount) 'Response.Write "
" %>
<% For intRecord = 1 to RSConn.PageSize %> <%= RSConn("ContentName") %>
<%RSConn.MoveNext If RSConn.EOF Then Exit for Next %>
<% If cInt(intPage) > 1 Then %> " class="Hyperlink1"><< Prev <%End IF%> <% ' Check to see if the current page is less than the last page ' in the recordset. If it is, then add a "Next" link. If cInt(intPage) < cInt(intPageCount) Then %> " class="Hyperlink1">Next >> <%End If %>
<%End If %>

° NEW SEARCH <% end if %>