Problemi con Paginazione...

[mmaria]

Ciao amici ho uno script per paginare delle news ma non visulizza niente...
dove sbaglio?

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/mad_album.mdb")

'paginazione
RecordsPerPagina = 10
page = Request("page")
if page="" then page=1

orderby = Request.Querystring("orderby")
if orderby = "" then orderby = "ad_id"
if orderby = "click" then orderby = " click DESC"
'qui aggiungi altri if then se ti servono

Conn.Open strConn
sql = "SELECT top 100 * FROM articoli order by " & orderby
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

If rs.Eof=True or rs.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
rs.PageSize = 10
rs.AbsolutePage = page
%>
Ordina per: nome -
click

<%
Response.Write "

Pagine: "
For pag=1 to rs.PageCount
Response.Write "<A href='centrale2.asp?page=" & pag & "&orderby?=" & orderby
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"

For i=1 to RecordsPerPagina
if Not rs.EOF then
%>
<%
rs.MoveNext
end if
Next
End if
%>
<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

mille bacini
da Maria

[willybit]

Ciao mmaria,
nel ciclo non fai scrivere niente

For i=1 to RecordsPerPagina 
if Not rs.EOF then 
%>
<% 
rs.MoveNext
end if 
Next

dovresti mettere qualcosa tipo

For i=1 to RecordsPerPagina 
Response.Write rs("NOMECAMPO") & "
"
if Not rs.EOF then 
%>
<% 
rs.MoveNext
end if 
Next

[mmaria]

Grazie...ok
Bacini ed ancora bacini
da Maria