---
title: "Slumpa fram 6 unika poster"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50067-slumpa-fram-6-unika-poster"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wiberg"
published: "2002-08-11T16:49:34.000Z"
updated: "2002-08-11T17:55:22.000Z"
replies: 3
views: 1109
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/50067-slumpa-fram-6-unika-poster"
---

# Slumpa fram 6 unika poster

## #1 — Wiberg, 2002-08-11T16:49Z

Skulle behöva en bra (snabb) kodsnutt som slumpar fram 6 poster ur en Access 2000-databas. Inga dubbletter får slumpas...

Permalänk: https://www.webforum.nu/p/50067

## #2 — Wiberg, 2002-08-11T17:00Z

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

Permalänk: https://www.webforum.nu/p/748421

## #3 — trexter.com, 2002-08-11T17:04Z

SELECT DISTINCT i din SQL-sats...

 :)

Permalänk: https://www.webforum.nu/p/748427

## #4 — mattiasjarnhall, 2002-08-11T17:55Z

\<% 
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

Permalänk: https://www.webforum.nu/p/748470

---

Tråden på webben: https://www.webforum.nu/amne/asp/50067-slumpa-fram-6-unika-poster