paginazione con asp [1] [2] ...

[maxcondor]

Mi indicate qualche esempio per realizzare una paginazione con i numeretti tipo

[1] [2] [3] [4] ecc...

[luke73]

<% 'indicare il numero di record per pagina
iPageSize = 7

if request.QueryString("page") = "" then
iPageCurrent = 1
else
iPageCurrent = CInt(request.QueryString("page"))
end if

SET rs = server.CreateObject("ADODB.Recordset")
sql = "select * from FOTO"
rs.open sql, conn, 3,3
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
iPageCount = rs.PageCount
if iPageCurrent > iPageCount then iPageCurrent = iPageCount
if iPageCurrent < 1 then iPageCurrent = 1

if ipageCount <> 0 then %>

''' qui mostro i record che risultano dalla query '''

<%
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0 %>


Pagine:
<% ' se la variabile x è = alla pagina corrente:
for x = 1 to iPageCount
if iPageCurrent = x then %>

[ <%= x %> ]


<% else %>

<%= x %>
<%end if
next %>

<% do while iRecordsShown < iPageSize And Not rs.eof %>

.... mostro le varie righe della tabella che contengono il resordset


<% iRecordsShown = iRecordsShown + 1
rs.MoveNext
loop


rs.Close
set rs = Nothing
conn.close
set conn = nothing
%>

Il risultato è più o meno
[1] 2 3 4 5 dove il numero tra parentesi quadra indica la pagina corrente.

ciao!!

[maxcondor]

grazie tante

[luke73]

ciao

[mereo001]

Salve ragazzi..
Sulla falsa riga di quanto scritto sopra ho creato questo script..per la paginazione..
I record vengono visualizzati e anche i collegamenti alle pagine seguenti ma non viene "messa in evidenza" la pagina corrente...

Ma dove è sbagliato???




<%
indietro=Request.ServerVariables("SCRIPT_NAME")

if session("loggato") =""then
response.redirect("login.asp?dest=" & indietro & "?pg=" &pid)
end if
%>







<%

pg = TRIM( request("pg"))

if pg = "" THEN
pg = "1"
Else
pag = CInt(pg)
End If


Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenstatic


strSQL="SELECT * FROM assistenza ORDER BY ID DESC"
objRS.open strSQL,conn, 3, 3


objRs.AbsolutePage= pg
%>


<%
DO WHILE NOT objRS.EOF and rowCount < objRS.pagesize
rowcount=rowcount+1
%>
<%=objRS("id")%>" class="colore"> <%=objRS("coll")%> |
<% If objRS("letto")="0" Then
Response.Write("<font color='red'>Non letto onLine</font>")
End If

if objRS("letto")="1" Then
Response.Write("<font color='green'>Letto onLine</font>")
End If

If objRS("lettomail")="0" Then
Response.Write("<font color='red'>Non letto da email</font>")
End If

if objRS("lettomail")="1" Then

Response.Write("<font color='green'>Letto da email</font>")
End If



%>







<%
objRs.movenext
LOOP
%>






<%
If objRS.Pagecount > 1 THen
%>
<font color="#006633">Vai alla pagina
<% FOr i = 1 to ObjRS.Pagecount
If i = pg THEN %>
[ <%= i %> ]
<%ELSE %>
<%=i%>

<%END IF%>

<%NEXT%>
<%END IF%>

[mereo001]

Scusate era tutto ok..

scrivevo male una variabile
anziché "pag" è "pg"!