dividere immagini in più pagine dinamicamente

**Sebvegeth** · 10-11-2005, 14:15

salve a tutti!
ho un codice che prende da un DB i nomi di alcune immagini e me le mostra a video. vorrei fare in modo che mi stampasse solo le prime 20 e poi, se ce ne sono di più, mi creasse un'altra (o più) pagina con altre 20 immagini...come posso fare??
qlc idea??
vi posto il mio codice:

codice:

<%
User = Request.QueryString("User")
Dir = Request.QueryString("Dir")
set conn=Server.CreateObject("ADODB.Connection") 
conn.provider="Microsoft.Jet.OLEDB.4.0" 
conn.open(server.mappath("/mdb-database/photo.mdb")) 
set rs=Server.CreateObject("ADODB.Recordset") 
strSQL="SELECT * FROM Photo WHERE utente = '"& User &"' AND dir = '"& Dir &"'"
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open strSQL, conn ,2,2
do while not(rs.eof) 
%>
[img]getthumbnailimage.aspx?FileName=<%=rs(1)%>[/img]
<%
rs.movenext
loop
rs.Close
set rs = Nothing
%>

**Roby_72** · 10-11-2005, 15:01

Ad occhio si chiama "paginazione".
Cerca nel forum.

Roby

**Sebvegeth** · 10-11-2005, 16:06

ok...sto usando questo script ma funziona solo per la prima pagina, cioè quando apro le altre pagine non mi si carica niente...pagina bianca! come mai? dov'è l'errore?

codice:

<% 
User = Request.QueryString("User")
Dir = Request.QueryString("Dir")
pag=request("p") 
if pag="" then pag="1" 
numXpag=20 


dim photo 
photo = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/mdb-database/photo.mdb") 


dim objconn 
set objconn=server.CreateObject("adodb.connection") 
objconn.open photo 
%> 


<html> 
<head><title>Elenca Categorie Prodotti</title></head> 

<% 

set rs=Server.CreateObject("ADODB.Recordset") 
sql="SELECT * FROM Photo WHERE utente = '"& User &"' AND dir = '"& Dir &"'"

dim objrs 
set objrs=server.CreateObject("adodb.recordset") 
objrs.pagesize=numXpag 
objrs.open sql, photo ,3,3 
if not objrs.eof then 
numpagine=objrs.pagecount 
objrs.absolutepage=cint(pag) 
%> 
<%for i=1 to numXpag %> 

[img]/getthumbnailimage.aspx?FileName=<%=objrs(1)%>[/img]
<% 
objrs.movenext 
if objrs.eof then exit for 
next 
%> 
<table> 
<tr> 
<td> 
<% 
for i=1 to numpagine 
%> 
<%=i%> 
<% 
next 
%> 
</td> 
</tr> 
</table> 
<% 
end if 
%>

**Roby_72** · 10-11-2005, 16:26

<%=i%>

vedo un po' troppi ?

Roby

**Sebvegeth** · 10-11-2005, 16:31

eheheh si si me n'ero accorto in ritardo...grazie cmq!

Discussione: dividere immagini in più pagine dinamicamente

Strumenti discussione

Ricerca discussione

Visualizza

dividere immagini in più pagine dinamicamente

Permessi di invio