hämta nästa fil från fso, visa aktuell.

Hrmm.. spännande.

Jag har också försökt med det där, jag löste det så här ungefär..:

<%
   
Dim strPhysicalPath, strThePath
   strPhysicalPath = Server.MapPath("gfx\thumb\comp_image1.gif")
   strThePath = "gfx/thumb/"
   
   Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         Set objFile = objFSO.GetFile(strPhysicalPath)
         Set objFolder = objFile.ParentFolder
         Set objFolderContents = objFolder.Files
			
   Dim intFiles
         intFiles = objFolder.Files.Count

   Dim i, arrFile(33) '--## Ange hur många bilder det finns i mappen
         For Each objFileItem in objFolderContents
            i = i +1
   
               arrFile(i) = objFileItem.Name

         Next
         Response.Write "<img src="& strThePath & arrFile(trim(Request.Querystring("next"))) &">"
         Response.Write "<br><br>"
   
   Dim PrevPic, NextPic
         PrevPic = Cint(trim(Request.Querystring("next")) - 1)
         NextPic = Cint(1 + trim(Request.Querystring("next")))
   
         If PrevPic > 0 Then
               Response.Write "<a href=default.asp?next="& PrevPic &">« Före</a> &#0124; "
         Else
               Response.Write "« Före &#0124; "
         End If
   
         If NextPic < Cint(intFiles + 1) Then
               Response.Write "<a href=default.asp?next="& NextPic &">Nästa »</a>"
         Else
               Response.Write "Nästa »"
         End If
   
%>

Det jag inte lyckats lösa är hur jag ska slippa räkna filerna i mappen innan jag kör scriptet, jag måste knappra in antalet själv för att det skall fungera.
Annars fungerar det bra

Du kan ju bara sätta variabeln arrFile utan att ange hur många index i arrayen det ska finnas och sedan redimma den med antal filer i mappen

Dim intFiles
intFiles = objFolder.Files.Count
Dim i, arrFile '--## Ange hur många bilder det finns i mappen
ReDim arrFile(intFiles)

For Each objFileItem in objFolderContents

cya,
PatrikB