tablo ısımlerını ve ornek kodunu yazarsan daha kolay yardımcı olunablır ama gormedende soleyebılecegım ben denedımde istedigin buysa ornek olarak bir kod verım sana

<%
Dbm = Server.MapPath("DataBase.mdb")
Set x= Server.CreateObject("Adodb.Connection")
x.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Dbm &";"

Set Sorgu = Server.CreateObject("ADODB.Recordset")
SorguSql ="SELECT baslik FROM basliklar where baslik like '%"&Request.QueryString("aranacak")&"%' order by baslik" 
Sorgu.Open SorguSql,x
Do While Not Sorgu.EOF
Response.Write("Bulunan Başlık: ")
Response.Write(Sorgu("baslik"))
Response.Write("<br>")
Sorgu.MoveNext
Loop
%>

SELECT baslik FROM basliklar where baslik like '%as%' order by baslik