flere randomizes

<%
image_directory1 = "************"
Set directory1 = Server.CreateObject("scripting.filesystemobject")
Set allfiles1 = directory1.GetFolder(Server.MapPath(image_directory1))
For Each image In allfiles1.Files
    Image_Array1 = Image_Array1 + image.Name & ","
    count_image1 = count_image1 + 1
Next
Image_Array1 = split(Image_Array1,",")

Randomize

randomfile1 = Int(Rnd * count_image1)

Do
    randomfile2 = Ind(Rnd * count_image1)
Loop Until randomfile2<>randomfile1

Do
    randomfile3 = Ind(Rnd * count_image1)
Loop Until randomfile3<>randomfile2 And randomfile3<>randomfile1

Do
    randomfile4 = Ind(Rnd * count_image1)
Loop Until randomfile4<>randomfile3 And randomfile4<>randomfile2 And randomfile4<>randomfile1

Set allfiles1 = Nothing
Set directory1 = Nothing
%>

- Ja, Okay... Men kan det virkelig ikke laves på en smartere måde?
Hvad nu hvis jeg har en mappe som indeholder fx. 5000 billeder og så at jeg gerne vil have vist 100 tilfældige billeder på siden, hvor der ikke må være to billeder (eller flere) som der det samme billede...
- er der så virkelig ikke en bedre måde end dette her...? I så fald ville det jo være rigtig mange gange at den loop-sætning skal skrives og det ville også blive nogle meget lange loop-sætninger til sidst...

Er der virkelig ikke en nemmere og bedre måde?

\Dan

samme princip som nielles eksempel, blot med automatik

<%
count_image1 = 10

Dim randomfiles(3) 'plads til 4 elementer

randomize

For i=0 To 3
    Do
        number = int(rnd*count_image1)

        For n=0 To i-1
            If number = randomfiles(n) Then Exit For
        Next

    Loop Until n = i

    randomfiles(i) = number

Next

Response.Write "Følgende tilfældige filer er valgt:<br>"
Response.Write Join(randomfiles, "<bR>")
%>

Siden at du nu spørger hele tre gange om der ikke er en smartere/bedre måde, så er svaret "ja, ja, og ja" ;^)

Det ville bare have været overkill at begynde på den når dit spørgsmål nu gik på 4 poster:

Dim randomfile(100)

Randomize

For i=LBound(randomfile) To UBound(randomfile)
    nyRandomfileX = True

    Do
        nyRandomfileX = True
        randomfileX = Ind(Rnd * count_image1)

        For j=LBound(randomfile) To i-1
            If randomfileX = randomfile(j) Then
                nyRandomfileX = Fale
                Exit For
            End If
        Next

    Loop Until nyRandomfileX
Next

Tak for hjælpen nielle! Det var det sidste script jeg brugte (dog efter et par rettelser)...

- smid et svar - for point!

\Dan

Svar :^)