Description: <!--#INCLUDE FILE="includes/DisplayHandling.asp"-->
<!--#INCLUDE FILE="includes/MainSearch.asp"-->
<
Dim strHTML, strError
____________________________________________________________________________________________________________
Function CheckRules
CheckRules = True
If Len(strKeywords) < 2 Then
CheckRules = False
strError = "Please enter keyword(s) for searching."
End If
End Function
____________________________________________________________________________________________________________
Sub InitializePage
On Error Resume Next
Dim strSQL, strTEMP, intDescription,intDate
intDate = 3
intDescription = 8
catID = 6
If CheckRules = True Then
Call MainSearchInitialize
Call GetRecordSet(BuildSearchSQL(doActiveStatus))
strTemp = BuildHTMLTable(catID)
Call MainSearchClose
End If
strHTML = strTEMP
If err <> 0 Then
strError = "<p align=center><b>An error has occured in the search engine, " & _
To Search:
File list (Check if you may need any files):
search.asp
Download