Verileri Sayfalama (ASP)

01/Tem/10 00:57

Kısayol

Şikayet

Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Merhaba arkadaşlar , aşağıdaki kodlarla veritabanımdaki verileri hem listeliyorum hemde sayfalaıyorum. Sorunum şu ; ilk tablomda kayıtları sıra no vermek için sno isminde bi değişken tamamladım ve sno = sno +1 diye her satırda numaralandırmayı yaptım.
benim isteğim ikinci sayfaya geçince sno değişkeninin kaldığı yerden devam etmesi örneğin sno : 20,21,22,23 diye devam etmeli.
şu anki sitemde tekrar 1 den başlıyor ikinci sayfaya geçtimi, acaba nasıl yapabilirim bi örnekle gösterebilirmisiniz

<meta http-equiv="content-type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">



<%
dim sno
sno = 1
set rs = Server.CreateObject("Adodb.Recordset")
sql = " SELECT * FROM Arpa order by Tid desc"
rs.open sql,baglan,1,3
%>

<p>
<table style="width: 100%">
<tr>
<td></td>
</tr>
</table>
<%
If Not rs.EOF Then
rs.PageSize = 2

If Request.QueryString("s") <> "" Then

Sayfa = CInt(Request.QueryString("s"))
Else

Sayfa = 1
End If

rs.AbsolutePage = Sayfa
%>

<br></p>

<table style="width: 100%" align="center" >
<tr id="blok">
<td style="width: 23px; height: 18px;">No</td>
<td style="width: 46px; height: 18px;">Tarih</td>
<td style="width: 118px; height: 18px">Müstahsil Adı</td>
<td style="width: 94px; height: 18px;">Plaka</td>
<td style="width: 81px; height: 18px">Tahıl Adı</td>
<td style="width: 109px; height: 18px;">Hammadde Kodu</td>
<td style="width: 70px; height: 18px">Hektolitre</td>
<td style="width: 48px; height: 18px">Nem</td>
<td style="width: 51px; height: 18px;">Sonuç</td>
<td style="width: 40px; height: 18px">Not</td>

</tr>

<%
i=0

Do While Not rs.EOF And i<rs.PageSize
%>

<tr id="stylealt">
<td class="stylealt" style="width: 23px"><%=sno%></td>
<td class="stylealt" style="width: 46px"><%=rs("Tarih")%></td>
<td class="stylealt" style="width: 118px"><%=rs("Mustahsil")%></td>
<td class="stylealt" style="width: 94px"><%=rs("Plaka")%></td>
<td class="stylealt" style="width: 81px"><%=rs("TahAdi")%></td>
<td class="stylealt" style="width: 109px"><%=rs("TahKod")%></td>
<td class="stylealt" style="width: 70px"><%=rs("Hekto")%></td>
<td class="stylealt" style="width: 48px"><%=rs("Nem")%></td>
<td class="stylealt" style="width: 51px"><%=rs("Durum")%></td>
<td class="stylealt" style="width: 40px"><%=rs("Not")%></td>

<%
sno = sno + 1
i=i+1
rs.MoveNext
Loop
%>

</tr>

</table>
<h1>
<%

If rs.PageCount > 1 Then
For s=1 To rs.PageCount
Response.Write "<a href=""?s=" & s & """>" & s & "</a> "
Next
End If
End if
%>
</h1>

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap