3 random udtræk - Ikke ens

Hvilken database benytter du?

access

\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"abb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
myConn.Open strDSN
\' Skaber et recordset udfra SQL strengen

Rs.Open \"SELECT * FROM abbtabel\", myConn,1,3
inDB = rs.RecordCount
If inDB > 3 then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = \",\" & newid & \",\"
  indexFound = 1
  Do while indexFound <3
    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 \"DATA FRA DIT RECORD SET\"

  next
end if
Rs.Close

Så har jeg ikke lige nogen nem løsning, da rnd ikke virker efter hensigten, når man henter via ASP.

Men jeg har en lidt længere løsning:

Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnPath = \"DBQ=\" & Server.MapPath (\"Database.mdb\")
objConn.Open \"Driver={Microsoft Access Driver (*.mdb)};\" & strConnPath
Set rs = Server.CreateObject (\"ADODB.Recordset\")
Sql = \"Select count(*) as Found from Tabel\"
rs.Open Sql,objConn,3,3
If rs.RecordCount > 0 Then
  Ialt = rs(\"Found\")
  rs.Close
  Sql = \"Select * from Tabel\"
  rs.Open Sql,objConn,3,3
  Randomize
  RandNum = Int(Rnd * Ialt) + 1
  rs.MoveFirst
  For i = 1 to RandNum - 1
    rs.MoveNext
  next
  strlinkID1 = rs(\"ID\")
  strLink1 = rs(\"Link\")
  rs.Close
End if
If strBanner1 <> \"\" Then
  Sql = \"Select count(*) as Found from Tabel WHERE ID <> \" & strLinkID1
  rs.Open Sql,objConn,3,3
  If rs.RecordCount > 0 Then
    Ialt = rs(\"Found\")
    rs.Close
    Sql = \"Select * from Tabel WHERE ID <> \" & strLinkID1
    rs.Open Sql,objConn,3,3
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    rs.MoveFirst
    For i = 1 to RandNum - 1
      rs.MoveNext
    next
    strLinkID2 = rs(\"ID\")
    strLink2 = rs(\"Link\")
    rs.Close
  End If
End If
If strLinkID2 <> \"\" Then
  Sql = \"Select count(*) as Found from Tabel WHERE ID <> \" & strLinkID1 & \" AND ID <> \" & strLinkID2
  rs.Open Sql,objConn,3,3
  If rs.RecordCount > 0 Then
    Ialt = rs(\"Found\")
    rs.Close
    Sql = \"Select * from Tabel WHERE ID <> \" & strLinkID1 & \" AND ID <> \" & strLinkID2
    rs.Open Sql,objConn,3,3
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    rs.MoveFirst
    For i = 1 to RandNum - 1
      rs.MoveNext
    next
    strLinkID3 = rs(\"ID\")
    strLink3 = rs(\"Link\")
    rs.Close
  End If
End If

eagleeye>> Hvad sker der med din, hvis der nu ikke er tre i databasen?

Tak for hjælpen begge to :D

Der er sker ikke noget, men man kan jo let tilføje en else..