impostare numero di immagini da visualizzare

[djjunior]

Salve,
utilizzo questo script per scorrere tutte le foto da una cartella tramite fso, come posso impostare di visualizzare solo 2 (per esempio) foto invece di tutte?
Grazie
G.

<%
strPath = "fotogallery/" 
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.Fields.Append "fotos", 3 ' adInteger 

custRs.Open
If objFiles.count > 0 then
For Each strFile in objFiles

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

custRs.Sort = "data ASC"
custRs.Sort = "fotos" 

custRs.movefirst
 Do until custRs.eof
    
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
	%>
[img]square.aspx?img=<%=strPath%><%=custRs([/img]&opx=180"/>


<%
end if

custRs.movenext

loop
else
end if
Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing
%>

[optime]

contale. quando sei a due esci.

[djjunior]

proprio questo non riesco a fare...

[optime]

non sai contare?

[djjunior]

non lo so implementare a questo script..... puoi aiutarmi?

[djjunior]

nessun aiuto

[Grambo]

metti un contatore e quando arriva a 2 esci dal ciclo for ... non vedo la difficoltà

[djjunior]

non lo so fare.... altrimenti non avrei pubblicato il post
grazie

[cavicchiandrea]

Originariamente inviato da djjunior
Salve,
utilizzo questo script per scorrere tutte le foto da una cartella tramite fso, come posso impostare di visualizzare solo 2 (per esempio) foto invece di tutte?
Grazie
G.

Se è un discorso di impaginazione l'avevamo già trattato se non erro, comunque se ne discusso ampiamente sul forum usa la ricerca, se vuoi solo mostrare due foto prova cosi.

<%
...
nFoto = 0
custRs.movefirst
 Do until custRs.eof
    nFoto = nFoto + 1
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
if nFoto = 2 Then
	%>
[img]square.aspx?img=<%=strPath%><%=custRs([/img]&opx=180"/>


<%
End if
end if

...

in rosso le aggiunte

[djjunior]

Grazie ANDREA...
ho provato le tue aggiunte ma mi stampa solo 1 foto
e poi non mi stampa dall'ultima modificata(caricata) ma dalla terza...
Grazie
G.