Tilfældig post fra en database

select * from banners order by rand() limit 1

LowerBound = 1
UpperBound = Højeste ID-værdi

Do
  Randomize
    RandomNumber = Int(Rnd * UpperBound) + LowerBound
    strSQL = "Select * From dintabel Where ID = " & RandomNumber
    Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
  Response.Write rs("ID")
  Count = 1
End If
Loop While Count <> 1

//>Rune

powerade : virker ikke
medions : Den tager kun upperbound når jeg kører scriptet..

Prøv lige sådna her:

LowerBound = 1
UpperBound = 1000

Do
  Randomize
    RandomNumber = Int(Rnd * UpperBound) + LowerBound
    strSQL = "Select * From dintabel Where ID = " & RandomNumber
    Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
  Response.Write rs("ID")
  Count = 1
End If
Loop While Count <> 1

//>Rune

mine bounds virker. Har tjekket..

Jamen se,s å burde det jo oxo virke!

//>Rune

LowerBound = 1
UpperBound = 1000

Do
  Randomize
    RandomNumber = CInt(Rnd() * UpperBound)
    strSQL = "Select * From dintabel Where ID = " & RandomNumber
    Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
  Response.Write rs("ID")
  Count = 1
End If
Loop While Count <> 1

Prøv sådan ellers!

//>Rune

Ellers er der en anden ASP løsning her
http://www.aspfaqs.com/webtech/072799-1.shtml

Det virker stadig ikke optimalt, men ok..