---
title: "Problem med slumpning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11453-problem-med-slumpning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erka"
published: "2001-09-04T05:32:00.000Z"
updated: "2001-09-04T11:09:00.000Z"
replies: 16
views: 444
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/11453-problem-med-slumpning"
---

# Problem med slumpning

## #1 — erka, 2001-09-04T05:32Z

Jag har 30 stycken bilden liggandes på servern. På varje sida ska 5 av dessa bilder slumpas fram (med en länk av bilden). Jag vet hur man gör om man har det i en databas, men jag vill inte ha det i en db, har tillräckligt med anrop mot db:n utan jag har bilderna (de 5) i en inc fil som ligger till vänster på sidan. Tänkte att man kunde i den skriva typ:

Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL
Bildnamn, Alt text, URL

etc och sedan slumpa fram 5 varje gång sidan laddas.

Någon som har vetskap om detta

tack så länge

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

## #2 — Brimba, 2001-09-04T06:37Z

Jag vet inte, men kanske skulle

\<%
Dim i
i = 1
Do until i = 5
Randomize
slump = cInt(rnd()4\*)+1
%\>
\<!--#include virtual="/inc.asp?\<%=slump%\>" --\>
\<%
i = i + 1
loop
%\>

Sedan på inc.asp skriver du...

\<%
If cInt(request.querystring) = 1 Then response.write "\<IMG...\>"
If cInt(request.querystring) = 2 Then response.write "\<IMG...\>"
If cInt(request.querystring) = 3 Then response.write "\<IMG...\>"
If cInt(request.querystring) = 4 Then response.write "\<IMG...\>"
If cInt(request.querystring) = 5 Then response.write "\<IMG...\>"
%\>

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

## #3 — erka, 2001-09-04T06:44Z

läses inte inc:en in före slumpscriptet

alltså\<!--#include virtual="/inc.asp?\<%=slump%\>" --\>

Jag tänkte mig mer en INC fil som heter SLUMPBILDMENY.inc då där jag i den filen har alla namn på bilder (bilden heter samma sak som querystringen i länken så de kan jag ta ut där) och i den filen slumpar fram 5 stycken av bilderna med radbrytning efter varje

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

## #4 — PatrikB, 2001-09-04T06:59Z

Skapa en 2-dimensionell array där du lagrar info om varje bild.

```
arrImgInfo(0,0) = "bild1.gif"
arrImgInfo(1,0) = "Alt 1"
arrImgInfo(2,0) = "URL 1"
arrImgInfo(0,1) = "bild2.gif"
arrImgInfo(1,1) = "Alt 2"
arrImgInfo(2,1) = "URL 2"
```

etc beroende på hur många bilder du vill ha.

Slumpa sedan fram dem med LarsGs metod som du hittar här: <http://cgi.webforum.nu/wf/Forum11/HTML/004703.html#1> 

kom bara ihåg att LarsG använder en vanlig array så du måste "fippla" om lite i scriptet för att funka med en 2-dimensionell array.

cya
PatrikB

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

## #5 — erka, 2001-09-04T07:13Z

ok tack, ska testa senare idag.. :)

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

## #6 — Vide, 2001-09-04T07:31Z

Man kan inte inkludera #include dynamiskt, dvs inte såhär:

```
<!--#include virtual="/inc.asp?<%=slump%>" -->
```

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

## #7 — erka, 2001-09-04T07:45Z

Nej vide jag skrev det ovan :)

nu leker jag å testar, läser om vektorer hos dig vide , återkommer

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

## #8 — erka, 2001-09-04T07:56Z

vad är det för fel, har pillat lite å pulat, men den säger

```
Subscript out of range: '[number: 2]'
```

på

```
dim ArraySlump(1,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"
```

fattar att det är något fel på hur jag dimmar, har inte riktigt fått klämm på det kanske man skulle kunna säga, lars g, hade inte du skrivit fel i hur jag tilldelar vektoren värden ?

tack igen

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

## #9 — LarsG, 2001-09-04T08:04Z

```
dim ArraySlump(4,2)
```

I vilket sammanhang har jag sagt vad?

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

## #10 — erka, 2001-09-04T08:05Z

Tack LarsG, det var PatrikB som skrev

```
arrImgInfo(2,1) = "URL 2"
```

fel av mig...Förlåt, du gör ju faktiskt aldrig fel, borde lärt mig det vid det här laget \*\*småler\*\*

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

## #11 — erka, 2001-09-04T08:13Z

Hmmm

```
<%

dim ArraySlump(4,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

dim choosen(4)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,2)-i)*rnd())
choosen(i) = ArraySlump(choice)
ArraySlump(choice) = ArraySlump(ubound(ArraySlump,2)-i)
next

%>
```

ger 
Subscript out of range som vanligt på raden "choosen(i) = ArraySlump(choice)"

Vad felar i min skalle ?

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

## #12 — LarsG, 2001-09-04T08:31Z

```
<%
'plats för 30 bilder
dim ArraySlump(29,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

ArraySlump(5,0) = "Bild5"
ArraySlump(5,1) = "Text5"
ArraySlump(5,2) = "URL5"

ArraySlump(6,0) = "Bild6"
ArraySlump(6,1) = "Text6"
ArraySlump(6,2) = "URL6"

ArraySlump(7,0) = "Bild7"
ArraySlump(7,1) = "Text7"
ArraySlump(7,2) = "URL7"

ArraySlump(8,0) = "Bild8"
ArraySlump(8,1) = "Text8"
ArraySlump(8,2) = "URL8"

ArraySlump(9,0) = "Bild9"
ArraySlump(9,1) = "Text9"
ArraySlump(9,2) = "URL9"
'och så vidare tom 29 

dim choosen(4,2)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
next

%>
```

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

## #13 — erka, 2001-09-04T08:56Z

Lars G Tack!

ett par saker till om du har ork eller tid, eller kanske någon annan som har. Vad exakt gör denna kod.

```
For i = 0 to 4 
'här fattar jag, tills den har gått 5 ggr hehe

choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
Next
'hoppa vidare tills nästa
```

sen får jag felmeddelandet "Subscript out of range: '\[number: -1\]'" på raden

```
ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
```

jag har gjort exakt som du skrev

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

## #14 — LarsG, 2001-09-04T09:04Z

```
ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,1)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,1)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,1)-i,2)
```

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

## #15 — erka, 2001-09-04T09:17Z

LarsG och ni andra, nu har jag äntligen börjat förstå arrays lite bättre...Tack 1000 ggr!

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

## #16 — Brimba, 2001-09-04T10:36Z

:x

sorry för mitt missöde..

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

## #17 — erka, 2001-09-04T11:09Z

Brimba, det är lugnt :)

, Yo !

\[Redigerat av erka den 04 sep 2001\]

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11453-problem-med-slumpning