Here's a very basic example of one way to do a search feature like this (assuming you first imported the excel file into an Access database in a table called "table_name":
"search1.asp":
<% @Language="VBScript" %>
<%
Dim Found
Found = Request.QueryString("Found")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>Database Search</title>
</head>
<body>
<% If Found = "0" Then Response.Write("<font color="red">No records were found matching your criteria.</font><br />") %>
<form name="form1" method="post" action="search2.asp">
Select all records where:
<select name="SearchOption1">
<option value="Customer">Customer</option>
<option value="Telephone">Telephone</option>
<option value="Address">Address</option>
<option value="City">City</option>
<option value="State">State</option>
<option value="Zip">Zip</option>
</select>
<select name="SearchOption2">
<option value="Equals">Equals</option>
<option value="Contains">Contains</option>
</select>
<input type="text" name="SearchOption3">
</form>
</body>
</html>
"search2.asp":
<% @Language="VBScript" %>
<%
Dim SearchOption1, SearchOption2, SearchOption3
Dim SQLStart, SQLEnd
SearchOption1 = Request.Form("SearchOption1")
SearchOption2 = Request.Form("SearchOption2")
SearchOption3 = Request.Form("SearchOption3")
Select Case SearchOption2
Case "EQUALS"
SQLStart = " = '"
SQLEnd = "' "
Case "CONTAINS"
SQLStart = " LIKE '%"
SQLEnd = "%' "
End Select
Set Conn = Server.CreateObject("ADODB.Connection")
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
sMapPath = Server.MapPath("\")
sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "\database\databasename.mdb;" & _
"Persist Security Info=False;"
sConnString = sConnString & sMapPath
Conn.Open sConnString
SELECTQUERY = "SELECT * FROM table_name WHERE " & SearchOption1 & SQLStart & Replace(SearchOption3,"'","''") & SQLEnd & " ORDER BY " & SearchOption1
'Response.Write(SELECTQUERY) : Response.End
'If any SQL syntax errors are thrown, uncomment the line above!
Set rs = Conn.Execute(SELECTQUERY)
If NOT rs.EOF Then
Do While NOT rs.EOF
Response.Write("<p>" & _
rs("Customer") & "<br />" & _
rs("Telephone") & "<br />" & _
rs("Address") & "<br />" & _
rs("City") & "<br />" & _
rs("State") & "<br />" & _
rs("Zip") & _
"</p>")
rs.MoveNext
Loop
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Else
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect("search1.asp?Found=0")
End If
%>
I wrote that completely from scratch out of my head, and I haven't tested it at all - so it may contain errors - but hopefully not too many. ;)