<%
sayfala=6
sayfa=cint(request.QueryString("sayfa")) 
if sayfa="" then sayfa =0 end if 
set rsimage = Server.CreateObject("ADODB.Recordset")
rsimage.open "SELECT * FROM images where imagekategori = 'gamykolye'" ,baglan,1,3
If rsimage.BOF And rsimage.EOF Then%>



<div align="center"><font color="#FFFFFF"><span class="style8" style="font-size: 12px">
Bu Bölümde Henüz Resim Yoktur.</span></font> </div>

<%else 
git = Int((sayfa * sayfala)+ 0)
rsimage.Move(git)
for i=1 to (sayfala\3) 
if not rsimage.eof then
%>

<table border="1" width="100%" id="table1">
	<tr>
		<td>
		<table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" id="table2">
<tr>
<td><a href="fotogoster.asp?imageid=<%=rsimage("imageid") %>"><img src="<%=rsimage("imagesmallurl")%>" border="0" /></a></td>
<%rsimage.MoveNext
%> 
</tr>
</table></td>
	</tr>
</table>
<%
if not rsimage.eof or rsimage.bof then rsimage.MoveNext
end if
next
sayfasayisi=(rsimage.RecordCount-1)\sayfala %>
<span class="style6"><font color="#FFFFFF" face="Monotype Corsiva">Sayfalar:&nbsp;
<%for a=0 to sayfasayisi%> 
<%if sayfa<>a then%><a href="?sayfa=<%=a%>" class="style6"><%=a+1%></a></span><%else%><span class="style8"><%=a+1%></span><%end if%><span class="style6"></span>
<%next%>
<% 
End If
rsimage.close%></font> 
</div></td>
</tr>
</table>