Paging

Jaja, jag vet. Det finns hur många trådar om detta som hellst men men. Har sökt och får upp hur många träffar som hellst. Jag har läst och läst och provat och provat... Men inte lyckats.

Jag ska som ni säkert förstår lägga in paging på min sida.

Koden för sidan ser ut såhär:

<% Set Conn = Server.CreateObject("ADODB.Connection")
Set recset = Server.CreateObject("ADODB.RecordSet")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("lankar/lankar.mdb")

If Request.QueryString("sort") = "" Or Request.QueryString("sort") = "datum" Then
SQL = "SELECT * From lankar order by ID desc"

ElseIf Request.QueryString("sort") = "namn" Then
SQL = "SELECT * From lankar order by namn"

ElseIf Request.QueryString("sort") = "klick" Then
SQL = "SELECT * From lankar order by namn"
End IF

recset.Open SQL, Conn
Do while NOT recset.EOF %>

<tr <% if color = 1 then %> bgcolor="#CED6DE" <% else %> bgcolor="#FFFFFF"<% end if %>>
<td><%=recset("datum")%></td><td><a href="<%=recset("url")%>" target="_blank"><%=recset("namn")%></a></td><td><%=recset("klick")%></td><td><%=recset("tipsare")%></td><td><a href="#" title="Mer info"><img src="bilder/bullet.gif" border=0></a></td>
</tr>
<%
if color = 1 then
color = 0
else
color = 1
end if
recset.MoveNext
Loop
recset.Close
%>

Jag är mycket tacksam om någon kunde hjälpa mig att lägga in paging i detta.

Jag tror att min lilla GetRows() och paging skulle kunna hjälpa dig en smula. Koden är defintivt inte så svår att förstå. :)

Jo, lite :P
Fattar inte riktigt var du skriver ut posterna?

Response.Write posts(0) & " | " & posts(1) & " | " & posts(2)

Men som herr söderlund skrivit i sin kommentar så är det bättre att välja mer beskrivande namn och tre olika varibler. Det blir liksom enklare att se vad som pågår då.

Kan man inte bara skriva ut koden med
<%=RecSet("kolumn")%> som jag gör nu?

Hur blir hela koden för det?
Är lite yrvaken tror jag