Tilfældig post

udskift:
SQL = "Select * from tekster"
med:
SQL = "Select * from tekster where antal_modtager = ''"

OK, det er godt nok SQL = "Select * from tekster where antal_modtager = 0"
da antal_modtager er et tal-felt,
men smid et svar ;-(7

SQL = "SELECT TOP 1 * FROM tekster ORDER BY NEWID()"

;o)

A1's løsning er til MS-SQL. På den måde kan det klares med en simpel kode:

set rs = conn.execute("SELECT TOP 1 * FROM tekster where antal_modtager = 0 ORDER BY NEWID()")
if not rs.eof then
  Response.Write rs("tekstid")
  Response.Write rs("antal_modtager")
else
  Response.Write "Ingen poster"
end if

Med MySQL skal det være:
set rs = conn.execute("SELECT * FROM tekster where antal_modtager = 0 ORDER BY Rand() limit 1")

Med Access skal der lidt mere kode til da dens egen rnd funk ikke er særlig god, så den kombineres med ASP's:
randomize
R=clng(100000*rnd)
SQL = "SELECT TOP 1 * FROM Tabel ORDER BY rnd(-(ID)*" & R & ")"
set rs = conn.execute("SELECT TOP 1 * FROM tekster where antal_modtager = 0 ORDER BY rnd(-(ID)*" & R & ")")

Du får et svar, selvom jeg må sige, at fennecs og a1's løsninger er temmelig smarte.

hells >>
Det er som man tager det. Jeg kan klart se muligheder i den oprindelige kode, da den er crossDB, og vil derfor køre uanset hvilken database man bruger, hvor de koder vi har givet skal ændres, hvis man skifter database.

Har man vedtaget at man kun bruger en database kan man bruge vores løsninger, men vil man evt skifte på et senere tidspunkt, er den oprindelige kode at fortrække.