Hej å hå!! Titta på asp artikeln paging så kan du se vad som behövs. Tack så mycket Pelle!!Paging kod som d e nåt fel på!! [LÖST]
D e nåt fel på denna koden men jag vet inte vad..
När jag har en "rad" i databasen som jag ska skriva ut på sidan så listar den alldeles utmärkt.. men om jag sedan lägger till en "rad" till som ska skrivas ut så listar den ut den första raden så att den första sidan blir full.. *Skumt*
Här e koden så att ni kan kolla.
<%
Page = Request.QueryString("Page")
If Page = "" then Page = 1
RowCount = 0
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../_database/data.mdb") & ";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * From Annonser WHERE Kategori='" & Request.QueryString("Kategori") &"'", Connect, 1, 3
RecSet.PageSize = 31
RecSet.AbsolutePage = cInt(Page)
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="618">
<tr>
<td width="584" class="rubrik">Annons rubrik</td>
<td width="249" class="rubrik">Köpare</td>
<td width="294" class="rubrik">Län</td>
</tr>
<%
DO While Not RecSet.EOF and RowCount < RecSet.PageSize
RecSet.AbsolutePage = Page
totalPages = RecSet.PageCount
annonser = annonser + 1
If annonser Mod 2 = 0 Then
color = "#D9ECFF"
Else
color = "#CEE7FF"
End If
%>
<tr bgcolor="<%=color%>">
<td width="584" class="text">"><%=RecSet("Rubrik")%></td>
<td width="249" class="text"><%=RecSet("Namn")%></td>
<td width="294" class="text"><%=RecSet("Län")%></td>
</tr>
<%
RecSet.MoveNext
RowCount = RowCount + 1
Loop
%>
<tr>
<td width="1127" colspan="3" class="text"> </td>
</tr>
<tr>
<td width="1127" colspan="3" class="text">
<div align="center">
<% If RowCount < 31 Then %>
<%
Else
Response.Write "<-- Första sidan"
%>
[ <%
For PageCounter = 1 to RecSet.PageCount
Response.Write "" & PageCounter & " "
Next
%>]
<%
Response.Write " Sista sidan -->"
End If
%>
</div>
</td>
</tr>
<%
RecSet.Close
Connect.Close
%>
MVH
//JonnieSv: Paging kod som d e nåt fel på!!
Hälsningar
/PelleSv: Paging kod som d e nåt fel på!!
med hjälp av den koden så såga jag vad d va för fel..
Jag hade bara satt två små kod rader fel...
MVH
//Jonnie