---
title: "Slumpa poster från databaser"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10035-slumpa-poster-från-databaser"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "anno"
published: "2001-06-13T13:55:00.000Z"
updated: "2001-06-13T20:55:00.000Z"
replies: 3
views: 189
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/10035-slumpa-poster-från-databaser"
---

# Slumpa poster från databaser

## #1 — anno, 2001-06-13T13:55Z

Har gjort en liten snurra som slumpar ut en fråga från en databas, men nu vill jag slumpa ut 5 frågor och det måste vara unika frågor som kommer ut.

så här har jag skrivit nu:

```
  <%
Dim strSQL, Conn
strSQL = "Select fraga from tblSlumper"
Conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("slump.mdb")

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3

Dim intRnd
Randomize
intRnd = (Int(RND * rs.RecordCount))

rs.Move intRnd

Response.Write rs("fraga")

rs.Close
Set rs = Nothing
%>
```

men nu vet jag inte hur jag ska gå vidare, någon som vet eller har något eget exempel.

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

## #2 — @nders, 2001-06-13T14:09Z

vad är problemet?

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

## #3 — anno, 2001-06-13T14:14Z

Problemet är att jag inte vet hur man skriver ut 5 slumpade frågor av mina totalt 20 frågor, alla unika. Det som jag gjort nu skriver bara ut en fråga.

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

## #4 — @nders, 2001-06-13T20:55Z

lägg en liten loop runt, typ

for i = 1 to 5
...
next

just slumpning har varit uppe åtskilliga gånger bara de senaste dagarna, så leta lite så hittar du nog trådar som kan hjälpa dig.

mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10035-slumpa-poster-från-databaser