<% If strSearch <> "" Then Dim strConnect, SQL Dim RS strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("search.mdb") & ";" SQL = "SELECT * FROM Sites WHERE INSTR(Sites.Keywords,'" & strSearch & "')" Set RS = Server.CreateObject("Adodb.Recordset") 'Used for pulling main categories from DB RS.Open SQL,strConnect If RS.EOF and RS.BOF Then Response.write "Your search returned no matches." Response.write "

" Response.write "Please refine your search." Else Response.Write "We have found the following matches


" Do until RS.EOF 'If Len(strSearch) >= 1 AND LCase(strSearch) = LCase(RS("Name")) Then Response.Write "" & RS("Name") &" - " & "" Response.Write RS("Description") & "

" 'End If 'If Len(strSearch) <= 0 Then 'Response.Write "" & RS("Name") &" - " & "" 'Response.Write RS("Description") & "

" 'End If RS.MoveNext LOOP End If RS.Close End If %>

 

---