Tilfældig recordset fra database

Snuppet direkte fra: http://www.eksperten.dk/spm/202164
Men noget i den her stil må kunne gøre det.

Rs.Open "SELECT * FROM abbtabel", myConn,1,3
inDB = rs.RecordCount
If inDB > 5 then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound <10
    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)
    rs.move myArr(i),1
     
    Response.write " UDSKRIV DATA HER med rs(""FELT"") .... "
    'gemmer i session
    session("s"&i&"") = rs(""FELT"")

  next
end if
Rs.Close

Se lige efter om det her ser helt galt ud:

<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open("database.mdb")
Rs.Open "SELECT * FROM questions", myConn,1,3
inDB = rs.RecordCount
If inDB > 5 then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound <10
    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)
    rs.move myArr(i),1
     
    Response.write "" & rs("id") & ""
    'gemmer i session
    session("s"&i&"") = rs("id")

  next
end if
Rs.Close
%>

Det virker i hvert fald ikke, jeg får bare "Siden kan ikke vises" og jeg ved ikke hvorfor jeg ikke får nogen fejlmeldelse, på trods af, at jeg har slået det til.

Hmm, det her virker:

<%
Constr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
set cn = server.createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cn.connectionstring=constr
cn.open

Rs.Open "SELECT * FROM questions", Cn,1,3
inDB = rs.RecordCount
If inDB > 5 then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound <2
    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)
    rs.move myArr(i),1
     
    Response.write "" & rs("id") &"<br>"
    session("s"&i&"") = rs("id")
  next
end if

RS.Close
Set RS = Nothing
Cn.Close
Set Cn = Nothing
%>


Men den giver ikke de rigtige sessions... Det skal være sådan at man får: session("s1") = random number, session("s2") = random number, session("s3") = random number... osv op til 10...

De session navne skal være unikke heletiden, så hvis jeg skriver session("s10") i bunden af mit dokument, vil den give mig det tilfældige tal i session 10.

Kan nogen hjælpe mig med det?

Bliver vist desværre ikke til noget.