<% Set rsvideo_galeri = Server.CreateObject("ADODB.Recordset") sor = "SELECT * FROM haber where onay=1 and veri_turu=1 and sekil=1 order by id desc" rsvideo_galeri.Open sor,conn,1,3 %> <% sayfaresim = Request.QueryString("sayfaresim") If sayfaresim="" Then sayfaresim="1" rsvideo_galeri.pagesize = 13 rsvideo_galeri.absolutepage = sayfaresim sayfa_sayisi = rsvideo_galeri.pagecount for i=1 to rsvideo_galeri.pagesize If rsvideo_galeri.eof Then exit for %> <% rsvideo_galeri.MoveNext next rsvideo_galeri.close Set rsvideo_galeri = Nothing %>

"> " align="left" style="margin: 0px 10px 10px 0px; border: 1px solid #D0D0D0;"> <%=rsvideo_galeri("baslik")%> <%=rsvideo_galeri("kisa_haber")%>

Sonuçlar: <%=sayfa_sayisi%> Sayfa <% for g = 1 to sayfa_sayisi if g = cint(sayfaresim ) then response.write g& " "%><%else response.Write "" & g & " " end if next%>