---
title: "Slumpa bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/128999-slumpa-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2005-05-28T08:40:51.000Z"
updated: "2005-05-28T10:54:32.000Z"
replies: 1
views: 306
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/128999-slumpa-bilder"
---

# Slumpa bilder

## #1 — Asa, 2005-05-28T08:40Z

HUr skriver man om för att denna kod skall även slumpa ifrån undermappar till mappen stuff/

```
<%Set FSO  = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = FSO.GetFolder(Server.MapPath("stuff"))
  If Mapp.Files.Count = 0 Then
    Response.Write "Tomt!"
  Else
    For Each File In Mapp.Files
      If Not File.Name = "Thumbs.db" Then
        strImage = strImage & File.Name &";"
      End If
    Next
    arrImages = Split(strImage, ";")
  End If
Set FSO = Nothing

If IsArray(arrImages) Then
  randomize
  rndNumber = Int(Rnd * UBound(arrImages))
  Response.Write "<a href=""main.asp?cat=pics&view=stuff/" & arrImages(rndNumber) & "#pic""><img src=""stuff/"& arrImages(rndNumber) &""" width=""150"" height=""100"" border=""1""></a>"
End If%>
```

Permalänk: https://www.webforum.nu/p/128999

## #2 — Guffa, 2005-05-28T10:54Z

Du får loopa igenom Mapp.SubFolders, och där loopa igenom filerna för varje mapp. Du får ta bort kontrollen som kollar ifall det inte fanns några filer, och lägga det meddelandet som en else-sats till den sista If-satsen istället.

Permalänk: https://www.webforum.nu/p/1621039

---

Tråden på webben: https://www.webforum.nu/amne/asp/128999-slumpa-bilder