---

Hej gruppe.

Jeg har en database med 4 felter som jeg skal have vist efter hinanden.
Det nemme ville være at vise dem i en fast rækkefølge hver gang de
bliver vist (det bliver de 20-30 gange eller mere).

felt1
felt2
felt3
felt4

Men det er vigtigt at de bliver vist i tilfældig rækkefølge, så de kommer
til at stå forskelligt for hver gang recordsettet bliver hevet frem.

felt4
felt1
felt3
felt2

felt2
felt4
felt1
felt3

Hvordan gør jeg det?
Med Random tager den vel hvert felt helt tilfældigt,
så der i princippet kunne stå det samme i alle fire felter??

/Kasper K

---

Kasper Katzmann wrote:
>
> Jeg har en database med 4 felter som jeg skal have vist
> efter hinanden. [Hvordan viser man dem i en tilfældig
> rækkefølge?]

Vi kunne sige, at du have dine værdier i et array, f.eks. fordi du har
brugt GetRows:

Rs.Open Sql, Conn, 0, 1, 1
If Rs.Eof Then Rows = 0 Else Rows=Rs.GetRows
Rs.Close

If IsArray(Rows) Then
'-- Lav permuterings array
ReDim Permut(UBound(Rows, 2))
For i = 0 To UBound(Permut)
Permut(i) = i
Next

'-- Vis rækker i tilfældig rækkefølge 20 gange
Randomize
For j = 1 to 20
Call Permuter(Permut)

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>Id</td>"
Response.Write "<td>Navn</td>"
Response.Write "<td>Dato</td>"
Response.Write "</tr>" & vbCrLf
For i = 0 To UBound(Permut)
Response.Write "<tr>"
Response.Write "<td>" & Rows(0, Permut(i)) & "</td>"
Response.Write "<td>" & Rows(1, Permut(i)) & "</td>"
Response.Write "<td>" & Rows(2, Permut(i)) & "</td>"
Response.Write "</tr>" & vbCrLf
Next
Response.Write "</table>"
Next
End If

Sub Permuter(ByRef Permut)
Dim i, j, t, size
size = UBound(Permut)
For i = 0 To size
j = CLng(Int((size + 1) * Rnd))
t = Permut(i)
Permut(i) = Permut(j)
Permut(j) = t
Next
End Sub

--
Anders