|
<% 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">
- 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 " |
"
End If
m=m+1
Rs.MoveNext
Next %>