Random udtræk på db

Eks:

Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".\dbfil.mdb")
Conn.Open (ConnStr)
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tabel_som_skal_vælges_fra"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer

'Flyt til den valgte recoerd
rs.Move rndNumber

'Udskriv fra recordsetet
Response.Write rs("visDetteTekst") 'udskriver her

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

kan du ikke rette denne her til
<%
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

%>

Dette har vist virket for mig engang :-)

-----------------------------------------
<%
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM DinTabel"
rs.Open SQL, Conn, 1

randomize
rs.Move(int(rs.RecordCount * rnd))
%>

<%=rs("DinRecord")%>
---------------------------------------------

Nvh - N!NJA

Eksmplet tager udgangspunkt i et rs der hedder "rsRandom":

<%
If Not(rsRandom.bof and rsRandom.eof) Then
  If (rsRandom.CursorType > 0) Then
    rsRandom.MoveFirst
  Else
    rsRandom.Requery
  End If
 
  rsRandom_totalrn = -1
  rsRandom_totalrn = rsRandom.RecordCount
  If (rsRandom_totalrn = -1) Then
    rsRandom_totalrn=0
    While (Not rsRandom.EOF)
      rsRandom_totalrn = rsRandom_totalrn + 1
      rsRandom.MoveNext
    Wend
    If (rsRandom.CursorType > 0) Then
      rsRandom.MoveFirst
    Else
      rsRandom.Requery
    End If
   
  End If

rsRandom_totalrn = rsRandom_totalrn - 1
If rsRandom_totalrn > 0 Then
Randomize
rsRandom.Move Int((rsRandom_totalrn + 1) * Rnd)
End If
End If
%>

og

<%=(rsRandom.Fields.Item("ditdbfelt").Value)%>">

Ninjas var den mest simple som virkede!

Takker for pointz :-)

LOL LOL LOL LOL

det er en kopi af min kode strippet for kommentar og connection til databasen.
Nogle folk er bare for ..........