Sanırım istediğin gibi birşey yaptım.
test ettim çalıştı.


<%

Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/ara.mdb")

ara = request("aranacak")
ara = replace(ara,"i","%")
ara = replace(ara,"c","%")
ara = replace(ara,"g","%")
ara = replace(ara,"s","%")
ara = replace(ara,"o","%")
ara = replace(ara,"u","%")


Set rs=baglanti.Execute("Select * from ara where ara like '%"&ara&"%' ")

response.write rs("ara")

rs.close
set rs = nothing

%>

kolay gelsin