tre slumpade bilder

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?)

Vad använder du för databas?

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...

Bosse168 skrev:

Vad använder du för databas?

MS access

Euh, typ...

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

Eller?

Men hur slumpar man fram 3 stycken då?

!!!!!

Int(Rnd())

????

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..)

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...

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

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