<%
'***********************************************************************
'******* XcInfoBase Copyright 2000 XCENT www.xcent.com **************
'***********************************************************************
lCurrentPage = FVal(Request.QueryString("page"))
If lCurrentPage < 1 Then
lCurrentPage = 1
End If
sSearchString = Trim(RequestValue("SearchFor"))
If Len(sSearchString) > 0 Then
sSearchString = Replace(sSearchString, "+", "")
sSearchString = Replace(sSearchString, "-", "")
sSearchString = Replace(sSearchString, ",", "")
sSearchString = Replace(sSearchString, ".", "")
sSearchString = Replace(sSearchString, "?", "")
sSearchString = Replace(sSearchString, "(", "")
sSearchString = Replace(sSearchString, ")", "")
sSearchString = Replace(sSearchString, "!", "")
sSearchString = Replace(sSearchString, "&", "")
sSearchString = Replace(sSearchString, "*", "")
sSearchString = Replace(sSearchString, "=", "")
sSearch = Split(sSearchString, " ", -1, 1)
'Response.Write("sSearchString:" & sSearchString & "
")
sSQL = "Select basID, basCreated, basLastUpdated, basTitle FROM tblIBInfoBase " & _
" WHERE basAvailable = 'Y' "
For lLoop = 0 to ubound(sSearch)
'Response.Write("sSearch" & lLoop & ":" & sSearch(lLoop) & "
" )
If Len(Trim(sSearch(lLoop))) > 0 Then
sSQL = sSQL & " AND (basTitle Like " & SQLStr(gsSQLWildCardChar & sSearch(lLoop) & gsSQLWildCardChar ) & _
" OR basBody Like " & SQLStr(gsSQLWildCardChar & sSearch(lLoop) & gsSQLWildCardChar ) & _
" OR basDetail Like " & SQLStr(gsSQLWildCardChar & sSearch(lLoop) & gsSQLWildCardChar ) & ") "
End If
Next
sSQL = sSQL & " ORDER BY basLastUpdated DESC "
'Response.Write("" & sSQL )
DoPageHeader
OpenDBConn
Set rsSR = Server.CreateObject("ADODB.Recordset")
rsSR.CursorLocation = adUseClient
rsSR.PageSize = giSearchPageSize
rsSR.Open sSQL, gobjConn, adOpenStatic, adLockReadOnly, adCmdText
lPageCount = rsSR.PageCount
If lCurrentPage > lPageCount Then lCurrentPage = lPageCount
Response.Write("")
Response.Write("
Search Results For : " & sSearchString & "")
Response.Write("
")
Response.Write("")
Response.Write("")
Response.Write("| |
")
Response.Write("| Search " & gsInfoBaseName & " |
")
Response.Write("| |
")
If rsSR.eof then
Response.Write("| ")
Response.Write("No items found containing """ & sSearchString & """")
Response.Write(" |
")
Else
rsSR.AbsolutePage = lCurrentPage
iLineFlag = True
Do While rsSR.AbsolutePage = lCurrentPage And Not rsSR.EOF
sLineTag = AlternateTag(lLineFlag, gsLineColorEven, gsLineColorOdd)
Response.Write("")
Response.Write("| " & gsTableLineOpen & "" & gsTableLineClose & " | ")
Response.Write("" & gsTableLineOpen & "" & gsTableLineClose & " |
")
rsSR.MoveNext
Loop
End If
rsSR.close
Set rsSR = Nothing
Response.Write(" |
")
Response.Write("| ")
ShowNavigationBar
Response.Write(" |
")
Response.Write("| |
")
ShowPageNavigation
DoPageFooter
CloseDBConn
Else
SearchForm
End If
Sub ShowPageNavigation
Response.Write("")
If lCurrentPage <> 1 AND lCurrentPage <> 0 Then
Response.Write ("Previous" & vbCrLf
' Spacer - inside the if so we don't get it unless needed
Else
Response.Write("Previous")
End If
Response.Write " Page "
Response.Write lCurrentPage
Response.Write " of "
Response.Write lPageCount
Response.Write " "
If lCurrentPage < lPageCount Then
Response.Write ("Next" & vbCrLf
Else
Response.Write("Next")
End If
Response.Write("")
End Sub
Sub SearchForm
DoPageHeader
sRootNav = ""
sBaseName = "Search "
Response.Write("")
Response.Write("")
Response.Write("| " & sRootNav & " |
")
Response.Write(" |
")
Response.Write("| " & sBaseName & gsInfoBaseName & " |
")
Response.Write(" |
")
Response.Write("| To search, type in all the words you want to use to limit your search results separated with a space. ")
Response.Write(" |
")
Response.Write(" |
")
Response.Write("| ")
ShowNavigationBar
Response.Write(" |
")
Response.Write("| |
")
DoPageFooter
sCrLf = Chr(13) & Chr(10)
Response.Write(sCrLf & "" & sCrLf )
End Sub
%>