---
title: "Slumpa fram bilder. Array problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13960-slumpa-fram-bilder-array-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Steveking"
published: "2002-01-23T19:11:00.000Z"
updated: "2002-01-23T20:10:00.000Z"
replies: 16
views: 285
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/13960-slumpa-fram-bilder-array-problem"
---

# Slumpa fram bilder. Array problem

## #1 — Steveking, 2002-01-23T19:11Z

Tjena.
Jag har en katalog med bilder.
4st \*.jpg

Jag vill slumpa fram dom med detta script. Vet inte vad jag har gjort för fel. Men är ganska ny på arrays.

```

dim allpictures()

allpicturesarray = array("1.jpg", "2.jpg", "3.jpg", "4.jpg")

dim choosen(2)
dim i,pictures,choice

randomize
for i = 0 to 2
[b]choice = int((ubound(allpictures)-i)*rnd())[/b]
choosen(i) = allpictures(choice)
allpictures(choice) = allpictures(ubound(allpictures)-i)
next
```

Sen försöker jag visa bilderna med detta

```
<% =allpicturesarray(0) %>

samt

<% =allpicturesarray(1) %>
```

Får felet 
Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'ubound' 

index.asp, line 190 

Line 190 är fetmarkerad.

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

## #2 — @nders, 2002-01-23T19:13Z

Det ser ut som att du angett fel array.

```
choice = int((ubound([b]allpicturesarray[/b])-i)*rnd())
```

Mvh,

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

## #3 — LarsG, 2002-01-23T19:15Z

Du använder fel namn, allpictures istället för allpicturesarray

```
for i = 0 to 2
choice = int((ubound(allpicturesarray)-i)*rnd())
choosen(i) = allpicturesarray(choice)
allpicturesarray(choice) = allpicturesarray(ubound(allpicturesarray)-i)
next
```

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

## #4 — Steveking, 2002-01-23T19:18Z

Jag hade visst missat allihopa. Va ju lite klantigt.

Måste den alltid heta array på slutet?

försökte med allpictures = array("1.jpg", "2.jpg", "3.jpg", "4.jpg")

men fick jag type missmatch

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

## #5 — @nders, 2002-01-23T19:20Z

Den får heta precis vad du vill. 

Hur ser din kod ut nu, och vilken rad pekar felmeddelandet på?

Mvh,

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

## #6 — Steveking, 2002-01-23T19:22Z

Detta fungerar

```
	<%
dim allpictures()

allpicturesarray = array("1.jpg", "2.jpg", "3.jpg", "4.jpg")

dim choosen(2)
dim i,pictures,choice

randomize
for i = 0 to 2
choice = int((ubound(allpicturesarray)-i)*rnd())
choosen(i) = allpicturesarray(choice)
allpicturesarray(choice) = allpicturesarray(ubound(allpicturesarray)-i)
next
%>
```

men detta blir type missmatch

```
	<%
dim allpictures()

[b]allpictures = array[/b]("1.jpg", "2.jpg", "3.jpg", "4.jpg")

dim choosen(2)
dim i,pictures,choice

randomize
for i = 0 to 2
choice = int((ubound(allpicturesarray)-i)*rnd())
choosen(i) = allpicturesarray(choice)
allpicturesarray(choice) = allpicturesarray(ubound(allpicturesarray)-i)
next
%>
```

Blandas den ihop med dim?

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

## #7 — @nders, 2002-01-23T19:24Z

Om du tar bort () efter din dim av arrayen?

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

## #8 — Steveking, 2002-01-23T19:28Z

Det verkar funka.

Men jag märkte att den visar samma bild 2ggr.

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

## #9 — @nders, 2002-01-23T19:30Z

Ja, det är inte helt omöjligt att den gör det. Du får ju själv kontrollera att det inte sker.

Mvh,

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

## #10 — PatrikB, 2002-01-23T19:31Z

Hur ser koden ut där du visar bilderna?

cya,
PatrikB

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

## #11 — Steveking, 2002-01-23T19:31Z

\<% =allpicturesarray(0) %\>
samt 
\<% =allpicturesarray(1) %\>

då verkar det ju iofs som jag pekar på vilken bild som skall visas

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

## #12 — Steveking, 2002-01-23T19:45Z

Hur borde jag visa bilderna?

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

## #13 — LarsG, 2002-01-23T19:49Z

Du borde använda choosen när du visar bilderna. Vad är det för mening med att slumpa ut 3 av 4 bilder?

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

## #14 — @nders, 2002-01-23T19:49Z

Ska du inte använda arrayen choosen till det?

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

## #15 — Steveking, 2002-01-23T19:55Z

% =allpicturesarray(choice) %\> ?

ursäkta min tröghet

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

## #16 — LarsG, 2002-01-23T20:00Z

Om du vill visa alla bilderna i choosen

```
for i = 0 to ubound(choosen)
  response.write choosen(i) & "<br>"
next
```

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

## #17 — Steveking, 2002-01-23T20:10Z

Jag löste det såhär istället. Tycker det verkar enklare.

```
randomize
bild1 = Int(Rnd * 3) +1
bild2 = Int(Rnd * 3) +1
DO UNTIL NOT cint(bild2) = cint(bild1)
	bild2 = Int(Rnd * 3) +1
LOOP
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13960-slumpa-fram-bilder-array-problem