Hej,

Jag har en randomize funktion som ska slumpa ut 6 st bilder. Men problemet är att det blir samma bilder hela tiden. Jag kan inte fatta vad som är fel! någon som har ett förslag?

Randomize

Set objRsImg = Server.CreateObject("ADODB.Recordset")
strSQLImg = "Select Top 6 ImgID, sImg, lImg From t_vimmel_images Where vID="& LatestArchiveID &" Order by RND(-ImgID-" & Replace(Rnd(),",",".") & ")"
objRsImg.Open strSQLImg, Connect, 3, 3

If objRsImg.EOF Then
Response.Write ""
Else
Do While Not objRsImg.EOF
Response.Write ""& vbCrLf
objRsImg.MoveNext
Loop
End If

objRsImg.Close : Set objRsImg = Nothing

använd Randomize innan varje ny slumpning

Hur menar du? jag gör ju de...

Det spelar ingen roll om jag lägger Randomize innan loopen, i loopen eller efter. Det blir lika i alla fall.
Det konstiga är att jag har samma script på ett annat ställe fast då har jag inte med:

<code>Where vID="& LatestArchiveID &"</code>

och där fungerar det... Tar jag bort de så fungerar de här också, men de kan jag ju inte göra för då blir det ju fel bilder som hämtas.

Något annat förslag?