Hej! Du har "SELECT ID,FotoVar FROM Medlemmar where FotoVar =True" Jovisst, men hur slumpar jag fram ett Id då? kör jag med nuvarande kod så slumpar den fram ett id från 1-4 då det finns 4 rader i databasen som motsvarar vilkoret FotoVar = true men sen då? hur väljer jag nån av dessa? de kan ju faktist vara 1,12,20 och 45! Dim vektor(25),i,slumpTal Okej..men om vi säger att ID nr: 1,5,7 och 14 i databasen innehåller en bild.. hur gör jag för att den ska slumpa mellan dessa nummer och inte mellan 4 nummder, dvs 0-4 eller 1-4 ? vektor(0)="1 bild" Okej.. hur kopplar jag detta till en tabell med villkoret FotoVar = True? <table border=1 cellpadding=3 > Jojo,, så långt är jag med..men hur gör jag för att den ska randomizera ur ett recordsett? alltså ta numren ur en databas?Randomisera fram 4 rader?
Står inför ett stort problem här(tyckar jag alltså) jo..så här ligger det till..
Jag vill få fram 4 rader ur en access databas (randomiserat) med ett vilkor(att kolumnen FotoVar ska vara true)..så här ser min nuvarande kod ut!:
<%
Visa = "SELECT ID,FotoVar FROM Medlemmar where FotoVar =True"
rstMedlemmar.Open Visa, Connect, adOpenStatic, adLockOptimistic
Do Until rstMedlemmar.EOF
Talet = Talet + 1
rstMedlemmar.MoveNext
Loop
Randomize
Slumptal = Int(Rnd * Talet + 1)
Slumptal2 = Slumptal
Do Until Not Slumptal2 = Slumptal
Randomize
Slumptal2 = Int(Rnd * Talet + 1)
Loop
Response.Write Slumptal2
rstMedlemmar.Close
%>Sv: Randomisera fram 4 rader?
Jag antar att ID är någon form av räknare, då går det ju bra att slumpa fram id och sätta SELECT... WHERE (ID=... OR ID=...) AND FotoVar =TrueSv: Randomisera fram 4 rader?
MVH
///JoelSv: Randomisera fram 4 rader?
Randomize
For i=0 to 25
vektor(i)=(i+65) & " : " & Chr(i+65)
Response.Write vektor(i) & "<br>"
Next
Response.Write "<br><br>**********<br><br>"
For i =1 to 10
slumpTal = Int(Rnd * 25 + 1)
Response.Write vektor(slumpTal) & "<br>"
Next
Samt kod för att kolla dubletterSv: Randomisera fram 4 rader?
mvh
JoelSv: Randomisera fram 4 rader?
vektor(1)="5 bild"
vektor(2)="7 bild"
vektor(3)="14 bild"
Slumpa på index i vektorn.Sv: Randomisera fram 4 rader?
Sorry..du börjar nog tröttna på mej nu =)
mvh
JoelSv: Randomisera fram 4 rader?
<tr><td>Text till bild 1</td><td><%=vektor(0)%></td></tr>
<tr><td>Text till bild 2</td><td><%=vektor(1)%></td></tr>
<tr><td>Text till bild 3</td><td><%=vektor(2)%></td></tr>
<tr><td>Text till bild 4</td><td><%=vektor(3)%></td></tr>
</table>Sv: Randomisera fram 4 rader?
*snurrigt* =D
mvh
Joel