<%
On Error Resume Next
strIstekSayfa = Clng(Request.QueryString("Page")) 'Sayfa numaralarını bağladığımız değişken
strGosterimSayisi = 1 'Bir sayfada gösterilecek resim sayısı

	 'SQL SORGUSU
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Rs.Open "SELECT * FROM tblResimler ORDER BY Idno DESC;",Baglanti,1
	strToplamKayit = Rs.RecordCount
	 'SQL SORGUSU

 'SQL den gelen sayfalama bilgileri
strSayfa = strIstekSayfa
If (strSayfa = "" Or strSayfa = 0) Then strSayfa = 1 Else strSayfa = strSayfa
Rs.pageSize = strGosterimSayisi 'Bir sayfada gösterilecek resim sayısı
Rs.absolutePage = strSayfa 'Geçerli sayfa
strKacSayfa = Rs.PageCount 'Kaç sayfaya bölüneceğinin bilgisi
 'SQL den gelen sayfalama bilgileri

	'Gösterim kodu
	Do while not Rs.Eof And i < Rs.pagesize
		i=i+1
	On Error Resume Next
%>
<img src="<%=Rs("ResimAdi")%>" /><br />
<%
rs.Movenext
Loop
'Gösterim yapıldı
%>
<br />
<%
'Sayfalama işlemi
If strIstekSayfa = 1 Then
	Response.Write " "
		Else
			a = strIstekSayfa -1
				Response.Write "<a  href=?Page=" & a &"><<  Önceki    </a> "
End If


	If strIstekSayfa = strKacSayfa Then
		Response.Write " "
			Else
				a = strIstekSayfa + 1
					Response.Write "<a href=?Page=" & a &">    Sonraki >></a> "
	End If
'Sayfalama işlemi

 'Açılan bağlantı kapatılıyor
Rs.close
Set Rs = Nothing
 'Açılan bağlantı kapatılıyor
%>