Visualizzare 2 immagini

[aliblu]

Salve,
iol seguente codice serve per visualizzare l'ultima immagine inserita in una cartella (ordinamento per data)

<%
set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "dimensione", 2, 4 ' smallint
custRs.Fields.Append "data", 7 ' Date
custRs.Open

' popolamento
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

Set f = FileObject.GetFolder(strPath)

For Each f1 in f.Files
custRs.AddNew
custRs("nome") = f1.name
custRs("data") = f1.DateCreated
Next

Set f = Nothing
Set FileObject = Nothing

custRs.Sort = "data DESC"

If Not custRS.EOF AND Not custRS.BOF Then
nomefile = custRs("nome")

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set f = FileObject.getfile(StrPath&"\"&nomefile)
he = ImageHeight(StrPathShort & nomefile)
wi = ImageWidth(StrPathShort & nomefile)
resized = ImageResize(StrPathShort & nomefile, 80, 80, "center")
Response.Write "<tr><td align=""center"">Ultima immagine inserita: " & f.DateCreated & "</td></tr>"
Response.Write "<tr><td align=""center"">" & vbcrlf & "<table width=""100%""><tr><td align=""center""><table cellspacing=""0"" cellpadding=""0"" style=""border: 1 solid #6699CC""><tr><td>" & resized & "</td></tr></table></td></tr><tr><td align=""center"">" & nomefile & "
" & wi & "x" & he & " - " & f.size & " byte</td></tr></table></td></tr>" & vbcrlf
Set f = Nothing
Set FileObject = Nothing
Else
%>

<%
End If
%>

Come si fa per far visualizzare le ultime 2 immagini e non una sola?
Grazie

[optime]

...

custRs.Sort = "data DESC" 

FOR numeroimmagini = 1 TO 2

If Not custRS.EOF AND Not custRS.BOF Then 
nomefile = custRs("nome") 

Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 
Set f = FileObject.getfile(StrPath&"\"&nomefile) 
he = ImageHeight(StrPathShort & nomefile) 
wi = ImageWidth(StrPathShort & nomefile) 
resized = ImageResize(StrPathShort & nomefile, 80, 80, "center") 
Response.Write "<tr><td align=""center"">Ultima immagine inserita: " & f.DateCreated & "</td></tr>" 
Response.Write "<tr><td align=""center"">" & vbcrlf & "<table width=""100%""><tr><td align=""center""><table cellspacing=""0"" cellpadding=""0"" style=""border: 1 solid #6699CC""><tr><td>" & resized & "</td></tr></table></td></tr><tr><td align=""center"">" & nomefile & "
" & wi & "x" & he & " - " & f.size & " byte</td></tr></table></td></tr>" & vbcrlf 
Set f = Nothing 
Set FileObject = Nothing 
Else 
%> 

<% 
End If 

CUSTRS.MOVENEXT
NEXT
%>

[aliblu]

Optime...ringraziarti è poco....
Grazie al tuo suggerimento, lavorandoci un po, sono riuscito a risolvere il problema.
Grazie alla grande!