Randow row i tabel.

select * from tblAnswer where tblQuestion = 1 order by rand()

<%
Set mrs = Server.CreateObject("ADODB.RecordSet")

sql = "select * from tblAnswer where tblQuestion = 1"

mrs.Open strSQL, Conn, 3, 1
rndMax = CInt(mrs.RecordCount)

Randomize
rndNumber = Int((RND * rndMax))    'Find et random nummer
mrs.Move rndNumber    'Flyt til den første valgte record

'Udksirv fra recordet et her..
Response.Write mrs("kolonne") 

mrs.Close
%>

Det kan jeg ikke få til at virke, den viser slet ikke noget på siden når "order by rand()" kommer på.

Stig

hvis du bruger Access kan du bruge en SQL som denne:

SQL = "select * from tblAnswer where tblQuestion = 1 order by rnd"

Men min erfaring er at den altid giver den samme record ud når man bruger random (rnd) i SQL sætningen...

eagleeye>> det er nu nok fordi du skal bruge noget jeg gætter på hedder srnd = time eller sådan noget... inden

hvordan gør man så det via SQL?

eller skulle det være nok at skrive det i koden??  Sådan her:


Randomize
SQL = "select * from tblAnswer where tblQuestion = 1 order by rnd"

Hej eagleeye, vil du prøve at indsætte det i mit script.

Stig

Prøv dette:


<!--#include file="DBconn.asp"-->
<html>
<head>
    <TITLE></TITLE>
</head>
<body>
<table>
<%
Set mrs = Server.CreateObject("ADODB.RecordSet")

sql = "select * from tblAnswer where tblQuestion = 1"

mrs.Open strSQL, Conn, 3, 1

if not mRS.Eof then
  rndMax = CInt(mrs.RecordCount)
  Randomize
  rndNumber = Int((RND * rndMax))    'Find et random nummer
  mrs.Move rndNumber    'Flyt til den første valgte record

  do while not mRS.Eof or mRS.Bof
    mNr = mRS("id") 
    mPoint = mRS("point")
%>
<tr>
  <td><input id="m<% = mNr %>" type="radio" name="point" value=""></td><td><%= mRS("answer") %></td>
</tr>
<%
  mRS.MoveNext
loop
end if
mRS.Close
set mRS = Nothing
%>
</table>
</body>
</html>

første fejl... Denne linie:
mrs.Open strSQL, Conn, 3, 1

Skal være:

mrs.Open SQL, Conn, 3, 1

jeg får flg. fejl.

Microsoft OLE DB Provider for ODBC Drivers error '80040e24'
Rowset does not support fetching backward.

stig

Prøv at indsætte denne:

mrs.CursorType = 3

Lige før:
mrs.Open SQL, Conn, 3, 1

Der opstod en Microsoft VBScript-kørselsfejl error '800a01a8'

Et objekt er obligatorisk: 'mrs'

Denne linie skal være med i koden:
Set mrs = Server.CreateObject("ADODB.RecordSet")

Så man får defineret mrs som et recordset.

Prøv evt at vise koden igen...

<html>
<head>
    <TITLE></TITLE>
</head>
<body>
<table>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set mrs = Server.CreateObject("ADODB.Recordset")
Conn.Open "EDUDSN", "edu", "edu"

sql = "select * from tblAnswer where Question = 1"

mrs.Open sql, Conn

if not mRS.Eof then
  rndMax = CInt(mrs.RecordCount)
  Randomize
  rndNumber = Int((RND * rndMax))    'Find et random nummer
  mrs.Move rndNumber    'Flyt til den første valgte record

  do while not mRS.Eof or mRS.Bof
    mNr = mRS("id") 
    mPoint = mRS("point")
%>
<tr>
  <td><input id="m<% = mNr %>" type="radio" name="point" value=""></td><td><%= mRS("answer") %></td>
</tr>
<%
  mRS.MoveNext
loop
end if
mRS.Close
set mRS = Nothing
%>
</table>
</body>
</html>

prøv at rette linien:

mrs.Open sql, Conn

til:

mrs.Open sql, Conn, 3

eller med både 3,1

mrs.Open sql, Conn, 3, 1

Det virker faktisk nu, MEN !!  der skal altid vises alle 4 records, bare i (random) rækkefølge.

Stig

Skal du havde 4 tilfældige records ?

Jeg troede det var en tilfældig.

hvis du vil hvade 4 til fældige records så prøv:

<html>
<head>
    <TITLE></TITLE>
</head>
<body>
<table>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set mrs = Server.CreateObject("ADODB.Recordset")
Conn.Open "EDUDSN", "edu", "edu"

sql = "select * from tblAnswer where Question = 1"
mrs.Open sql, Conn, 3, 1

antalRandom = 4
inDB = mrs.RecordCount
Randomize timer
newId = Int (rnd*inDB)
strIndex = "," & newid & ","
indexFound = 1
Do while indexFound < antalRandom
  Do
    Newid = Int (rnd*inDB)
  Loop while inStr(strIndex,"," & newid & ",") > 0
  strIndex = strIndex & newid & ","
  indexFound = indexFound + 1
Loop
strIndex = mid (strIndex,2,len(strIndex)-2)
myArr=split(strIndex,",",-1)
For i = Lbound(myArr) to Ubound(myArr)
  mrs.move myArr(i),1
   
  mNr = mRS("id") 
  mPoint = mRS("point")
%>
<tr>
  <td><input id="m<%= mNr %>" type="radio" name="point" value=""></td><td><%= mRS("answer") %></td>
</tr>
<%
next

mRS.Close
set mRS = Nothing
%>
</table>
</body>
</html>

Det er bare flot.

Stig