Find et tilfældigt tal ud fra de bestemte muligheder!

<%
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")

Randomize
MyNum = (UBound(aNums)*RND())

%>

Noget i den retning

tjaaaa.
Men det virker ikke helt 3,61330157518387

<%
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")

Randomize
MyNum = aNums(Round((UBound(aNums)*RND())))

%>

strNumbers = "195, 379, 1094, 391, 273, 276, 114, 277"
arrNumbers = split(strNumbers,",")
Randomize()
Response.Write(arrNumbers(int((ubound(arrNumbers) + 1) * Rnd)))

talStr = "195, 379, 1094, 391, 273, 276, 114, 277"
talArr = Split(talStr,",")
Randomize
indexToNo = Int((UBound(talArr)+1)*RND())
Response.Write "Tallet er:" & talArr(indexToNo)

Hvad med denne:
numre = "195,379,1094,391,273,276,114,277"
Ialt = Split(numre,",")

Randomize
RandNum = Int(Rnd * 8) + 1
Response.Write(RandNum)

(den er ikke afprøvet...)

//>Rune

Det her ser ud til at virke:
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")
Randomize

sNums = Int(UBound(aNums)* Rnd())

Dim sNums, aNums
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")
Randomize

sNums = Int(UBound(aNums)* Rnd())
Response.Write aNums(sNums)

du skal havde +1 efter Ubound ellers får du ikke den sidste i arrayet med:

sNums = Int((UBound(aNums)+1)* Rnd())

I denne linie:
sNums = Int(UBound(aNums)* Rnd())

overskriver du lige den oprindelge liste:
sNums = "195,379,1094,391,273,276,114,277"


Så bruge et andet navn til index værdien:
indexToNo = Int(UBound(aNums)* Rnd())
Response.Write aNums(indexToNo)

Dim sNums, aNums, MyNum
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")

Randomize
MyNum = aNums(Round(((UBound(aNums)+1)*Rnd())))
Response.Write MyNum

Undskyld, men mange tak for hjælpen. Der skal nok stå Int istedet for Round

hmm LOL ikke så meget som 1 points for at hjælpe med de andre ting, så må du selv gennemskue hvordan man skal benytte INT og ikke Round ved Rnd().

Det gik lidt hurtigt:-)

Jeg vil gerne give dig nogle point