<%Session("sayfa_seviyesi") = "0"%> <% klasor=request.querystring("klasor") sayfa=int(request.querystring("sayfa")) sayfada_resim_sayisi=resim_sutun_sayisi*resim_satir_sayi if len(sayfa)="" or sayfa<1 then sayfa=1 end if if len(klasor)<1 then klasor="Resimler" end if %> <%on error resume next set dir=server.createobject("scripting.filesystemobject") if klasor="sizden_gelenler" then set myfiles=dir.getfolder(server.mappath(ana_klasor&"/sizden_gelenler")) else set myfiles=dir.getfolder(server.mappath(ana_klasor&"/"&klasor&"/kucuk")) end if if dir.IsReady then dosyatoplam=0 dosyasayi=0 dim dosya(1000) for each filefound in myfiles.files dosyasayi=dosyasayi+1 dosya(dosyasayi)=filefound.name dosyatoplam=dosyatoplam+1 next toplamsayfa=int((dosyatoplam-1)/sayfada_resim_sayisi)+1 %> <%bas=(sayfa*sayfada_resim_sayisi)-(sayfada_resim_sayisi-1) say=0 for i=bas to bas+(sayfada_resim_sayisi-1) if i>dosyatoplam then exit for say=say+1 %> <%if dosyatoplam=0 then%> <%else%> <%end if%> <% if i>dosyatoplam then %> <%end if%> <%next%>

Bu kategoride resim bulunamadı

<%if aspjpeg_varmi=1 then%> <% Path = Server.MapPath(ana_klasor&"\"&klasor)&"\"&dosya(i) %> <%else%> <%else%>kucuk/<%end if%><%=dosya(i)%>" width="<%=resim_uzunluk%>" height="<%=resim_yukseklik%>"> <%end if%>
<%if session("yetki")=1 then%> <%end if%>  
<%exit for end if%> <%if say = resim_sutun_sayisi then say=0%>
<%else%> Aranan klasör yok veya bilinmeyen bir hata oluştu. <%end if%>
<%if sayfa>1 then%>   <%end if%> <%for i=1 to toplamsayfa%> <%if i=sayfa then%> <%=i%>  <%else%> <%=i%>  <%end if%> <%next%> <%if sayfa <> toplamsayfa and dosyatoplam<>0 then%>   <%end if%>     <%if klasor="sizden_gelenler" or session("yetki")=1 then%> > <%end if%>