Vælg 7 tilfældige uden dubletter...

Jeg har et nyttigt spm til dig: 1 moment

http://www.eksperten.dk/spm/217390

Jeg kunne selvfølgelig også lige give dig dette:

---------------------------------------------------------------------------
<%
Dim Rs, cn, strPath, strDSN, randSTK, i, SQL
Dim myArr, strIndex, indexFound, newid, inDB

strPath = server.Mappath("Data.mdb")
strDSN = "provider = microsoft.jet.OLEDB.4.0; Data Source =" & strPath
set cn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
cn.open strDSN

SQL = "SELECT Array.ID, Array.TEXT FROM Array;"

randSTK = 5
Rs.Open SQL, cn,1,3
inDB = rs.RecordCount
If inDB > randSTK then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound < randSTK
    Do
      Newid = Int (rnd*inDB)
    Loop while inStr(strIndex,"," & newid & ",") > 0
    strIndex = strIndex & newid & ","
    indexFound = indexFound + 1
  Loop
  strIndex = mid (strIndex,2,len(strIndex)-2)
  myArr=split(strIndex,",",-1)

Response.write "<Table width=""100%"" Border=""1"">"

  For i = Lbound(myArr) to Ubound(myArr)
    rs.move myArr(i),1
     
  Response.write "<TR><TD Width=""20%"" Border=""1"">" & rs("ID") & "</TD>"
  Response.write "<TD Width=""80%"" Border=""1"">" & rs("TEXT") & "</TD></TR>"

  next

Response.write "</Table>"

end if
Rs.Close
%>
---------------------------------------------------------------------------

Jeg går ud fra at du selv kan omdøbe variablerne til hvad du vil

md craig - smider du ikke lige et svar, så jeg kan lukke? Tak for hjælpen :)

done