---
title: "Random värde från databas."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5365-random-värde-från-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Brimba"
published: "2000-02-15T14:24:00.000Z"
updated: "2000-02-15T16:26:00.000Z"
replies: 5
views: 512
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/5365-random-värde-från-databas"
---

# Random värde från databas.

## #1 — Brimba, 2000-02-15T14:24Z

Hej!

Jag är lite snurrig nu.
Men hur får man ut om man har en tabell som är uppbyggd tex så här:

ID                     Namn
23                     Test1
25                     Test2
118                    Test3

Så finns det altså 3st poster i databasen.
Det jag vill är att slumpa ut ett av dessa värderna så lixom om den slumpar ut 25 så skall man få ut värder Test2.

Tack!

Mvh
Patrik
aka Brimba

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

## #2 — Vide, 2000-02-15T14:57Z

... oki... då skall vi se...:
först räknar du antalet poster:
SQL = "Select count(\*) AS Count_poster from tabell"
Set RS = Databas.Execute(SQL)

Sen väljer du en post:
Randomize
post = Int((rnd\*RS("count_poster"))+1)-1

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

'skriv din egen DSN
RSdbase.open SQL, "dsn=databas"

'flytta sig till posten
RSdbase.Move post

'hämta kolumnen
get_post = RSdbase("namn")

...så där... detta borde funka... ändra det som passar din databas, skall allt ordna sig...

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

## #3 — Brimba, 2000-02-15T15:24Z

Ehh..
Jag gjorde så här:

```
		<%	
			Set Connection = Server.CreateObject("ADODB.Connection")
			Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\dmab\internet.mdb"
			SQL = "Select count(*) AS count_poster from tabRandom"
			Set RS = Connection.Execute(SQL) 
	
			Randomize
			post = Int((rnd*RS("count_poster"))+1)-1 

			'flytta sig till posten
			RS.Move post
		%>
```

Fungerade inte, vad är fel?

Mvh
Patrik
aka Brimba

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

## #4 — Brimba, 2000-02-15T15:41Z

Sen skriver jag bara ut det så här:

```
		<A HREF="<%= RS("httpURL")%>">
				<IMG SRC="<%= RS("bildURL")%>" border="0" width="480" height="60">
			</A>
```

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

## #5 — Brimba, 2000-02-15T15:45Z

Man tycker ju att det borde finnas tex

SQL = "SELECT rnd(\*) FROM tabRandom"

Så väljer den en post ut tabellen.

Finns det verkligen inget sånt kommando?

Mvh
Patrik
aka Brimba

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

## #6 — Brimba, 2000-02-15T16:26Z

Hej igen!

Jag löste det  :)

```
		<%	
			Set Connection = Server.CreateObject("ADODB.Connection")
			Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\dmab\internet.mdb"
			SQL = "Select * FROM tabRandom"
			RStemp = UBOUND(Connection.Execute(SQL).GetRows(),2)+1 
	
			Randomize
			post = Int(RND*RStemp)
			Set RS = Connection.Execute(SQL)

			For s = 1 to post
			RS.MoveNext
			Next

		%>

			<A HREF="<%= RS("httpURL")%>">
				<IMG SRC="<%= RS("bildURL")%>" border="0" width="480" height="60">
			</A>
```

Det var ju roligt för mig  :)

Mvh
Patrik
aka Brimba

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5365-random-värde-från-databas