Random udtræk fra db

Du kan lave det med en SQL sætning sådan her, ID skal være navnet på autonummer kolonne:


<%
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 5 * FROM TabelNavn WHERE dato is not null ORDER BY rnd(-(ID)*" & R & ")"
%>

Kan desværre ikke få dit script til at virke...
Bruger dette script: -Kan lave om på det så det virker???

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

strSQL = "Select * from users Where id = " & Request.QueryString("id")
Set rs = Conn.Execute(strSQL)
Do
%>

html kode her...

<%
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Prøv at lave dette:

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

strSQL = "Select * from users Where id = " & Request.QueryString("id")
Set rs = Conn.Execute(strSQL)
Do
%>



Om til dette:

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

randomize
R=clng(100000*rnd)
strSQL = "Select TOP 5 * from users order by rnd(-(id)*" & R & ")"
Set rs = Conn.Execute(strSQL)
Do
%>

Jeg ved ikke om det hjælper, men jeg sad lige og legede med det og kunne kun få det til at virke ved at ændre denne :

strSQL = "Select TOP 5 * from users order by rnd(-(id)*" & R & ")"

Til dette :

strSQL = "Select TOP 5 * from users order by rand(-(id)*" & R & ")"

Det skal dog siges at jeg arbejder på MsSql og ikke MsAccess

Bare lige en fodnote :o)

/Websam

Lukketid ?