<% Response.Buffer = True %> <% shf = Request.QueryString("shf") if shf="" then shf=1 end if set yaz = Server.CreateObject("ADODB.RecordSet") SQL_yaz ="Select * from uyeler ORDER BY adi" yaz.open SQL_yaz,bag,1,3 yaz.pagesize = 25 yaz.absolutepage = shf sayfa = yaz.pagecount for i=1 to yaz.pagesize if yaz.eof then exit for %> <% yaz.movenext Next %>

Vicdan.Net - Üyeler Listesi
:.Üye Adı.:		:.Kayıt tarihi.:
"><%=yaz("adi")%> <%=yaz("soyadi")%>		<%=yaz("tarih")%> - <%=yaz("saat")%>
Sayfalar : <% for z=1 to sayfa if shf=z then response.write z else response.write "["&z&"]" end if next %>
Toplam üye : <%=yaz.recordcount%>