home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 June / june_2000.iso / Site Building / ActiveEditor / active.CAB / sengine.asp < prev    next >
Encoding:
Text File  |  2000-03-16  |  1.2 KB  |  35 lines
  1. <!--this is database search engine, here it is looking for webpages from a table called pages-->
  2.  
  3.  
  4. <%
  5.     Dim searchStrings
  6.     Dim x
  7.     Dim SQLString
  8.     
  9.     SQLString = "SELECT DISTINCT PageName FROM Pages, Gen_page WHERE Gen_Page.PageID = Pages.PageId"
  10.     searchStrings = split(Request.Form("search"))
  11.     for x = 0 to Ubound(searchStrings)
  12.         'Construct SQL query based on number of keywords in search string
  13.         SQLString = SQLString & " AND (Gen_page.H1 like '%" & searchStrings(x) & "%' OR"
  14.         SQLString = SQLString & " Gen_page.H2 like '%" & searchStrings(x) & "%' OR"
  15.         SQLString = SQLString & " Gen_page.Para1 like '%" & searchStrings(x) & "%' OR"
  16.         SQLString = SQLString & " Gen_page.Para2 like '%" & searchStrings(x) & "%' OR"
  17.         SQLString = SQLString & " Gen_page.Para3 like '%" & searchStrings(x) & "%')"
  18.     Next
  19.     Set rs = Server.CreateObject("ADODB.Recordset")
  20.     rs.open  SQLString, "DSN=Learning;UID=;PWD=;" 
  21.     %>
  22.     <CENTER><H1><FONT FACE="Arial" COLOR="#000080">Search Results</FONT></H1>
  23.     <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
  24.     <TR>
  25.         <TH>Page Name</TH>
  26.     </TR>
  27.     <%
  28.         
  29.     Do Until rs.EOF
  30.         response.write "<TR><TD>" & rs("PageName") & "</TD></TR>"
  31.         rs.MoveNext
  32.     Loop
  33.     Response.Write "</TABLE>"
  34.     rs.close
  35. %>