set AspDestekResimGaleri = server.createobject("ADODB.Recordset")
rSQL = "Select * from galeri ORDER BY ID DESC"
AspDestekResimGaleri.open rSQL,Connection,1,3
%>
<%
if AspDestekResimGaleri.recordcount= 0 then
Response.write ("Kayıt Bulunamadı.")
Else
shf = Request.QueryString("shf")
If shf="" Then
shf=1
End If
%>


<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from galeri where kategori=" & request.QueryString("id") & " order by id desc"
rec.open rSQL,Connection,3,3
if (not rec.eof) then
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 5
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesizes
if rec.eof then
exit for
end if
%>

Sayfa=shf yazık