Slumpa fram 6 unika poster

Det är alltså en metod som gör att det inte blir dubbletter som jag är intresserad av. Slumpningen kan jag. :)

SELECT DISTINCT i din SQL-sats...

:)

<%
arrValda = Array(0,0,0,0,0,0)
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("din_db.mdb")&";"

Set objRs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tabell"
objRs.Open strSQL, objCon, 3, 3

intPoster = objRs.RecordCount

For x = 0 To 5

Do
strOk = true
Randomize
intSlump = int(rnd()*intPoster)
For Each value In arrValda

If value = intSlump Then strOk = false

Next

If strOk Then arrValda(x) = intSlump
Loop Until cBool(strOk)

objRs.Move intSlump

If Not objRs.EOF Then

' Skriv ut

End if
objRs.MoveFirst
Next

objRs.Close
Set objRs = Nothing
objCon.Close
Set objCon = Nothing
%>

**** Ändrade lite nyss *****

Nu skall det fungera.. det gjorde det i alla fall för mig!

/MJ