Come si fa la paginazione?

[ffilogamo]

Estraggo e visualizzo i record cosi:

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/mdb-database/loginx.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="select * from tblNews order by ID"
objRS.Open sSQL, objConn, 3, 3
%>

<%
if not objRS.EOF then
do while not objRS.EOF

Response.Write objRS("id") & " " & objRS("Heading") & " " & objRS("Content") & "
"
objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>
<%
end if
%>


come si fa la paginazione?
o meglio dopo 10 creare altre pagine tipo 1 > 10??

[santino83]

script

[ffilogamo]

l'aveo già letto quel tutorial ma non sono stato capace di adattarlo alla mia pagina

[santino83]

<%
dim pagina
pagina=1
if request.querystring("pag")<>"" then
pagina=int(request.querystring("pag"))
end if

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/mdb-database/loginx.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="select * from tblNews order by ID"
objRS.Open sSQL, objConn, 3, 3


if not objRS.EOF then
%>
<%
din numeroPerPagina
numeroPerPagina=XXXXXXXXXX

objRS.PageSize=numeroPerPagina
%>
<%
for i=1 to objRS.pageCount

response.write "<a href='?pag=" & i & ">" & i & "</a> "
next
%>
<%
objRS.absolutePage=pagina
for i=1 to numeroPerPagina
if not objRS.EOF

Response.Write objRS("id") & " " & objRS("Heading") & " " & objRS("Content") & "
"
objRS.MoveNext
end if
next

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>
<%
end if
%>

[ffilogamo]

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F9)
Previsto 'Then'
pagina.asp, line 115, column 16
if not objRS.EOF
---------------^

[ffilogamo]

<%
dim numeroPerPagina
numeroPerPagina=10

objRS.PageSize=numeroPerPagina
%>
<%
for i=1 to objRS.pageCount

response.write "<a href='?pag=" & i & ">" & i & "</a> "
next
%>
<%
objRS.absolutePage=pagina
for i=1 to numeroPerPagina
if not objRS.EOF then

Response.Write objRS("id") & " " & objRS("Proponente") & " " & objRS("Tema") & "
"
objRS.MoveNext
end if
next

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>
<%
end if
%>

[santino83]

risolto?

[ffilogamo]

ok mi stampa tutti e dieci i record ma la paginazione va in errore..quando vado alle altre pagine da errore...deve esserci qualche problema qua:

response.write "" & i & " "

[ffilogamo]

perchè mi da qs link

pagina.asp?pag=

e mi esce pagina bianca

[santino83]

avevo messo male un '

response.write "" & i & " "

oppure puoi scrivere:

%><%= i %><%