Search and Find a Record from Excel using ASP

[micawber]

I would like to search and find records from Excel using ASP.
Here is what I have so far,
Can anyone help me?
Thanks.

<%
Option Explicit
Dim strConnection, conn, rs, strSQL, freephone
 
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("book1.xls") & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
 
Set rs = Server.CreateObject("ADODB.recordset")
   strSQL="SELECT * FROM [sheet1$] WHERE freephone=freephone"
rs.open strSQL, conn, 3,3
 
freephone=Request.Form("freephone")
 
%>
 
<form action="test.asp" method="post">Telephone Number :
 <input type="text" name="freephone">        
 <input type="submit" value="Submit">
</form>
 
<%
if freephone  <> "" then
%>
   <table width="100%" cellspacing="0" cellpadding="2" border="1">
   <tr>
     <th>number</th>
     <th>localphone</th>
     <th>freephone</th>
   </tr>
<%
do until rs.EOF
   response.write("<tr>")
   response.write("<td>" & rs("localnumber") & "</td>")
   response.write("<td>" & rs("number") & "</td>")
   response.write("<td>" & rs("freephone") & "</td>")
   response.write("</tr>")
   rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>
</table>
<%  end if %>
 
</body>
</html>

[jhardman]

I think I have a pretty good idea what you are trying to do, your coding looks syntactically correct, but it doesn't look like it quite does what I think you want it to do. Exactly what problem are you having?

Jared