Random

randomize
Tal = int(20 * rnd)

Her kan du selv bestemme nedre og øvre grænse:

lowerbound = "1"
upperbound = "20"

randomize
Tal = int((upperbound - lowerbound + 1) * rnd + lowerbound)

ahm den bliver ved med at give det samme tal når man refresher...

Lavede den her og den virker

<%
tal1 = "1"
tal2 = "20"

If IsNumeric(tal1) Then
    intLowerBound = CLng(tal1)
Else
    intLowerBound = 0
End If

If IsNumeric(tal2) Then
    intUpperBound = CLng(tal2)

    If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 100
Else
    intUpperBound = 100
End If

If intLowerBound > intUpperBound Then

    Dim iTemp
    iTemp = intLowerBound
    intLowerBound = intUpperBound
    intUpperBound = iTemp
End If


Randomize()

intRangeSize = intUpperBound - intLowerBound + 1

sngRandomValue = intRangeSize * Rnd()

sngRandomValue = sngRandomValue + intLowerBound

intRandomInteger = Int(sngRandomValue)
%>
<%= intRandomInteger %>

Hvad er det for noget fis???

Den gør jo præcis det samme:

Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)

I øvrigt er det bemærkelsesværdigt, at du liiiige pludselig kan lave det selv!!

sorry nej jeg lavede det ikke selv jeg fandt koden et andet sted.
da jeg skrev mit svar havde du ikke skrevet svar nummer 2.
Smide et svar her og værd ikke så sur.

http://www.eksperten.dk/spm/274440

Jeg troede bare du var en af alle de fuskere, der er begyndt at komme her.

:ø)