<% aranan=request.QueryString("aranan")
if aranan<>"" then
ara=aranan
else
ara=PostKontrol(Request.Form("arama"))
end if
%>
Üyelerde Bulunan Kayıtlar
<% ara1=bcevir(ara)
ara2=kcevir(ara)
sorgum="select * from firma where onay=true and adi like '%"&ara1&"%'"&" or adi like '%"&ara2&"%'"&" or yetkili like '%"&ara1&"%' or yetkili like '%"&ara2&"%' ORDER BY fkodu DESC"
rs.open sorgum,baglantim,1,3
ks = rs.recordcount
%>
"<%Response.Write ara%>" İçin Toplam <%Response.Write ks%> Kayıt Bulundu.
<%if ks=0 then
Response.Write "
Aradiginiz Özelliklerde Üye Bulunamadi.
"
else
shf = Request.QueryString("shf")
if shf="" then shf=1 end if
rs.pagesize = 10
rs.absolutepage = shf
cellcolor="#FFFFFF"
sayfa = rs.pagecount%>
<% for i=1 to 10
if rs.eof then exit for
%>