<% Dim adoCon Dim adoQuery 'Buda ACCESS için Set adoCon = Server.CreateObject("ADODB.Connection") adoQuery = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/fuar.mdb") adoCon.Open (adoQuery) Set rsu = Server.CreateObject("Adodb.Recordset") sql="SELECT * FROM tbl order by id desc" rsu.Open sql,adoCon,1 On Error Resume Next BirSayfadaVeriAdedi = 8 'hersayfada 20 tane göster page = CInt(Request("page")) ' Geçerli Sayfa If (page ="" or page = 0) Then page = 1 Else page=page rsu.pageSize = BirSayfadaVeriAdedi rsu.absolutePage=page %>
<% i = 0 Do While Not rsu.Eof and i <% If i Mod 4=3 Then Response.Write "" End If i = i + 1 rsu.Movenext : Loop %>

 

<% 'Şimdi sayfalamayı yapalım If page = 1 Then Response.Write " " Else a = page -1 Response.Write " << " End If If page + 5 > rsu.pagecount Then b = rsu.pagecount Else b = page + 5 End If If page < 5 Then c = 1 Else c = page - 5 End If For j = c To b If j = page Then Response.Write "" & j & "" Else Response.Write "" & j & " " End If Next If page = rsu.pagecount Then Response.Write " " Else a = page + 1 Response.Write " >> " End If rsu.close set rs = Nothing %>

Anasayfa | Ürünler | Hakkımızda | İletişim
                                Site Created By Netürk Copyright 2009 © Turkuaz. Her hakkı saklıdır.