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.
codice:
<%

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
%>