elenco foto diviso per pagina

[djjunior]

Carissimi,
utilizzo questo script per la visualizzazione di una gallery con foto prelevate da cartella.
Ora come posso implementarci la possibilità di paginare le foto, cioè un tot di foto per pagina?
Grazie
G.

<%

Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "gallery/" 
strExt = ".JPG"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date
custRs.Open

For Each strFile in objFiles

custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated

next

custRs.Sort = "data DESC"

custRs.movefirst
 
Do until custRs.eof
 
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
	
Response.Write("[*][img]square.aspx?img="& strPath & custRs("nome") &"&opx=80[/img]") 
end if	
custRs.movenext

loop

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing
%>

[optime]

cerca nel forum, se ne è parlato mille mila volte

[djjunior]

proprio mille volte non direi, ho provato a cerca paginazione gallery e ci sono solo 3 risultati non molto esplicativi, forse ti riferisci alla sola paginazione allora ce ne sono molti.
Purtroppo non saprei come includere la classica paginazione al mio script
Grazie
G.

[alexba64]

edit

[djjunior]

edit

Scusa ALEXBA64 ma non ho capito il senso di edit.
Nessuno può aiutarmi??
Grazie
G.

[cavicchiandrea]

Ma il concetto di impaginazione non cambia, conti le immagini e le suddividi per pagina

[djjunior]

Grazie come sempre ANDREA,
ma il problema è implementarlo al mio script!!!
Grazie
G.

[djjunior]

Nessun aiuto?
GRazie
G.

[djjunior]

Ho provato ad implementare la paginazione così:

<div class="list">
<ul id="fotogallery">
<%
quanti = 54
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
contatore = 0
    
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "gallery/" 
strExt = ".JPG"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date
custRs.Open
 
For Each strFile in objFiles

custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated

Next

rs.PageSize = quanti
custRs.AbsolutePage = pag
While custRs.EOF = False And contatore < quanti
	
custRs.Sort = "data DESC"
			
Do until custRs.eof
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
	
	%>
	[*]">[img]square.aspx?img=<%=strPath%><%=custRs([/img]&opx=80" border="0">&nbsp 

<%

custRs.movenext

contatore = contatore + 1
  
wend

Loop

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing

%>[/list]
</div>
<p align="center">
<%If pag > 1 Then%>
    Indietro
<%End If%>
<%
    Dim x
    x = 1
    For x = 1 To rs.PageCount
        If CInt(pag) <> x Then
%>
            [<%=x%>]
<%
        Else
%>
            [<%=x%>]
<%
        End If
    Next
%>
<%If rs.EOF = False Then%>
    Avanti
<%End If%>
</p>

Ma ho questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/gallery.asp, line 119

wend
^

Potete aiutarmi?
Grazie
G.