random...

lytter

Lang kode, er det : <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

for i = 1 to 1

Set counter = Conn.Execute("SELECT Count(*) AS Count FROM statement")

Set rs = Conn.Execute("SELECT * FROM statement")

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("tekst") & "<br>"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>
??

noget lign. kan det lade sig gøre på en kortere måde???

Lav evt. en function der kan returnere et recordset med en tilfældig post.

function GetRandomRS(ATableName)
  Set GetRandomRS = Conn osv ...
end function