Zufallsgenerator

[Hannah]

Hallo

ich bin momentan dabei mir einen Zufallsgenerator zu basteln um Fragen aus der Datenbank zu ziehen. Was bisher auch ganz gut funktioniert. Allerdings bringt er mir bei jedem Neuaufruf der Seite die gleichen Fragen. as mache ich falch???

So sieht das aus:

rndFrage = (rnd * dictFragen.count) + 1
rndFrage = round(clng(rndFrage),1)

dictFagen ist hier ein dictionaryobjekt das ich mit den auswählbaren FragenID's gefüllt ist. Der Index ist hier vortlaufend von 1 bis n.

dann:

Set objFrage = dictFragen(cstr(rndFrage))
if objFrage.blnIsSelected = false then
 objFrage.blnIsSelected = true
 fragenID(count) = objFrage.frageID
 count = count + 1
end if

Da ich pro Test immer 6 Fragen brauche gehe ich das ganze solange durh bis er mir 6 verschiedene Zahlen gegeben hat und schreibe mir diese in ein Array. Ob die Zahl schon vergeben wurde prüfe ich mit ' if objFrage.blnIsSelected = false then'. Wieso bringt er mir immer die gleichen Zahlen??

Danke im voraus für eure Hilf
Gruß Hannah

[Tom2]

Hi Hannah

Hast du mit Randomize den Pseudo-Zufallsgenerator initialisiert? Siehe [Link:http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriStatements.asp]

FG & HTH

Tom2