ikke helt tilfældigt udtræk af tal

Prøv den her :

<%
Randomize Timer

varTal = Round(CDbl(Rnd()*17))

If varTal <= 4 AND varTal >= 0 Then
idNo = 1
Elseif varTal >= 5 AND varTal <= 9 Then
idNo = 2
Elseif varTal >= 10 AND varTal <= 13 Then
idNo = 3
Elseif varTal >= 14 AND varTal <= 16 Then
idNo = 4
Else
idNo = 5
End If

SQL = "Select * From Tabel WHERE ID = "& idNO &""
Set rs = Conn.Execute(SQL)
%>

Eller sådan her, så skriver du bare i en liste hvilke tal skal kunne komme frem. Hvis du eksvis vil havde 1 5 gange så tit som 5 så skal der bare være 5 1 taller og et 5 tal .: Eks:


str = "1,1,1,1,1,2,3,4,5"
arr = Split(str,",")
antal = Ubound(arr)
randomize
vis = Int(rnd()*antal)

SQL = "select * from Tabel where ID = "& arr(vis)
Set rs = Conn.Execute(SQL)

Trine h >> Fandt du ud af det ???

undskyld den helt urimelige forsinkelse - den forsvandt i bunken