---
title: "slumpa bland poster?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/86851-slumpa-bland-poster"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pRob3"
published: "2003-09-24T12:21:09.000Z"
updated: "2003-09-24T12:34:28.000Z"
replies: 2
views: 281
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/86851-slumpa-bland-poster"
---

# slumpa bland poster?

## #1 — pRob3, 2003-09-24T12:21Z

Någon som kan ett enklare och mindre resurs krävande sätt att slumpa fram en post ur en MySQL databas?

```
<% 
    Set RecSet1 = Connect.Execute("SELECT Count(id) AS strPosts FROM reklam WHERE width='468'")
    strPoster = RecSet1("strPosts")
    RecSet1.Close : Set RecSet1 = Nothing

    For i = 1 to 1

            Randomize
            strRandom = Int(RND*strPoster) - 1
 
            Set RecSet1 = Connect.Execute("SELECT * FROM reklam WHERE width='468'")
            
            Do While strRandom >= 0
                    RecSet1.MoveNext
 
            strRandom = strRandom - 1
            Loop

response.write ("<a target='_blank' href='"& RecSet1("url") &"'><img border='0' src='"& RecSet1("bildUrl") &"' alt='"& RecSet1("namn") &"  ("& RecSet1("klick") &")' width='"& RecSet1("width") &"' height='"& RecSet1("height") &"'></a>")

Connect.Execute ("update reklam set visad = visad +1 where ID ='" & RecSet1("ID") & "'")

Next
    RecSet1.Close : Set RecSet1 = Nothing
	Set strPoster = Nothing
	Set strRandom = Nothing
%>
```

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

## #2 — @nders, 2003-09-24T12:24Z

Du kan lösa allt direkt i SQL-frågan.

```
SELECT * FROM tabellen ORDER BY RAND() LIMIT x
```

x är antalet poster du vill ha.

Mvh

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

## #3 — pRob3, 2003-09-24T12:34Z

hahahaha jo det var ju lite smidigare o skriva så :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/86851-slumpa-bland-poster