Enter a name or frequency to search. for a complete listing click here NOTE: Complete listing will take a few moments to refresh on the page
<% if request.querystring("search")<>"" then %>
<%
Dim cnnSimple
Dim rstSimple
Dim strDBPath
strDBPath = Server.MapPath("./fpdb/links.mdb")
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Set rstSimple = cnnSimple.Execute("SELECT * FROM freq WHERE freq1 Like '%" & request.querystring("search") &"%';")
%>
<%
Do While Not rstSimple.EOF
On error resume next
%>
<% =rstSimple.Fields("freq1").Value%>
<%
rstSimple.MoveNext
Loop
%>
<%
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>
<% END IF %>
