<% aranan=request.QueryString("aranan") if aranan<>"" then ara=aranan else ara=PostKontrol(Request.Form("arama")) end if %>
<% 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 %>
<%skodu=rs("skodu")%>
Üye Adı : <%= rs("adi") %>
Açıklama
:
<%=left( rs("aciklama"),150) %>...
     
<%if rs("www")<>"" then%> " target="_blank">Web sitesine gitmek için tıklayınız. <%else%> Üyenin Kayıtlı Web Sitesi Yok. <%end if%> "> Üyemize Mail Göndermek İçin Tıklayınız. -<%=cevir(rs("adi"))%>.html">Tel: <%=rs( - Fax: <%=rs("fax")%>" width="19" height="16" border="0" /> ','','resizable=yes,status=yes,width=700,height=650')" style="cursor:hand;">Üye Bilgilerini Yazdırma İçin Tıklayınız... -<%=cevir(rs("adi"))%>.html">Üye Detayını Görmek İçin Tıklayınız...
<% rs.movenext next %>
<%= shf %>

<% onceki=shf-1%> <%if shf=1 then%> «« <%else%> «« <%end if%>  | <%if onceki<1 then%> « <%else%> « <%end if%>  |  <% for y=1 to sayfa %> <% x=x+1 if shf=y then response.write ""&y&" | " else%> <%=y%> |  <% end if if x>18 then response.write ("
") x=0 end if next sonraki=shf+1 if sonraki>sayfa then %> » <%else%> » <%end if%>  |  <%if shf=sayfa then%> »» <%else%> »» <%end if%>
<%end if %>