saolasın o oluyo
ama bunu aramaya nasıl yerleştiririm yani cümle degilde farklı yerlerde ki bu kelimeleri arıyacak

<%
IF sayfa = "" then sayfa = 1 ELSE sayfa = CInt(Sayfa) END IF
Set RS = Server.Createobject("ADODB.Recordset")
RS.Open "SELECT * FROM site WHERE adres LIKE '%"&q&"%' or kategori LIKE '%"&q&"%' or site LIKE '%"&q&"%' or acik LIKE '%"&q&"%' ORDER BY sira > 0, sira asc",BAG,1,3
IF RS.eof THEN
n = 0
%>