<table>
<tr>
<form method="POST" action="search_results.asp">
<td>Search: <input type="text" name="txtSearch" size="30"></td>
</tr>
<tr>
<td><input type="submit" value="Search"></td>
</tr>
</table>

<%
Dim strInputSearch 'Variable for the search word
Dim strCon 'Holds the string to connect to the db
Dim adoCon 'Database Connection Variable Object
Dim strSQL 'Holds the SQL query for the database
Dim rsSearch 'Holds the search recordset

'This is the variable that has the search word
strInputSearch = Request.Form("txtSearch")
 
'This makes it so people cant inject SQL code and/or cause some unwanted errors
strInputSearch = Replace(strInputSearch,"'", "''", 1, -1, 1)

'This sets the connection
Set adoCon = Server.CreateObject("ADODB.Connection")
 
'This is the connection string
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("database.mdb")
 
'Open the connection
adoCon.Open strCon

'Set the database connection
Set rsSearch = Server.CreateObject("ADODB.Recordset")
 
'This is the SQL statement for searching. You will need to change tblTable and Field to match your database (they are in red)
strSQL = "SELECT tblTable.* FROM tblTable WHERE tblTable.Field LIKE '%" & strInputSearch & "%';"
 
'Opens the database so we can get the results of the search
rsSearch.Open strSQL, adoCon

'If there are no matches then continue
If rsSearch.EOF Then
 
   'Write out the message that there are no matches
    Response.Write("There are no matches with your search")
 
'If there are matches, continue
Else
 
    'Loop through the database to display all the matches
    DO UNTIL rsSearch.EOF
 
        'Write out the match found. You need to change Field to your database field you are search (its in red)
        Response.Write(rsSearch("Field") & "<br>")
 
    'Move to next line in database
    rsSearch.MoveNext
    'Continue looping through database to display all results found
    Loop
End If

'Reset server objects
Set rsSearch = Nothing
adoCon.Close
Set adoCon = Nothing
%>