Hej!

Har sökt och sökt men hittar inget enkelt sätt att kunna få fram slumplässiga records från min databas.

Skulle vilja att den tog fram 3 st från "nyheter" kolumnen, 3 st från bilder och 3 st från projekt.

Alltså 3 x 3 i ett rutnät, borde väl gå med en array?

Har idag en enkel funktion men nu får jag lägga in den en och en... går oftast väldigt segt..

<code>
usrExists=False
SET MAX=conn.execute("SELECT MAX(ID) as usr1 FROM nyheter")
DO UNTIL usrExists
Randomize
slump=Int(MAX("usr1")*Rnd+1)
SET user=conn.execute("SELECT ID FROM nyheter WHERE bild = '1' AND kategori = '1'")
DO UNTIL user.EOF
IF slump=user("ID") THEN
Response.Write ("")
usrExists=True
Exit Do
END IF
user.MoveNext
Loop
Loop
</code>

Någon som har ett tips på hur jag gör?

Hej, vad har du för databas? Kan du skriva lagrade procedurer i den?

Du kan också följa denna tråd:
http://www.pellesoft.se/communicate/forum/view.aspx?msgid=179137

Hej Pelle!

Jag använder mig utav en Access Databas, mdb-fil. Hur menar du med att lagra procedurer?

Jag är rätt nöjd över det jag har nu men problemet är att det är VÄLDIGT seg, vad är det som gör att det går segt? Har iofs 9 st av denna koden, kanske stör?

Hej!
Hämta alla IDn och spara dem i en array. Sen plockar du slumpmässigt ut så många ID du vill ha och sen gör du en sökning på databasen på de idn du slumpar fram.

Var i koden lägger jag inte arrayn? Har aldrig jobbat med arrays förrut, hade du kunnat visa i min kod?

Du "bläddrar" igenom halva recordsetet för varje nyhet du slumpar fram, det är inte riktigt bra. Prova att slumpa direkt i databasen istället, det borde bättra på prestandan.

SELECT TOP 3 ID FROM nyheter WHERE bild = '1' AND kategori = '1' ORDER BY RND(ID)

Johan

Men tar den inte bara TOP 3 i varje tabell i databasen då?

Prova!

Hej.
När jag höll på med den vanliga Aspen så gjorde jag så här:
<code>
sql="SELECT id, slumpBild FROM t_slumpBild ORDER BY id"
CALL MakeRecordSet(RS,sql,connection)
CALL GenereaSlump("Bild",RS)


Sub MakeRecordSet(rec,sql,con)

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

rec.open sql,con,3,1,1

End Sub

SUB GenereaSlump(wath,rec)

Dim arrData ' Array to Store Data

Dim arrSequencer ' Array to Hold Random Sequence

Dim iArrayLooper ' Integer for Looping

Dim iArraySize ' Size of Data Array

Dim strVariabel,i

On Error Resume Next

arrData = RS.GetRows

RS.close

Set RS = Nothing

iArraySize = CLng((Ubound(arrData, 2) - LBound(arrData, 2))) '+ 1



Randomize

i = CInt(Int((iArraySize * Rnd()) + 1))

strVariabel = arrData(1, i)

if wath = "Bild" then

response.write "<img src=""Bild/slumpBild/" & strVariabel & """ border=""0"" ALLT=""SAW-Bild"" height=""100"">"

elseif wath = "Text" then

response.write strVariabel

end if



END SUB

</code>
Som du ser så brukade jag ha en extern-fil, för att slippa att skriva samma kod igen.
Jag tror att den är ganska så självförklarande.