---
title: "tre slumpade bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107909-tre-slumpade-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-07-24T15:51:45.000Z"
updated: "2004-07-31T08:54:12.000Z"
replies: 10
views: 498
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/107909-tre-slumpade-bilder"
---

# tre slumpade bilder

## #1 — magnusfeldth, 2004-07-24T15:51Z

Halloj

Olika koder för att slumpa fram en text eller en bild har jag hittat, men hur gör man för att slumpa fram tre olika poster?

Dessutom vill jag sedan skriva ut dessa tre poster så här:
bild1 (adressen kommer från det framslumpade värdet)  - mellanrum - bild2 - mellanrum - bild3

(jag vet hur jag skulle kunna få fram tre bilder och mellanrum mellan alla, men jag vill alltså inte ha nåt mellanrum efter den sista bilden... hur gör jag?)

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

## #2 — Bosse168, 2004-07-26T11:05Z

Vad använder du för databas?

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

## #3 — Fraggel, 2004-07-26T16:12Z

Kör samma sub 3 ggr och kolla så att den inte slumpar fram samma nummer som tidigare, det är det enklaste sättet, vet dock inte om det finns snyggare sätt...

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

## #4 — magnusfeldth, 2004-07-26T17:28Z

> **Bosse168 skrev:**
>
> Vad använder du för databas?

MS access

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

## #5 — solbulle, 2004-07-26T17:50Z

Euh, typ...

```
response.write slump() & " " & slump() & " " & slump()
```

Eller?

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

## #6 — magnusfeldth, 2004-07-26T18:26Z

Men hur slumpar man fram 3 stycken då?

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

## #7 — Fraggel, 2004-07-26T20:21Z

!!!!!

```
Int(Rnd())
```

 ????

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

## #8 — solbulle, 2004-07-27T00:13Z

Jag tyckte du skrev att du redan hade den funktionen? Det är väl bara att köra den tre gånger? (Iofs kanske man vill gardera sig att inte få samma resultat flera gånger..)

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

## #9 — Fraggel, 2004-07-27T07:37Z

```
Function Slump(intAntalPoster)
  Slump = Int(Rnd(intAntalPoster)+1)
End Function
```

Kan vara lite fel skrivar det helt ur huvudet, men generellt så bör det funka... Är inte helt säker på Rnd Syntaxen har inget att kolla mot...

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

## #10 — Bosse168, 2004-07-27T10:23Z

Testa detta:

```
<% 
    For i = 1 to 3 ' <---- Här sätter du hur många poster du vill skriva ut
 
            Randomize
            strRandom = Int(RND*strPoster) - 1
 
            Set RecSet = Connect.Execute("SELECT bild_url FROM medlemmar WHERE bild_godkand=1") '  <---- Ändra tabell och kolumn.
            Do While strRandom >= 0
                    RecSet.MoveNext
 
            strRandom = strRandom - 1
            Loop
			%>

<img border="0" src="<%=RecSet("bild_url")%>" width="80" height="100">
<%
Next
 
RecSet.Close : Set RecSet = Nothing
```

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

## #11 — emil_ad, 2004-07-31T08:54Z

Har det inte löst sig kan du använda min slumpkod, gjorde om den till Access, använder array.

```
<%
' ### arraydim 3 st
arrValda = Array(0,0,0) 

' ### koppling
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/dindatabas.mdb") & ";"
Set objRs = Server.CreateObject("ADODB.Recordset") 

	' ### tabellinfo samt villkor
	strSQL = "SELECT * FROM dintabell" 
	objRs.Open strSQL, objCon, 3, 3 
	
	intPoster = objRs.RecordCount 
	
	' Start 2-0 = 3 poster
	For x = 0 To 2 

				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 
				%>
				<img src="katalog/<%=objRs("bildnamn")%>" width="50" height="70" border="0">
				<%
				End if 
				objRs.MoveFirst 
				Next 

objRs.Close 
Set objRs = Nothing 
objCon.Close 
Set objCon = Nothing 
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107909-tre-slumpade-bilder