FileSystemObject skulle gerne kunne sortere .jpg og .gif

Sorry:

If inStr(File,".jpg") or inStr(File,".gif") then
else

er koden

Det burde ellers virke. Har lige lavet en lille test, og der virker det fint (bruger dog ikke fso'en, men bare nogle filnavne i et array).

Er du sikker på at File-variablen indeholder filnavnet?

nøøøh - og det var da det der var galt :o)
Jeg havde ændret min variabel, så den hed objFileItem (!)

læg et svar

Aiight!

måske du kunne hjælpe mig lidt mere - vil gerne oprette et nyt spørgsmål med flere point ...

Her er hele koden, fundet på nettet. Det er en kode, der finder alle billeder i en given mappe. Sådan som jeg har sat det op vises der et billede ad gangen.
Jeg vil gerne gøre det mere fleksibelt, så der vises 9 fotos ad gangen, fordelt på 3 rækker, men jeg kan ikke lige regne den ud:

koden:
    <%
    ShowSub = request("ShowSub")
    ShowPic = request("ShowPic")
   
    '##### henter info om siden #####
    page = trim(Request.QueryString("page"))
    if page = "" then
    page = 1
    end if
    start = trim(Request.QueryString("start"))
    if start = "" then
    start = 1
    end if

    '##### Åbner File System Object #####
    strPhysicalPath = Server.MapPath("/Billedearkiv/" & ShowSub)
    If ShowSub > " " then
      ShowSub = Replace(ShowSub, " ", "%20")
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder(strPhysicalPath)
      Set objFolderContents = objFolder.Files
    end if

    '##### Variablerne #####
    row_count = 0
    row = 1
    max_row = 1
    count = 1
    If NOT start <> "" then
      Start = 1
    End If
   
    '##### info variabler #####
    info_page = 0
    info_page_count = 0
    info_Count = 0
    %>
    <%
    For Each objFileItem in objFolderContents
    If inStr(objFileItem,".jpg") or inStr(objFileItem,".gif") then
      If CLng(count) < CLng(start) then
        count = count + 1
      Else
        If CLng(row) => CLng(max_row) And row_count = 1 then
        Else
          If row_count > 1 then
            response.write "<tr>"
            row_count = 0
            row = row + 1
          End If

          Response.write "<tr><td align=center>"
          Response.write "<img border=0 src='Billedearkiv/"&showsub&"/" & (objFileItem.Name) & "' alt='" & (objFileItem.Name) & "' height=50>"
          image = objFileItem.Name
          Response.write "</td></tr>"
          row_count = row_count + 1   
          count = count + 1
        End If
      End If
    End if
    Next
    %>
          <tr>
            <td align="center">
    <% '##### Udregning af variabler samt udskrift af siden #####
    response.write "<h2>"
    For Each objFileItem in objFolderContents
    If inStr(objFileItem,".jpg") or inStr(objFileItem,".gif") then
      info_Count = info_Count + 1
      info_page = info_page + 1
      if info_page = 1 then
        info_page_count = info_page_count + 1
        info_page = 1
      End If
    End if
    Next

      If Clng(page) > 1 Then
        Response.Write "<a href="&CurFile&"?ShowSub="&ShowSub&"&start="& start-1&"&page=" & page-1 & " title='forrige foto'><img src='../../images/prev.jpg' border=0></a>"
      else
        Response.Write "</a>"
      End If
     
      Response.Write "&nbsp;"
      Response.Write "<a href='"&showsub&"/images/"&image&"' target='_blank' title='full size'><img src='../../images/zoom.jpg' border=0></a>"
      Response.Write "&nbsp;"
     
      If Clng(page) < Clng(info_count) Then
        Response.Write "<a href="&CurFile&"?ShowSub="&ShowSub&"&start="&start+1&"&page=" & page+1 & " title='Næste foto'><img src='../../images/next.jpg' border=0></a>"
      else
        Response.Write "... ikke flere fotos</a>"
      End If
        response.write "</h2>"

      if Clng(page) = Clng(info_count)+1 then
        Response.write "<h4>Der er ialt " & (info_Count) & " billeder og du ser på billede nr. " & page &"</h4>"
      else
        Response.write "<h4>Der er ialt " & (info_Count) & " billeder og du ser på billede nr. " & page &"</h4>"
      end if
      %>

Se evt. dette eks.:
http://www.eksperten.dk/spm/444746

det var lige det jeg ledte efter eagleeye, tak for gud ved hvilken gang  C",)