Array med random udtræk

??

<%

str = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15"
talArray = split(str,",")
checkArr(0) = -1
checkArr(1) = -1
checkArr(2) = -1

Randomize
cont = 0
while (cont < 3)
  tal = int(rnd * UBound(talArray))
  check = true
  for i = 0 to UBound(checkArr)
    if tal = checkArr(i) then
      check = false
    end if
  next
  if check <> false then
    response.write talArray(tal)
    checkArr(cont) = tal
    cont = cont+1
  end if
wend
%>

Ikke testet..
Og vidst ikke den pæneste kode..
men tror da den virker...!

Hey mester...

Jeg får fejlen:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'checkArr'

linie 5

laver den lidt om..

prøv det her i stedet...

<%

str = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15"
talArray = split(str,",")
checkStr = "-1,-1,-1"
checkArr = split(checkStr,",")
Randomize
cont = 0
while (cont < 3)
  tal = int(rnd * UBound(talArray))
  check = true
  for i = 0 to UBound(checkArr)
    if tal = checkArr(i) then
      check = false
    end if
  next
  if check <> false then
    response.write talArray(tal)
    checkArr(cont) = tal
    cont = cont+1
  end if
wend
%>

det her er så mit bud:

<%
tot_unik = 3 'antallet af unikke tal
top_number = 10 'her indsætter du Ubound(ditArray)

dim random_number, counter, check, unique_numbers

Redim random_number(tot_unik)
Randomize

For counter = 1 to tot_unik
    random_number(counter) = Int(Rnd * top_number)+1
    for check = 1 to counter - 1
        if random_number(check)= random_number(counter) then
        counter = counter - 1
        end if
    next
next

For counter = 1 to tot_unik
        'nedenstående bør så indeholde ditArray(random_number(counter)) således at indhold af array kan vises
    response.write "<li>" & random_number(counter) & "</li>"
next

%>

/hiks