" End If m=m+1 Rs.MoveNext Next %>

<% fldID = Request.QueryString("fldID") KatAdi = Request.QueryString("fldAdi") %> <%=KatAdi%>
<%=KatAdi%>
<% Set Rs = CreateObject("Adodb.RecordSet") Rs.Open "Select fldID,fldAdi,fldResim,fldHit,fldKatID,fldTarih From tblResimler Where fldKatID Like '"&fldId&"' Order By fldID DESC",Vt,1,3 SayfaSayisi = Resimsayi Toplam = Rs.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 Response.Write "

Bu kategoride resim yok.

" Else intGecerliSayfa = Request.QueryString("Sayfa") If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 Rs.PageSize = SayfaSayisi intSayfaSayisi = Rs.PageCount Rs.AbsolutePage = intGecerliSayfa m=1 For r = 1 To SayfaSayisi If Rs.EOF Then Exit For Resim=Rs("fldResim") Set Kat = Vt.Execute("tblKategori Where fldID Like '"&Rs("fldKatID")&"'") KatAdi = Kat("fldAdi") Kat.Close : Set Kat = NoThing ResimAdi = ResimYol & "/" & KatAdi & "/Kucuk/" & Resim Path = (Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & ResimYol & "/" & KatAdi & "/Buyuk/" & Resim) Set Jpeg = Server.CreateObject("Persits.Jpeg" ) Jpeg.Open Path Height=Jpeg.Height Width=Jpeg.Width Set Jpeg = NoThing Set Fso = Server.CreateObject("Scripting.Filesystemobject") Set Dosya = Fso.GetFile(Path) Boyut = Dosya.Size/1024 Set Dosya = NoThing Set Fso = NoThing %>
" target="_blank"> Tarih: <%=Rs( - Hit: <%=Rs("fldHit")%>" border="1" onError="src='arabirim/resimyok.gif'" width="100">
<%=Rs("fldAdi")%>
<% Response.Write Width & "*" & Height & "/" & FormatNumber(Boyut,1) & " KB
" If m mod Yanyana = 0 Then Response.Write "

Toplam <%=intSayfaSayisi%> sayfada <%=Toplam%> kayıt listeleniyor. <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 If intGecerliSayfa >1 Then %> [««] [«]<% End If For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ." For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ." For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %> [»] [»»]<% End If %>
<% End If 'Eof Rs.Close : Set Rs = NoThing %>