Cento foto da vedere in gruppi di dieci

[mmaria]

Ciao amici sono la vostra Maria ed ho un problemino...

Lo script mi chiama in pagina da un Db 100 news ma io vorrei poterli visualizzare a gruppi di dieci. Vorrei creare un link dove cliccando sul numero 1 mi appaiono le prime dieci news, cliccando sul 2 dalla 11 alla 20 news e così via. Come devo fare?

Ecco lo script che visualizza al momento 100 news..

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

sql="SELECT TOP 100 * FROM articoli ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then

cont=0
Do While Not rs.EOF
if cont=11 then
cont=0
end if
cont=cont+1

response.write "
"
response.write "
"
Response.write "<font face=Verdana size=1 color=#336699><p style=margin-top:0; margin-bottom:0> <span style=text-transform:uppercase>"
Response.write ""
response.write " <a href=javascript:aprinews("""&rs("ad_id")&""")><cen ter>"
response.write("[img][/img]")
Response.write "</center></a>
</span>"
Response.write "<span style=letter-spacing:-1 pt>"
Response.write "<font face=Verdana size=1 color=#000000><center>"
response.write "</a>

"

rs.MoveNext
Loop
end if
%>

Vi voglio bene e vi invio tanti bacini...

[djkoma]

Cerca PAGINAZIONE nel Forum, troverai un sacco di consigli utili

[mmaria]

Ho trovato lo script che allego ma non mi funziona... nel senso che non vedo alcuna news... 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
%>

Bacini da Maria