---
title: "10 olika bilder - slumpas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78409-10-olika-bilder-slumpas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lindström"
published: "2003-05-29T15:47:54.000Z"
updated: "2003-05-29T16:59:02.000Z"
replies: 3
views: 172
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/78409-10-olika-bilder-slumpas"
---

# 10 olika bilder - slumpas

## #1 — Lindström, 2003-05-29T15:47Z

Om jag vill ha 10 stycken olika bilder som ska slumpas varje gång man kommer in på en websida. Hur går man enklast till väga ? Dvs, har ett bildobjekt som ska slumpas med 10 stycken bilder för att komma upp på websidan.

Sen ska man kunna klicka på bildobjektet för att kunna ladda ner en zipfil. Så då blir det 10 stycken olika bildobjekt, med 10 olika zipfiler.

Format: ASP

Hoppas att ni förstår vad jag menar. :OO

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

## #2 — icaaq, 2003-05-29T16:36Z

Ligger bilderna i en Mapp, så att du ska ta fram namnen på bilderna mha FSO eller har du bilderna i en databas?

Du borde ju kunna söka på Slump här på wF så får du säkert flera träffar

Mvh icaaq

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

## #3 — Lindström, 2003-05-29T16:44Z

Bildobjekten ligger i en enskild mapp.

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

## #4 — Sebbe, 2003-05-29T16:59Z

Jag känner mig alltför vänlig. ;)

```
<%
Dim objFSO, objFold, intCount, arrImages(), intSlump, strSlump, strFilename
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFold = objFSO.GetFolder(Server.MapPath("mappen"))

intCount = 0
For Each File In objFold.Files
  arrImages(intCount) = File.Name
  intCount = intCount + 1
Next

intCount = 0
Do Until intCount = 10
  Randomize
  intSlump = Int(Rnd * UBound(arrImages)) + 1
  If InStr(strSlump, intSlump & " ") = 0 Then
    strFilename = Left(arrImages(intSlump), Len(arrImages(intSlump)) - InStrRev(arrImages(intSlump), "."))
    Response.Write("<a href=""" & strFilename & ".zip""><img src=""" & arrImages(intSlump) & """></a><br>" & vbCrLf)
    If Len(strSlump) = 0 Then
      strSlump = intSlump & " "
    Else
      strSlump = strSlump & intCount & " "
    End If
    intCount = intCount + 1
  End If
Loop

Set objFold = Nothing : Set objFSO = Nothing
%>
```

Jag hoppas att det funkar, men eftersom den är otestad finns det säkert några fel.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78409-10-olika-bilder-slumpas