Vælg 5 tilfældig poster fra db ! (random)

Brug randomize

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"link.mdb\")

for i = 1 to 5

INPUT = \"SELECT Count(webid) AS Count FROM link\"
Set counter = Conn.Execute(INPUT)

INPUT = \"SELECT * FROM link\"
Set rs = Conn.Execute(INPUT)

If counter(\"Count\") > 0 Then
  Randomize()
  Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1
   
  rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"url\") & \"<br>\"
end if

rs.Close
Set rs = Nothing
counter.close
set counter = nothing
next

Conn.Close
Set Conn = Nothing
%> 

eller - det bedste er nok at ligge med her:

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

Ja det virker... Men den må ikke vise den samme mere end én gang...

Og det link er ikke til at finde rundt i..

.... Nå ikke... Opretter et nyt spørgsmål med nogle flere points...  (o: