<% rs.movenext next %>
Resim Listesi
<% if fkodu<>"" then Session("sayfa")="rehber" Response.Redirect("giris.asp?fkodu="&fkodu) end if sorgum="Select * from firma where onay=true order by fkodu desc" Rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("
Kayıtlı Üye Bulunmadı.
") else Set istekurl = Request.ServerVariables("QUERY_STRING") istekbolum = Split(istekurl,"/") istekbolum2=istekbolum(3) parcala=split(istekbolum2,"-") Shf=parcala(1) if shf="" then shf=1 end if rs.pagesize = 22 rs.absolutepage = shf cellcolor="#FFFFFF" sayfa = rs.pagecount y=0 for i=1 to 22 if rs.eof then exit for %>
-<%=cevir(rs("adi"))%>.html" title="<%=rs("aciklama")%>..."> <% if rs("logo")<>"" then %> " onerror="src = 'images/logoyuklenemedi.gif'" border="0" width="75" height="60" /> <% else %> <%end if%>
 -<%=cevir(rs("adi"))%>.html" title="<%=left(rs("aciklama"),150)%>..."> <%= rs("adi") %> [<%sektorbul(rs("skodu"))%>]
<%= 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 %> <%Rs.Close%>