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