<% set redkod = server.createobject("adodb.recordset") galeriSirala = 5 tablo = "Select * from res_kategori " redkod.pagesize = 5 redkod.open tablo,conn,1,3 if redkod.eof Then Response.Write " Kayıtlı Veri bulunamadı" Else if request.QueryString("s")="" or request.querystring("s")=0 then s=1 else s=request.QueryString("s") end if redkod.AbsolutePage = s %>

<% for k=1 to redkod.pagesize %> <% if redkod.eof or redkod.bof then exit for %> <% if yan=videoSirala then response.write ("") yan=0 End if %> <% yan=yan+1 if yan = (galeriSirala+1) then response.write ("") end if %> <% redkod.movenext : next redkod.close set redkod=Nothing End if %>

<%=redkod("kategori")%>

" border="0" width="113" height="87">