---
title: "Slumpgenerator"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133520-slumpgenerator"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2005-08-31T10:34:46.000Z"
updated: "2005-08-31T10:34:46.000Z"
replies: 0
views: 603
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/133520-slumpgenerator"
---

# Slumpgenerator

## #1 — saw, 2005-08-31T10:34Z

Jag är osäker på vilket forum som är rätt, men jag chansar här.
Jag har en slumpgenerator, som slumpar ut 10 st unika bilder.
Det jag ville ha hjälp med är:
1 Ser mitt script effektivt ut?
2 Som jag nu har det, så har jag på flera stället skrivit in 10 som 
max antal bilder. Hur gör jag så att jag ändra till en variabel, och 
bara skriver in antalet på ett ställe ( Jag har försökt med dom 
iAntal = 10, men då blir det fel med Dim Urval(iAntal)

Så här ser en del av scriptet ut:

```
'jag skriver inte ut SQL:en, den är för stor och fungerar bra
Dim arrData ' All data
Dim minArr  ' minsta id
Dim maxArr  ' störrsta id

arrData = RS.GetRows
RS.close
Set RS = Nothing

minArr = int(Lbound(arrData, 2))
maxArr = int(Ubound(arrData, 2))

Randomize
Dim Urval(10)  ' Antal hittills utvalda
Antal_valda = 0  ' Håll på tills vi valt 10 stycken
 While Antal_valda < 10          ' Välj ett tal
 ' Slumptal = Int(Rnd * 100) + 1
   Slumptal = Int(Rnd * maxArr) + 1
 ' Finns talet redan?
Finns_redan = false
For i = 1 to Antal_valda
If Slumptal = Urval(i) Then
' Talet fanns redan
  Finns_redan = true
  Exit For
  End If
  Next

' Om talet inte fanns, lägg det i Urval'
  If Not Finns_redan Then
  Antal_valda = Antal_valda + 1
  Urval(Antal_valda) = Slumptal
  End If
  Wend
Session("Urval") =	Urval(10)
%>
<script language="JavaScript1.2">

var variableslide=new Array()

//variableslide[x]=["path to image", "OPTIONAL link for 
image", "OPTIONAL text description (supports HTML tags)"]

variableslide[0]=['img/<%=arrData(3,Urval(0))%>', '', 
'<DIV style="position:absolute;bottom: -10%;
left: 0%; width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[1/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(0))%></B> &#34;
<%=arrData(4,Urval(0))%>&#34; - <%=arrData(6,Urval(0))%>&nbsp; 
<%=arrData(5,Urval(0))%></DIV>']

variableslide[1]=['img/<%=arrData(3,Urval(1))%>', '',
 '<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[2/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(1))%></B> &#34;
<%=arrData(4,Urval(1))%>&#34; - <%=arrData(6,Urval(1))%>&nbsp;
 <%=arrData(5,Urval(1))%></DIV>']

variableslide[2]=['img/<%=arrData(3,Urval(2))%>', '',
 '<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[3/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(2))%></B> &#34;<%=arrData(4,Urval(2))%>&#34; - 
<%=arrData(6,Urval(2))%>&nbsp; <%=arrData(5,Urval(2))%></DIV>']

variableslide[3]=['img/<%=arrData(3,Urval(3))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[4/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(3))%></B> &#34;<%=arrData(4,Urval(3))%>&#34; - 
<%=arrData(6,Urval(3))%>&nbsp; <%=arrData(5,Urval(3))%></DIV>']

variableslide[4]=['img/<%=arrData(3,Urval(4))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[5/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(4))%></B> &#34;<%=arrData(4,Urval(4))%>&#34; - 
<%=arrData(6,Urval(4))%>&nbsp; <%=arrData(5,Urval(4))%></DIV>']

variableslide[5]=['img/<%=arrData(3,Urval(5))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[6/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(5))%></B> &#34;<%=arrData(4,Urval(5))%>&#34; - 
<%=arrData(6,Urval(5))%>&nbsp; <%=arrData(5,Urval(5))%></DIV>']

variableslide[6]=['img/<%=arrData(3,Urval(6))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[7/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(6))%></B> &#34;<%=arrData(4,Urval(6))%>&#34; - 
<%=arrData(6,Urval(6))%>&nbsp; <%=arrData(5,Urval(6))%></DIV>']

variableslide[7]=['img/<%=arrData(3,Urval(7))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[8/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(7))%></B> &#34;<%=arrData(4,Urval(7))%>&#34; -
 <%=arrData(6,Urval(7))%>&nbsp; <%=arrData(5,Urval(7))%></DIV>']

variableslide[8]=['img/<%=arrData(3,Urval(8))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[9/10] </FONT> Konstnär: <B>
<%=arrData(1,Urval(8))%></B> &#34;<%=arrData(4,Urval(8))%>&#34; - 
<%=arrData(6,Urval(8))%>&nbsp; <%=arrData(5,Urval(8))%></DIV>']

variableslide[9]=['img/<%=arrData(3,Urval(9))%>', '', 
'<DIV style="position:absolute;bottom: -10%;left: 0%;
width=600px;" Class="bildTitel"><BR>
<FONT COLOR="#0000FF">[10/10]</FONT> Konstnär: <B>
<%=arrData(1,Urval(9))%></B> &#34;<%=arrData(4,Urval(9))%>&#34; - 
<%=arrData(6,Urval(9))%>&nbsp; <%=arrData(5,Urval(9))%></DIV>']
```

Som ni ser så återkommer variableslide\[9\] tio gånger hur gör jag en for-slinga (i javascript) för att få ner kodmängden?

Tacksam för all hjälp och förslag:OO

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/133520-slumpgenerator