Tilfældig række i access

Det kan gøres med en SQL sætning som denne:

<%
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM Tabel ORDER BY rnd(-(ID)*" & R & ")"

Set rs = Conn.Execute(SQL)
...
%>

skal vist prøve at søge først og spørger bagefter næste gange.

Brugt denne

  <%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxx.mdb")
set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = 3 ' adUseClient
RS.CursorType = 3 ' adOpenStatic
RS.Open "select * from billeder", Conn, , , &H0001 ' adCmdText

' Ovenstående linier åbner et statisk recordset, hvor alle Move-kommandoerne virker. Normalt er det kun Forward reading dvs. MoveNext der virker.

if not RS.EOF then ' Hvis der er nogle at vælge i mellem
  randomize
  P1 = int(RS.RecordCount * rnd) ' Vælg et tilfældig tal mellem 0 og antal records i tabellen
  RS.Move(P1) ' Flyt direkte til den valgte record
  %>
<a href="billeder.asp?kat=<%=rs("Kategori")%>&id=<%=rs("id")%>"><img src="billeder/stor/<%=rs("billede")%>" border=0 hspace="3"></a>
<%
end if
%>

Jeg har givet dit et korrekt svar hvorfor tager du så point selv??
Hvis du opretter et sprøgsmål må du sku stå ved det spørgsmål..

http://www.eksperten.dk/spm/448056

Havde ikke set dit indlæg - men har oprettet et spørgsmål til dig.